使用VBA宏删除表头外符合条件的可见行时出现报错

报错原因分析 #

从报错提示（1004运行时错误）和代码来看，主要问题集中在这几点：

• 语法错误：数组定义时换行没有添加续行符_，导致代码编译失败
• 依赖手动选中区域：Set rng = Selection完全依赖用户选中的范围，如果选中的区域不包含表头、范围不完整，会导致筛选/删除逻辑混乱
• 无匹配行时的报错：如果筛选后没有符合条件的可见行（除表头），执行SpecialCells(xlCellTypeVisible)会直接抛出1004错误
• 无效的区域引用：删除行后，原rng引用的区域会因为行删除而失效，后续操作会出错
• 不稳定的Active对象：使用Select和ActiveSheet容易因为工作表焦点变化导致逻辑异常

修复后的完整代码 #

Sub CleanAgingData()
    Dim ws As Worksheet
    Dim lastRow As Long, lastCol As Long
    Dim dataRng As Range
    
    ' 直接指定工作表，避免依赖Select/ActiveSheet
    Set ws = ThisWorkbook.Worksheets("Aging")
    
    ' 关闭屏幕刷新提升速度，避免闪烁
    Application.ScreenUpdating = False
    
    ' 清除原有筛选（如果存在）
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 获取完整数据区域（从A1到最后一行最后一列）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    lastCol = ws.Cells(1, ws.Columns.Count).End(xlToLeft).Column
    Set dataRng = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
    
    ' 第一次筛选：第6列匹配指定数组
    With dataRng
        .AutoFilter Field:=6, Criteria1:=Array("1200", "1301", "1302", "1303", "1304", _
                                              "1305", "1306", "1307", "1308", "1309"), _
                    Operator:=xlFilterValues
        
        ' 处理可见行删除：先判断是否有匹配行
        On Error Resume Next
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        
        ' 取消筛选
        ws.AutoFilterMode = False
    End With
    
    ' 重新获取数据区域（因为之前删除了行，范围已变化）
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    Set dataRng = ws.Range(ws.Cells(1, 1), ws.Cells(lastRow, lastCol))
    
    ' 第二次筛选：第11列小于60
    With dataRng
        .AutoFilter Field:=11, Criteria1:="<60"
        
        ' 同样判断后删除可见行
        On Error Resume Next
        .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
        On Error GoTo 0
        
        ' 取消筛选
        ws.AutoFilterMode = False
    End With
    
    ' 恢复屏幕刷新
    Application.ScreenUpdating = True
End Sub

关键修复说明 #

• 去掉Select/ActiveSheet依赖：直接引用工作表对象，避免因界面焦点变化导致的逻辑异常
• 自动定位完整数据区域：通过lastRow和lastCol自动获取包含表头的完整数据范围，无需手动选中
• 补全语法续行符：数组定义换行时添加_，解决编译报错问题
• 添加错误捕获机制：用On Error Resume Next处理无匹配行的场景，避免抛出1004错误
• 更新数据区域引用：每次删除行后重新定义dataRng，确保引用的是最新的有效区域
• 优化执行效率：关闭屏幕刷新减少界面闪烁，提升代码运行速度

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