VBA代码调试求助：如何通过On Error语句记录删除Excel表格行时的错误记录ID

你遇到的核心问题确实是变量作用域：循环变量i是在With Worksheets("原始資料")块内的For循环里声明的，它的作用域仅限于那个循环和With块内部，错误处理块（ErrorHandler）根本看不到这个变量，所以那条Debug.Print语句会报错。

下面给你两个可行的解决方案：

方案一：调整变量作用域，将i声明到过程顶部 #

把i的声明从循环里移到整个Sub过程的最开头，这样错误处理块就能访问到这个变量了。同时还要注意，错误发生时i可能已经处于无效状态（比如循环已经结束），所以要加个判断确保它在合法范围内。

修改后的代码如下：

Sub FilterRows(Field As String, Values As Collection)
    Dim FinalRow As Long
    Dim KeepValue As Variant
    Dim Table As ListObject
    Dim TableRange As Range
    Dim i As Integer ' 将i的声明移到过程顶部，扩大作用域
    
    With Worksheets("原始資料")
        FinalRow = .Cells(Rows.Count, 1).End(xlUp).row
        On Error GoTo ErrorHandler
        Set Table = .ListObjects("Table1")
        Set TableRange = Table.Range
        For i = TableRange.Rows.Count To 1 Step -1
            For Each KeepValue In Values
                If Intersect(TableRange.Rows.Item(i), Table.ListColumns(Field).Range).Value <> CStr(KeepValue) Then
                    TableRange.Rows.Item(i).Delete
                End If
            Next KeepValue
        Next
    End With
    Exit Sub
ErrorHandler:
    Debug.Print Err.Number; ":" & Err.Description
    If Table Is Nothing Then
        Worksheets("原始資料").ListObjects.Add(xlSrcRange, Worksheets("原始資料").Range("A1:AK" & FinalRow), , xlYes).Name = "Table1"
        Set Table = Worksheets("原始資料").ListObjects("Table1")
    Else
        ' 先判断i是否在合法的行范围内，避免越界错误
        If i >= 1 And i <= TableRange.Rows.Count Then
            Debug.Print "Error Record ID:" & Intersect(TableRange.Rows.Item(i), Table.ListColumns("Record ID").Range).Value
        Else
            Debug.Print "Error occurred, but row index i is invalid: " & i
        End If
    End If
    Resume Next
End Sub

方案二：在循环内捕获错误，提前记录行信息 #

如果不想调整变量作用域，也可以在循环内部增加错误捕获，每次循环时先记录当前行的Record ID，这样即使出错也能直接拿到对应的ID。这种方式更安全，因为能确保错误发生时我们已经拿到了当前行的关键信息：

Sub FilterRows(Field As String, Values As Collection)
    Dim FinalRow As Long
    Dim KeepValue As Variant
    Dim Table As ListObject
    Dim TableRange As Range
    Dim i As Integer
    Dim currentRecordID As String ' 用于临时存储当前行的Record ID
    
    With Worksheets("原始資料")
        FinalRow = .Cells(Rows.Count, 1).End(xlUp).row
        On Error GoTo ErrorHandler
        Set Table = .ListObjects("Table1")
        Set TableRange = Table.Range
        For i = TableRange.Rows.Count To 1 Step -1
            ' 提前获取当前行的Record ID，存到临时变量
            currentRecordID = Intersect(TableRange.Rows.Item(i), Table.ListColumns("Record ID").Range).Value
            On Error Resume Next ' 临时开启错误捕获
            For Each KeepValue In Values
                If Intersect(TableRange.Rows.Item(i), Table.ListColumns(Field).Range).Value <> CStr(KeepValue) Then
                    TableRange.Rows.Item(i).Delete
                End If
            Next KeepValue
            If Err.Number <> 0 Then
                Debug.Print "Error Record ID:" & currentRecordID
                Debug.Print Err.Number; ":" & Err.Description
                Err.Clear
            End If
            On Error GoTo ErrorHandler ' 恢复原来的错误处理
        Next
    End With
    Exit Sub
ErrorHandler:
    Debug.Print Err.Number; ":" & Err.Description
    If Table Is Nothing Then
        Worksheets("原始資料").ListObjects.Add(xlSrcRange, Worksheets("原始資料").Range("A1:AK" & FinalRow), , xlYes).Name = "Table1"
        Set Table = Worksheets("原始資料").ListObjects("Table1")
    End If
    Resume Next
End Sub

额外提示 #

另外，你的删除逻辑可能存在偏差：当前代码里，只要当前行的字段值和集合里任意一个KeepValue不相等，就会删除该行。这会导致只有当字段值等于集合里所有值的时候才会保留，这大概率不是你想要的逻辑。正确的逻辑应该是：如果字段值不在集合的任何一个值里，才删除。你可以调整成这样：

' 替换原来的For Each循环逻辑
Dim shouldDelete As Boolean
shouldDelete = True
For Each KeepValue In Values
    If Intersect(TableRange.Rows.Item(i), Table.ListColumns(Field).Range).Value = CStr(KeepValue) Then
        shouldDelete = False
        Exit For ' 找到匹配值，无需继续循环
    End If
Next KeepValue
If shouldDelete Then
    TableRange.Rows.Item(i).Delete
End If

这样只有当字段值不在Values集合里时，才会删除该行，符合你描述的需求。

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