如何加速采用For...If...结构的VBA行删除宏？

1. 批量删除而非逐行删除 #

逐行删除时，Excel每次都要重新调整工作表行结构，这是最大的性能瓶颈。先收集所有需要删除的行，再一次性执行删除操作：

Dim deleteRows As Range
Dim i As Long

Set deleteRows = Nothing
For i = 1 To IMAX - 1
    If Range("B" & IMAX - i).Value = 0 Then
        If deleteRows Is Nothing Then
            Set deleteRows = Rows(IMAX - i)
        Else
            Set deleteRows = Union(deleteRows, Rows(IMAX - i))
        End If
    End If
Next i

If Not deleteRows Is Nothing Then
    deleteRows.Delete Shift:=xlUp
End If

2. 关闭更多Excel后台消耗功能 #

除了ScreenUpdating = False，额外关闭以下功能减少后台操作：

Application.EnableEvents = False ' 禁用事件触发，避免不必要的宏/函数执行
Application.Calculation = xlCalculationManual ' 切换手动计算，避免每次操作重算公式
Application.DisplayAlerts = False ' 禁用警告弹窗，比如删除行的确认提示

注意：宏执行结束后必须恢复这些设置，避免影响后续操作：

Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True

3. 用数组读取数据，减少单元格交互 #

直接读取单元格值的IO开销大，先把B列数据读到数组中判断，再标记要删除的行：

Dim dataArr As Variant
Dim deleteRows As Range
Dim i As Long

' 把B列目标区域数据读到数组
dataArr = Range("B1:B" & IMAX).Value

Set deleteRows = Nothing
' 从下往上遍历数组（对应原代码的遍历顺序）
For i = IMAX - 1 To 1 Step -1
    If dataArr(i, 1) = 0 Then
        If deleteRows Is Nothing Then
            Set deleteRows = Rows(i)
        Else
            Set deleteRows = Union(deleteRows, Rows(i))
        End If
    End If
Next i

If Not deleteRows Is Nothing Then
    deleteRows.Delete Shift:=xlUp
End If

4. 利用筛选功能快速批量删除 #

借助Excel的筛选功能，一次性定位B列值为0的行再删除，代码简洁且高效：

With Range("B1:B" & IMAX)
    .AutoFilter Field:=1, Criteria1:=0
    ' 处理无符合条件行的情况
    On Error Resume Next
    .SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    .AutoFilter ' 取消筛选
End With

如果存在表头，调整代码排除表头行：

With Range("B1:B" & IMAX)
    .AutoFilter Field:=1, Criteria1:=0
    On Error Resume Next
    .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    On Error GoTo 0
    .AutoFilter
End With

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