批量运行VBA宏触发400错误，单步执行正常

你遇到的400错误大概率是工作表引用未明确导致的——单独运行Copy2时，你应该是在Sheet3界面下执行，此时未限定的Cells、Range会默认指向当前激活的Sheet3；但通过RUN宏批量调用时，当前活动工作表可能不是Sheet3，这就导致代码尝试在错误的工作表上执行插入操作，触发无效操作的400错误。

另外你的Copy2里还有两个小问题会加重这类错误：一是不必要的Select操作（VBA里尽量避免用Select，很容易因为活动对象变化出问题），二是最后一行的ScreenUpdating设置写错了（应该设为True恢复屏幕更新）。

修复后的Copy2宏代码 #

Sub Copy2()
    Dim xRow As Long
    Dim VInSertNum As Variant
    xRow = 1
    Application.ScreenUpdating = False
    
    ' 所有单元格/区域操作都明确指定Sheet3，避免依赖活动工作表
    With Sheet3
        Do While (.Cells(xRow, "A") <> "")
            VInSertNum = .Cells(xRow, "J")
            If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then
                ' 直接复制目标区域，不用Select
                .Range(.Cells(xRow, "A"), .Cells(xRow, "J")).Copy
                .Range(.Cells(xRow + 1, "A"), .Cells(xRow + VInSertNum - 1, "J")).Insert Shift:=xlDown
                xRow = xRow + VInSertNum - 1
            End If
            xRow = xRow + 1
        Loop
    End With
    
    Application.ScreenUpdating = True ' 恢复屏幕更新，之前写错成False了
End Sub

关键修改点说明 #

• 明确工作表引用：用With Sheet3包裹所有单元格操作，每个Cells、Range前加.，确保代码始终操作Sheet3，不受当前活动工作表影响。
• 移除Select操作：直接对目标Range执行Insert，避免因活动单元格变化导致的操作无效。
• 修正ScreenUpdating设置：最后恢复屏幕更新，否则执行完宏后Excel界面会一直处于冻结状态。

额外建议 #

为了避免类似问题在其他宏（比如Copy6）里出现，建议你也检查其他宏的代码，确保所有单元格/区域操作都明确指定对应的工作表（比如Sheet4），不要依赖默认的活动工作表。

内容的提问来源于stack exchange，提问作者Andy Dufresne