如何删除含N/A错误的行？需Excel打开自动运行宏（多表适配）

我有一个包含多工作表的Excel工作簿，需要实现打开时自动运行的宏，删除任意列中存在N/A错误的行。现有宏代码仅检查A列，需修改为适配任意列。

现有宏代码 #

Sub RowKiller()
    Dim N As Long, NN As Long
    Dim r As Range
    NN = Cells(Rows.Count, "A").End(xlUp).Row
    Dim wf As WorksheetFunction
    Set wf = Application.WorksheetFunction
    For N = NN To 1 Step -1
        Set r = Cells(N, "A")
        If wf.CountA(r) = 1 And wf.CountA(r.EntireRow) = 1 Then
            r.EntireRow.Delete
        End If
    Next N
End Sub

相关截图 #

列头截图：

需删除的错误行示例截图：

修改后的宏代码 #

Sub Auto_Open()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim i As Long, j As Long
    Dim wf As WorksheetFunction
    
    Set wf = Application.WorksheetFunction
    
    ' 遍历工作簿内所有工作表
    For Each ws In ThisWorkbook.Worksheets
        With ws
            lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
            lastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
            
            ' 从末行向上遍历，避免删除行导致索引偏移
            For i = lastRow To 1 Step -1
                ' 检查当前行的每一列
                For j = 1 To lastCol
                    ' 判断单元格是否为N/A错误
                    If IsError(.Cells(i, j)) And .Cells(i, j).Value = CVErr(xlErrNA) Then
                        .Rows(i).Delete
                        Exit For ' 找到目标错误后直接删除行，停止当前行的列检查
                    End If
                Next j
            Next i
        End With
    Next ws
End Sub

关键修改点说明 #

• 改用Auto_Open过程，满足工作簿打开自动运行的需求
• 新增工作表遍历逻辑，适配多工作表场景
• 自动获取当前工作表的最后列，无需指定固定列（如原代码的A列）
• 直接判断单元格是否为N/A错误（CVErr(xlErrNA)），逻辑更精准，解决原代码依赖CountA判断的局限性
• 保持从末行向上遍历的逻辑，避免删除行后导致的行索引错乱问题

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