如何修复批量执行于排除指定工作表的VBA宏？

你的代码核心问题是没有明确指定操作的目标工作表，所有Columns、Range操作默认指向当前活动工作表，而非循环中的ws对象，导致逻辑混乱无法正常执行。同时，使用Select和Selection会降低代码稳定性与效率，建议直接操作工作表对象。

修正后的VBA代码 #

Sub Update_emp_RC_data()
    Dim ws As Worksheet
    Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Worksheets
        Select Case ws.Name
            Case "Instructions", "NEW STAFF", "Data", "Operational KPI", "Time Segment", "Clinical KPI", "AAB", "Branch", "Team List"
                ' 跳过指定工作表，不执行操作
            Case Else
                ' 在目标工作表上执行数据更新操作
                With ws
                    ' 显示E列
                    .Columns("E:E").EntireColumn.Hidden = False
                    ' 在E列位置插入新列
                    .Columns("E:E").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
                    ' 复制F列到新插入的E列
                    .Columns("F:F").Copy Destination:=.Columns("E:E")
                    ' 将E列的值粘贴到F列（覆盖原公式为值）
                    .Columns("E:E").Copy
                    .Columns("F:F").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
                    ' 清除剪切复制模式
                    Application.CutCopyMode = False
                    ' 隐藏E列
                    .Columns("E:E").EntireColumn.Hidden = True
                End With
        End Select
    Next ws
    
    Application.ScreenUpdating = True
End Sub

关键修改点 #

• 用With ws...End With块绑定目标工作表，确保所有操作都针对当前循环的工作表
• 移除所有Select和Selection操作，直接对工作表的列对象进行读写，提升代码稳定性与运行速度
• 简化复制粘贴逻辑，用Copy Destination替代先复制再粘贴的冗余步骤

内容的提问来源于stack exchange，提问作者Craig Fletcher