Excel VBA循环删除隐藏行过慢求助（72行耗时45秒）

原代码逐行判断并删除隐藏行的方式效率极低，因为每次删除操作都会触发Excel的界面重绘、公式计算等后台流程，哪怕行数不多也会大幅拖慢执行速度。以下是针对性的优化方案：

核心优化思路 #

• 禁用Excel的自动更新机制，减少后台开销
• 避免使用Activate/Selection这类低效的界面操作，直接通过对象引用操作工作表
• 利用SpecialCells方法批量定位并删除隐藏行，替代逐行循环

优化后的代码 #

Sub Exchange_Rates()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    ' 禁用Excel后台操作，提升速度
    With Application
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
        .EnableEvents = False
    End With
    
    ' 直接引用目标工作表，避免Activate
    Set ws = ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    
    ' 删除前3行
    ws.Rows("1:3").EntireRow.Delete
    
    ' 应用筛选
    ws.Range("A:BT").AutoFilter Field:=1, Criteria1:="USD"
    
    ' 批量删除所有隐藏行
    On Error Resume Next ' 防止没有隐藏行时报错
    ws.UsedRange.SpecialCells(xlCellTypeHidden).EntireRow.Delete
    On Error GoTo 0
    
    ' 恢复Excel默认设置
    With Application
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
        .EnableEvents = True
    End With
End Sub

代码说明 #

1. 禁用后台操作：通过ScreenUpdating关闭界面刷新，Calculation设为手动计算，EnableEvents禁用事件触发，这些设置能大幅减少代码执行时的系统开销。
2. 直接引用工作表：用ws对象直接操作目标工作表，避免Activate这类依赖界面状态的操作，既高效又避免潜在的错误。
3. 批量删除隐藏行：SpecialCells(xlCellTypeHidden)能一次性定位所有隐藏的单元格，再通过EntireRow.Delete批量删除，替代逐行循环，效率提升显著。加上On Error Resume Next是为了处理没有隐藏行的情况，避免代码报错。

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