如何用数组简化VBA代码提升效率？现有代码运行耗时久

首先，你的推测完全正确——频繁的单元格交互（比如逐行设置属性、使用Select）会触发Excel界面的反复刷新和计算，这正是代码运行缓慢的核心原因。VBA和Excel界面的交互开销极大，而数组操作是把数据读入内存后处理，能大幅减少这种开销，再配合一些通用的提速设置，应该能把运行时间压缩到几秒甚至更短。

先给你修正并优化后的完整代码，再逐一解释优化点：

Sub OptimizedFormatting()
    ' 第一步：关闭Excel的不必要功能，减少运行开销
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    Dim arRange As Range
    Dim rowHeights() As Double
    Dim i As Long
    
    ' 处理选中行的行高和垂直对齐
    Set arRange = Selection.Rows
    ReDim rowHeights(1 To arRange.Rows.Count)
    
    ' 先把原行高读入数组（如果所有行原行高相同，这步可以简化为直接批量设置）
    For i = 1 To arRange.Rows.Count
        rowHeights(i) = arRange.Rows(i).RowHeight + 12.5
    Next i
    
    With arRange
        .VerticalAlignment = xlTop ' 批量设置对齐方式，无需循环
        ' 批量设置新行高
        For i = 1 To .Rows.Count
            .Rows(i).RowHeight = rowHeights(i)
        Next i
    End With
    
    ' 处理ReportSummary工作表的空行隐藏
    Dim ws As Worksheet
    Dim bValues As Variant
    Dim targetRows As Range
    
    Set ws = ThisWorkbook.Sheets("ReportSummary")
    Set targetRows = ws.Range("4:26")
    ' 把B列的所有值一次性读入内存数组
    bValues = targetRows.Columns(2).Value
    
    ' 遍历数组判断，再设置行高
    For i = 1 To UBound(bValues, 1)
        If bValues(i, 1) = "" Then
            targetRows.Rows(i).RowHeight = 0
        End If
    Next i
    
    ' 处理F列的自动换行和自适应行高
    With ws.Range("F4:F26")
        .WrapText = True
        .EntireRow.AutoFit
    End With
    
    ' 最后恢复Excel的默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

关键优化点说明： #

1. 关闭不必要的Excel功能

   • ScreenUpdating = False：禁止Excel在每一步操作后刷新界面，这是提速最明显的设置之一
   • EnableEvents = False：避免触发工作表事件（比如Worksheet_Change），减少额外开销
   • Calculation = xlCalculationManual：暂时关闭自动计算，避免每次单元格修改都触发公式重算

2. 用数组替代逐单元格读取

   • 把ReportSummary表B列的所有值一次性读入数组bValues，之后在内存中遍历判断空值，比逐行访问Row1.Cells(1,2)快几十倍

3. 批量设置属性，避免无用循环

   • 垂直对齐、自动换行这类属性可以直接通过Range对象批量设置，不需要逐行循环
   • 行高如果需要逐行调整（因为原行高可能不同），先把值读入数组计算，再批量赋值，减少和Excel界面的交互次数

4. 彻底抛弃Select/Activate

   • 原代码中的Sheets("ReportSummary").Select完全多余，直接通过工作表对象操作Range即可，避免界面切换的开销

另外，原代码里的第二个For循环缺少End If，这会导致语法错误，优化后的代码已经修复了这个问题。

如果你的表格结构或者需求还有特殊细节，可以补充更多信息，我再帮你调整更贴合的方案~

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