解决VBA运行时错误‘5’：筛选后删除行的问题

我之前也碰到过一模一样的情况——逐行调试完全没问题，一整段跑就炸锅，大概率是批量执行时的环境和单步调试的状态不一样。咱们来拆解问题、搞定它：

问题场景

你运行这段宏时触发运行时错误‘5’（无效的过程调用或参数），但逐行执行一切正常：

Sub delete()
    Rng.AutoFilter Field:=8, Criteria1:=Array( _
        "ROCKFORD DSC", "MATTESON PLANT", "WHEELING PLANT"), _
        Operator:=xlFilterValues
    Rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End Sub

核心原因排查

1. Rng对象未明确初始化：如果你的代码里没提前用Set Rng = 具体范围（比如Set Rng = ActiveSheet.UsedRange或者Set Rng = ActiveSheet.ListObjects("你的表名").Range），单步调试时可能凑巧选中了正确范围，但批量运行时Rng是无效对象，直接调用AutoFilter就会报错。
2. 筛选后无可见数据行：如果筛选完除了表头没有其他可见行，SpecialCells(xlCellTypeVisible)找不到目标单元格，就会触发错误。单步调试时你可能刚好有符合条件的数据，或者手动调整过筛选状态。
3. 遗留筛选状态冲突：如果工作表之前有未清除的筛选，批量执行时新筛选可能无法正确应用，导致后续操作出错。

修复后的代码示例

我给你调整了代码，补上了对象初始化、错误处理和状态重置，应该能解决问题：

Sub DeleteFilteredRows()
    Dim Rng As Range
    Dim ws As Worksheet
    
    ' 指定目标工作表（替换成你的实际表名）
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    ' 初始化操作范围：这里用已用区域，你也可以指定表头所在的具体范围
    Set Rng = ws.UsedRange
    
    ' 先清除已有筛选，避免冲突
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' 应用筛选规则
    Rng.AutoFilter Field:=8, Criteria1:=Array( _
        "ROCKFORD DSC", "MATTESON PLANT", "WHEELING PLANT"), _
        Operator:=xlFilterValues
    
    On Error Resume Next ' 捕获无可见行的异常情况
    ' 仅删除表头之外的可见行
    Rng.Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0 ' 恢复默认错误捕获机制
    
    ' 最后清除筛选，保持工作表整洁
    ws.AutoFilterMode = False
End Sub

关键调整说明

• 明确指定工作表和操作范围，彻底避免Rng对象无效的问题
• 提前清除遗留筛选，确保新筛选规则能正确生效
• 加入错误捕获，处理筛选后无数据行的极端场景
• 执行完自动清除筛选，避免影响后续操作

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