VBA实现A、B、C列同时存在#N/A时删除整行的代码问题求助

原代码问题梳理 #

• 未实现逐行判断A、B、C三列同时为#N/A的核心逻辑，原逻辑只要单元格存在错误就会删除整行，不符合需求
• 直接对整列A:C做错误判断逻辑无效，IsError无法直接判断多单元格区域的错误状态
• 未按照删除行的最优逻辑从下往上遍历，会出现行号偏移漏判的问题
• 不必要的工作表激活操作会降低运行效率，且未在开头关闭屏幕更新

修复后可直接运行的代码 #

Sub CleanNA()
    Dim wsNames As Variant
    Dim ws As Worksheet
    Dim lastRow As Long, i As Long
    Dim wsName As Variant
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    ' 你需要处理的工作表名称列表
    wsNames = Array("Sheet 1", "Sheet 2", "Sheet 3")
    
    For Each wsName In wsNames
        Set ws = ThisWorkbook.Sheets(wsName)
        ' 获取当前工作表已使用的最大行号
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
        
        ' 从最后一行往上遍历，避免删除行导致的行号偏移
        For i = lastRow To 1 Step -1
            ' 先判断三个单元格都是错误，再判断都是#N/A类型错误
            If IsError(ws.Cells(i, "A").Value) And IsError(ws.Cells(i, "B").Value) And IsError(ws.Cells(i, "C").Value) Then
                If ws.Cells(i, "A").Value = CVErr(xlErrNA) And ws.Cells(i, "B").Value = CVErr(xlErrNA) And ws.Cells(i, "C").Value = CVErr(xlErrNA) Then
                    ws.Rows(i).Delete
                End If
            End If
        Next i
    Next wsName
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "符合条件的#N/A行已清理完成"
End Sub

代码说明 #

• 新增了错误类型判断，仅识别#N/A类型的错误，不会把#VALUE!、#DIV/0!等其他错误当成符合条件的行处理
• 从下往上遍历行，避免删除上方行后下方行号上移导致的漏判问题
• 不需要激活工作表，直接通过工作表对象引用操作，运行效率更高
• 增加了边界判断，只遍历有数据的行，不会对空行做无效判断

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