如何正确使用On Error语句避免宏执行时出现重复循环问题

嗨，看起来你遇到的这个问题挺典型的——错误处理没写到位，导致宏莫名其妙重复执行了。我来帮你拆解一下问题根源，再给你具体的修复方案。

问题根源分析 #

你说当步骤1有数据可删除时，宏跑完1-3步后会重复执行2-3步，大概率是这两个原因：

• 错误处理范围失控：比如你在宏开头就全局用了On Error Resume Next，导致后续代码的错误被隐藏，逻辑判断失效，进而触发重复执行。
• 工作表事件触发重复执行：复制粘贴操作可能触发了Worksheet_Change这类事件，如果该事件又调用了你的宏，就会形成循环。

正确的错误处理写法（针对你的流程） #

我们需要给步骤1单独做精准的错误捕获，确保只有步骤1出错时才跳过它，同时及时重置错误处理，避免影响后续代码。结合你的流程，重构后的代码大概是这样：

Sub X_MEcopy()
    Dim wbCreatingReports As Workbook
    Dim wsSource1 As Worksheet
    Dim wsBOMInput As Worksheet
    Dim wsBoMMVP As Worksheet
    Dim wsBoM_iPCO_SP As Worksheet
    Dim SAP_PlantValue As Variant
    Dim lastRow As Long
    Dim destFolder As String
    Dim destFile As String
    Dim wsSourceBW_MMR_CY As Worksheet
    Dim wsSourceBW_MMR_PY As Worksheet
    ' 补充你没写完的变量声明...
    
    ' 先禁用工作表事件，避免复制粘贴触发重复执行
    Application.EnableEvents = False
    ' 兜底错误处理，确保即使出错也能恢复事件
    On Error GoTo Cleanup

    ' --- 步骤1：过滤删除数据（出错则跳过）---
    On Error GoTo SkipStep1 ' 开启步骤1的错误捕获，出错直接跳转到SkipStep1
    ' 这里写你的过滤&删除代码，示例逻辑供参考：
    wsSource1.Range("A1").AutoFilter Field:=1, Criteria1:="要删除的条件"
    lastRow = wsSource1.Cells(wsSource1.Rows.Count, "A").End(xlUp).Row
    ' 提前判断是否有数据行要删，减少错误触发概率
    If lastRow > 1 Then
        wsSource1.Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    End If
    wsSource1.AutoFilterMode = False ' 关闭筛选
    On Error GoTo 0 ' 重置错误处理，后续代码的错误会正常抛出

SkipStep1: ' 步骤1出错时跳这里，继续执行后续步骤
    On Error GoTo 0 ' 确保错误处理已重置

    ' --- 步骤2：复制粘贴数据 ---
    ' 示例复制粘贴逻辑，替换成你的实际代码：
    lastRow = wsSource1.Cells(wsSource1.Rows.Count, "A").End(xlUp).Row
    wsSource1.Range("A1:Z" & lastRow).Copy
    wsBOMInput.Range("A1").PasteSpecial xlPasteValuesAndNumberFormats
    Application.CutCopyMode = False ' 清除复制状态

    ' --- 步骤3：删除空行 ---
    ' 示例删除空行逻辑，替换成你的实际代码：
    lastRow = wsBOMInput.Cells(wsBOMInput.Rows.Count, "A").End(xlUp).Row
    ' 倒着删行避免索引混乱
    For i = lastRow To 1 Step -1
        If WorksheetFunction.CountA(wsBOMInput.Rows(i)) = 0 Then
            wsBOMInput.Rows(i).Delete
        End If
    Next i

    ' 其他后续代码...

Cleanup:
    ' 无论宏是否出错，都要恢复工作表事件
    Application.EnableEvents = True
    On Error GoTo 0
End Sub

关键细节说明 #

1. 精准错误捕获：用On Error GoTo SkipStep1只针对步骤1的代码做错误处理，出错后直接跳转到步骤2，不会影响后续流程。处理完步骤1后立刻用On Error GoTo 0重置，避免隐藏后续代码的错误。
2. 提前判断替代错误捕获：在步骤1里加了If lastRow > 1的判断，提前确认有数据可删，减少不必要的错误触发——这比依赖错误处理更可靠。
3. 禁用工作表事件：开头加Application.EnableEvents = False，结尾在Cleanup标签里恢复，避免复制粘贴操作触发Worksheet_Change等事件，导致宏被重复调用。

常见错误处理误区要避开 #

• 别在宏开头就全局用On Error Resume Next：这会隐藏所有错误，你根本不知道代码里哪出了问题，很容易引发各种逻辑混乱。
• 错误处理标签位置要对：确保跳过的只是当前步骤的代码，不要把后续步骤的代码也包含进去。
• 一定要重置错误处理：每次用完错误捕获后，记得用On Error GoTo 0恢复默认错误处理机制。

按照这个方式调整你的宏，应该就能解决重复执行的问题了。

备注：内容来源于stack exchange，提问作者Jakub Jabłoński