如何让VBA代码遍历工作簿所有工作表？Sub Test()无法切换工作表

兄弟，我之前也碰到过这种遍历工作表后切换失效的坑，大概率是你代码里依赖了ActiveSheet或者Select这种「模糊引用」，没把工作表对象明确传递到位，导致遍历的时候看起来跑了流程，但实际根本没切换到目标工作表。下面给你两个靠谱的解决方案，还有排查思路：

方案1：放弃Activate/Select，用明确的工作表对象传递（推荐） #

这是最稳妥的写法，完全不需要依赖激活状态，不仅不会出现切换问题，代码运行效率也更高。

假设你原来的单个工作表处理代码是这样的：

Sub OldSingleSheetProcess()
    ' 原来的逻辑，依赖ActiveSheet
    ActiveSheet.Range("A1").Value = "处理完成"
    ' 其他操作...
End Sub

你只需要把它改造成接受工作表对象参数的子过程，然后在遍历的时候把每个工作表对象传进去就行：

' 改写后的处理过程，直接操作传入的工作表对象
Sub ProcessSingleSheet(ByVal targetWs As Worksheet)
    ' 把所有原来写ActiveSheet的地方，替换成targetWs
    targetWs.Range("A1").Value = "处理完成：" & targetWs.Name
    ' 你的其他处理逻辑...
End Sub

Sub Test()
    Dim ws As Worksheet
    
    ' 遍历工作簿里的每一个工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 把当前循环的工作表对象传给处理过程
        ProcessSingleSheet ws
        
        ' 如果确实需要在Test过程中切换到该工作表（比如调试看效果）
        ' 可以手动激活，这时候肯定能切过去
        ws.Activate
        ' 加个调试输出确认一下
        Debug.Print "当前激活工作表：" & ActiveSheet.Name
    Next ws
End Sub

方案2：如果一定要用Activate/Select（不推荐，但适配旧代码） #

如果你不想大改原来的代码，必须依赖激活状态，那就要确保遍历过程中正确激活工作表，还要避免其他代码干扰：

' 你原来的处理代码，保留依赖ActiveSheet的逻辑
Sub OldSingleSheetProcess()
    ActiveSheet.Range("A1").Value = "处理完成"
End Sub

Sub Test()
    Dim ws As Worksheet
    Dim originalWs As Worksheet
    
    ' 先记录初始激活的工作表，最后可以恢复（可选）
    Set originalWs = ActiveSheet
    
    For Each ws In ThisWorkbook.Worksheets
        ' 先判断工作表是否可见，隐藏的表没法激活
        If ws.Visible = xlSheetVisible Then
            ' 强制激活当前循环的工作表
            ws.Activate
            ' 调用原来的处理逻辑
            OldSingleSheetProcess
            ' 检查是否激活成功
            Debug.Print ws.Name & " 激活状态：" & (ws Is ActiveSheet)
        End If
    Next ws
    
    ' 恢复到初始激活的工作表（可选）
    originalWs.Activate
End Sub

为啥你之前的代码切换失败？ #

大概率是这几个原因：

• 模糊引用导致的无效切换：你遍历的时候循环到了每个ws，但处理过程还是在操作原来的ActiveSheet，根本没用到循环的ws对象，所以看起来没切换。
• 隐藏/保护工作表：如果目标工作表是隐藏状态，ws.Activate会直接失败；如果是保护状态且没允许编辑权限，也可能导致激活后无法操作。
• 事件代码干扰：如果工作表里写了Worksheet_Activate事件，可能激活后又自动跳转到其他工作表了。

快速排查技巧 #

• 在Test的循环里加Debug.Print ws.Name & " 可见性：" & ws.Visible，看看是不是有隐藏表。
• 暂时关闭工作表的事件代码（按Alt+F11，找到对应工作表的Worksheet_Activate，注释掉代码），排除事件干扰。
• 检查是否有On Error Resume Next屏蔽了激活失败的报错，去掉它看有没有弹出错误提示。

内容的提问来源于stack exchange，提问作者TKE-439