VBA复制符合条件工作表时循环中断问题排查

问题根源 #

代码复制第一个符合条件的工作表后就停止循环，核心原因是多余的.Activate语句干扰了For Each循环的迭代逻辑。执行ws.Copy后，Excel会自动将焦点切换到目标工作簿wbTo，此时调用.Activate激活源工作簿wbFrom，会导致循环的迭代器丢失引用，直接终止循环。

另外补充一个严谨性细节：判断工作表可见性时，直接用ws.Visible = True虽能匹配常规可见状态，但更规范的写法是使用Excel内置常量xlSheetVisible，避免因可见性的其他枚举值（如xlSheetVeryHidden）导致判断异常。

修正后的代码 #

With wbFrom
    For Each ws In .Sheets
        ' 严谨判断可见性，排除名称为"Menu"的工作表
        If ws.Visible = xlSheetVisible And ws.Name <> "Menu" Then
            ' 直接复制，无需激活源工作簿
            ws.Copy After:=wbTo.Sheets(wbTo.Sheets.Count)
        End If
    Next ws
End With

额外优化建议 #

• 如果目标工作簿wbTo是新建的，默认会包含一个空白工作表（如Sheet1），若不需要可在复制前删除：

  ' 清理目标工作簿默认工作表
  If wbTo.Sheets.Count > 0 Then
      Application.DisplayAlerts = False
      wbTo.Sheets.Delete
      Application.DisplayAlerts = True
  End If
  

• 可添加错误处理，避免因工作表保护、权限问题等导致代码中断：

  On Error Resume Next
  ' 插入你的复制循环代码
  On Error GoTo 0
  

内容的提问来源于stack exchange，提问作者Gabriel Orcellet