Excel VBA代码执行耗时咨询：遍历21个工作表需4分钟

嘿，先直接给你结论——处理21个工作表花4分钟确实偏慢了，除非每个工作表都有几十万行的超大规模数据，否则这个时长完全可以大幅压缩。下面是几个针对性的优化方向，都是VBA里提升运行效率的实用手段：

这是所有耗时VBA的基础优化，先把这些默认开启的「拖后腿」功能关掉：

• 关闭屏幕更新：每次工作表变动都会刷新屏幕，这是隐形的性能杀手。在代码开头加上：Application.ScreenUpdating = False，记得代码结尾（哪怕出错）要恢复：Application.ScreenUpdating = True，最好配合错误处理语句确保恢复。
• 禁用自动计算：Excel默认会自动重新计算公式，操作过程中频繁计算会严重拖慢速度。开头先保存当前计算模式：CalcMode = Application.Calculation，然后设置为手动计算：Application.Calculation = xlCalculationManual，结尾再恢复：Application.Calculation = CalcMode。
• 禁用事件触发：如果你的工作表有事件代码（比如Worksheet_Change），操作时会反复触发这些事件，增加额外开销。开头加：Application.EnableEvents = False，结尾恢复：Application.EnableEvents = True。
• 切换到普通视图：分页预览模式下操作工作表的效率更低，你代码里已经用到了ViewMode变量，记得开头保存当前视图：ViewMode = ActiveWindow.View，然后切换到普通视图：ActiveWindow.View = xlNormalView，结尾再恢复回去。

你现在的代码应该是循环每一行/列判断后删除，这种逐行操作的效率极低——因为每次删除后Excel都要重新调整整个工作表的行号/列号。换成批量收集要删除的范围，一次性删除：
比如处理多余行的示例代码：

Dim deleteRows As Range
'从下往上循环（这点你已经做对了，必须保持，避免漏删）
For Lrow = Lastrow To Firstrow Step -1
    '这里替换成你的判断条件，比如判断单元格是否为空或符合删除规则
    If xWs.Cells(Lrow, 1).Value = "" Then
        If deleteRows Is Nothing Then
            Set deleteRows = xWs.Rows(Lrow)
        Else
            Set deleteRows = Union(deleteRows, xWs.Rows(Lrow))
        End If
    End If
Next Lrow
'最后一次性删除所有标记的行
If Not deleteRows Is Nothing Then deleteRows.Delete

删除列的逻辑完全同理，批量收集要删除的列后一次性删除，能把这部分的速度提升好几倍。

如果你的工作表数据量不小，直接操作单元格的速度非常慢——因为每次读写单元格都是和磁盘交互，换成内存数组操作会快N倍：

'把工作表数据读到内存数组里
Dim dataArr As Variant
dataArr = xWs.UsedRange.Value

'在数组里循环判断、处理（内存操作速度极快）
Dim i As Long
For i = LBound(dataArr, 1) To UBound(dataArr, 1)
    '你的判断逻辑，比如标记要删除的行
Next i

'处理完后把数组写回工作表（只需要一次磁盘操作）
xWs.UsedRange.Value = dataArr

这种方式把多次磁盘操作转换成一次读、一次写，中间的处理都在内存里完成，效率提升非常明显。

• 避免使用Select/Activate：很多新手习惯用Rows(Lrow).Select再Selection.Delete，这些选择操作完全没必要，直接对对象操作（比如xWs.Rows(Lrow).Delete）就能节省不少时间。
• 固定对象引用：尽量用你定义的xWs变量来引用工作表，不要反复用ActiveSheet或者全局的Cells，减少Excel解析对象路径的开销。

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