VBA Excel错误处理失效：筛选无数据时代码仍报错终止

我编写了一段VBA代码用于筛选表格并复制可见数据到其他位置，当筛选后表格无数据时，代码尝试选择空范围本应触发ErrorHandler2继续执行，但错误未被捕获，代码直接报错终止。相关代码如下：

On Error GoTo ErrorHandler2 'Gestion des erreurs
 
    With Worksheets("Sheet1")

    'get the desired column range which is declared in the cell
    startRange = "L2"
    endRange = "L23211"

    'select values from all filtered rows
    .Range(startRange & ":" & endRange).SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    End With

后续错误处理代码：

ErrorHandler2:
    
'Supprime filtre 
Workbooks("_DATA BASE Cr300.xlsx").Activate
ActiveSheet.Range("$A$1:$P$23211").AutoFilter Field:=15
Workbooks("extract_Stats_TECHM_v2.xlsm").Activate
ActiveWorkbook.Worksheets("INTER").Activate

错误未被捕获的核心原因 #

• 错误处理机制被重置：如果这段代码之前存在On Error Resume Next或On Error GoTo 0语句，会直接重置错误处理逻辑，导致On Error GoTo ErrorHandler2失效，后续错误无法被捕获。
• SpecialCells的错误触发逻辑：当筛选后无可见单元格时，SpecialCells(xlCellTypeVisible)会抛出1004号错误，若此时错误处理未处于激活状态，代码会直接终止而非跳转到错误处理块。
• 依赖Select/Activate的额外错误：Sheet1未激活时，.Range(...).Select本身会触发错误，这类跨工作表的选择操作会干扰错误捕获，甚至掩盖原始错误。

修正方案 #

1. 规范错误处理的位置与逻辑 #

把错误处理语句放在过程最开头，确保覆盖所有可能出错的代码；在错误处理块末尾添加Exit Sub，避免处理完错误后回到错误行重复执行。

2. 避免使用Select/Activate #

直接通过对象引用操作工作表和范围，避免依赖激活状态引发的错误。

修正后的代码示例 #

Sub CopyFilteredData()
    ' 错误处理放在过程最开头，确保覆盖所有代码
    On Error GoTo ErrorHandler2
    
    Dim sourceWS As Worksheet
    ' 显式声明工作表对象，避免激活问题
    Set sourceWS = ThisWorkbook.Worksheets("Sheet1")
    
    Dim startRange As String, endRange As String
    startRange = "L2"
    endRange = "L23211"
    
    ' 临时捕获SpecialCells的空范围错误，避免直接终止
    On Error Resume Next
    sourceWS.Range(startRange & ":" & endRange).SpecialCells(xlCellTypeVisible).Copy
    On Error GoTo ErrorHandler2 ' 恢复原错误处理
    
    ' 这里添加粘贴到目标位置的代码，例如：
    ' Workbooks("extract_Stats_TECHM_v2.xlsm").Worksheets("INTER").Range("A1").PasteSpecial xlPasteValues

ErrorHandler2:
    ' 用显式对象操作，避免Activate带来的问题
    Dim dbWB As Workbook
    Set dbWB = Workbooks("_DATA BASE Cr300.xlsx")
    dbWB.ActiveSheet.Range("$A$1:$P$23211").AutoFilter Field:=15
    
    Dim targetWS As Worksheet
    Set targetWS = Workbooks("extract_Stats_TECHM_v2.xlsm").Worksheets("INTER")
    targetWS.Activate ' 若必须激活，用显式对象引用
    
    ' 清除错误状态
    Err.Clear
    ' 退出过程，防止回到错误行
    Exit Sub
End Sub

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