VBA删除含Dividend的过滤行时误删整张数据表问题咨询

问题根源 #

这个是VBA调用SpecialCells(xlCellTypeVisible)的经典坑：

• 现有代码的On Error Resume Next作用范围过宽，所有后续错误都会被静默忽略，无法捕捉「筛选后没有符合条件的可见行」的异常
• 当筛选后的可见行恰好只有第101行时，部分Excel版本会出现范围识别偏差，加上没有预先判断是否存在待删除的可见行，导致删除操作错误扩展到了整个表格范围
• 如果你的A1:G101是插入的正式结构化表格（ListObject），删除最后一行数据时Excel默认会连带删除整个表格结构，也会触发这个问题

修复后的代码 #

Sub Delete_rows_Dividends()
    Dim ws As Worksheet
    Dim delRng As Range
    
    For Each ws In Worksheets
        If ws.Name <> "Summary" And ws.Name <> "Dashboard" And ws.Name <> "Signals" Then
            ' 先清除已有筛选，避免旧规则干扰
            If ws.AutoFilterMode Then ws.AutoFilter.ShowAllData
            
            ' 应用Dividend筛选规则
            ws.Range("A1:G101").AutoFilter Field:=2, Criteria1:="*Dividend*"
            
            ' 仅临时忽略取可见行的错误，用完立刻恢复错误提示
            On Error Resume Next
            Set delRng = ws.Range("A2:G101").SpecialCells(xlCellTypeVisible)
            On Error GoTo 0
            
            ' 只有存在待删除行时才执行删除操作
            If Not delRng Is Nothing Then
                Application.DisplayAlerts = False
                delRng.Delete xlShiftUp ' 显式指定删除后单元格上移，避免版本差异问题
                Application.DisplayAlerts = True
                Set delRng = Nothing ' 清空变量避免影响下一个工作表循环
            End If
            
            ' 重置筛选
            If ws.AutoFilterMode Then ws.AutoFilter.ShowAllData
        End If
    Next ws
End Sub

核心优化说明 #

• 严格限定On Error Resume Next的作用范围，避免隐藏其他代码逻辑的异常
• 新增变量存储待删除范围，只有范围真实存在时才执行删除，从根源避免无匹配条件时的误删
• 删除时显式指定xlShiftUp参数，固定删除后的单元格偏移逻辑，消除Excel默认行为的版本差异
• 新增筛选状态预先检查，避免之前遗留的筛选规则干扰本次判断

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