如何加速VBA隐藏双零行脚本？2000+行工作表运行缓慢

嘿，咱们来搞定你那慢得离谱的VBA脚本！你现在的代码核心问题就是逐行循环+频繁界面操作——处理2000+行的时候这俩组合简直是性能杀手。下面是优化后的完整代码，运行起来秒完成，再给你拆解下关键的优化点：

优化后的代码 #

Sub HideDoubleZeors()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim filterRange As Range
    
    ' 先关闭Excel的几个耗时功能，大幅提升运行速度
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    For Each ws In ThisWorkbook.Worksheets
        ' 跳过指定的三个工作表
        Select Case ws.Name
            Case "Form1", "Form 2", "Form 3"
                ' 啥也不做，直接跳过
            Case Else
                With ws
                    ' 先取消之前的筛选，避免冲突
                    If .AutoFilterMode Then .AutoFilterMode = False
                    
                    ' 获取B列最后一行的行号
                    lastRow = .Range("B" & .Rows.Count).End(xlUp).Row
                    ' 定义筛选范围：B到D列，从第1行到最后一行
                    Set filterRange = .Range("B1:D" & lastRow)
                    
                    ' 应用自动筛选，匹配所有你需要的条件
                    With filterRange
                        ' B列不等于指定的两个值
                        .AutoFilter Field:=1, Criteria1:="<>" & "All Forms", Operator:=xlAnd, Criteria2:="<>" & "Week One All Forms"
                        ' C列等于0且非空
                        .AutoFilter Field:=2, Criteria1:="0", Operator:=xlAnd, Criteria2:="<>" & ""
                        ' D列等于0且非空
                        .AutoFilter Field:=3, Criteria1:="0", Operator:=xlAnd, Criteria2:="<>" & ""
                    End With
                    
                    ' 隐藏筛选出来的符合条件的行（跳过表头，假设第1行是表头）
                    On Error Resume Next ' 防止没有符合条件的行时报错
                    .Range("B2:D" & lastRow).SpecialCells(xlCellTypeVisible).EntireRow.Hidden = True
                    On Error GoTo 0
                    
                    ' 取消筛选，恢复工作表原样（除了隐藏的行）
                    .AutoFilterMode = False
                End With
        End Select
    Next ws
    
    ' 恢复Excel的默认设置
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

关键优化点 #

• 关闭Excel后台耗时操作：运行脚本前先关掉屏幕更新、事件触发和自动计算，避免Excel每操作一次就刷新界面或重新计算，这是VBA提速的基础操作，能省超多时间。
• 用AutoFilter批量处理替代逐行循环：逐行遍历是VBA处理大数据的大忌，AutoFilter是Excel原生的批量筛选功能，效率比循环高好几个数量级，2000+行基本瞬间完成。
• 移除冗余操作：原代码里的ws.Activate完全没必要，直接操作工作表对象就行；还有那个嵌套的For Each c In Range("B" & i)，其实就是单个单元格的循环，纯粹浪费资源，直接删掉。
• 增加容错处理：加了On Error Resume Next，防止没有符合条件的行时脚本报错崩溃，之后再恢复错误处理逻辑，保证脚本稳定运行。

小提示 #

如果你的数据没有表头（第1行就是数据），记得把代码里的.Range("B2:D" & lastRow)改成.Range("B1:D" & lastRow)，不然会漏掉第一行数据的处理。

内容的提问来源于stack exchange，提问作者Mike F.