如何优化这段VBA代码以提升运行效率？

你的代码功能正常但因逐单元格循环赋值导致运行偏慢，核心问题在于频繁的单元格读写操作和不必要的界面/计算开销。以下是优化后的代码，附带关键优化点说明：

优化后的代码 #

Option Explicit
Dim ShtNm As String
Dim ScRow As Long, ScCol As Long, DbCol As Long ' 修正变量声明，明确指定类型

Sub LoadMonth()
    Dim srcSheet As Worksheet
    Dim destSheet As Worksheet
    
    ' 开启性能优化开关，减少Excel后台开销
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    Application.Calculation = xlCalculationManual
    
    Set srcSheet = Sheet1
    With srcSheet
        .Calculate
        If .Range("B5").Value = "" Then AddNewSheet
        ShtNm = .Range("ScYear").Value
        DbCol = .Range("B5").Value ' First Column
        
        ' 提前获取目标工作表对象，避免循环中重复查找
        On Error Resume Next
        Set destSheet = ThisWorkbook.Sheets(ShtNm)
        On Error GoTo 0
        If destSheet Is Nothing Then
            MsgBox "目标工作表 " & ShtNm & " 不存在！"
            GoTo Cleanup
        End If
        
        ' 清空指定区域
        .Range("D6:J13,D15:J22,D24:J31,D33:J40,D42:J49,D51:J58,M4:M12").ClearContents
        
        ' 循环处理数据块
        For ScRow = 6 To 58 Step 9
            For ScCol = 4 To 10
                ' 跳过空值列，避免无效操作
                If .Cells(ScRow - 1, ScCol).Value = Empty Then GoTo NextCol
                
                ' 批量复制数据，替代逐单元格赋值
                .Range(.Cells(ScRow, ScCol), .Cells(ScRow + 7, ScCol)).Value = _
                    destSheet.Range(destSheet.Cells(2, DbCol), destSheet.Cells(9, DbCol)).Value
                
                DbCol = DbCol + 1
NextCol:
            Next ScCol
        Next ScRow
    End With

Cleanup:
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
    Application.Calculation = xlCalculationAutomatic
End Sub

关键优化点 #

• 性能开关前置：关闭屏幕更新、事件触发，设置手动计算，彻底减少Excel运行时的界面刷新和后台计算开销，这是VBA性能优化的基础操作。
• 提前获取工作表对象：把目标工作表Sheets(ShtNm)提前赋值给变量，避免循环中重复查找工作表，减少对象引用的耗时。
• 批量数据复制：将原代码中逐行给单元格赋值的逻辑，替换为整列区域的批量赋值，利用Excel内置的批量操作，速度比循环单个单元格快数倍。
• 修正变量声明：原代码中ScRow, ScCol默认是Variant类型，改为明确的Long类型，减少类型转换的性能损耗。
• 冗余操作精简：去掉重复的.Calculate调用，只保留必要的一次计算。

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