如何优化以下VBA代码提升运行效率？Do循环是否更快？需声明工作表吗？

循环类型对速度的影响 #

循环结构（For/Do Until/Do While）几乎不会影响代码运行速度。你当前代码的性能瓶颈在于频繁读写单个单元格，以及每次循环都重新计算目标表的最后一行——这些操作的开销远大于循环类型的差异。换用Do系列循环不会让代码变快，核心优化点不在这。

工作表声明的必要性 #

非常有必要，而且要彻底抛弃Select/Activate操作：

• 你代码里的Sheets("Sheet1").Select完全无用，激活工作表只会增加额外开销，还可能因当前工作表切换导致逻辑错误。
• 正确的做法是明确声明工作表对象，比如Dim wsSource As Worksheet，再通过Set wsSource = ThisWorkbook.Sheets("Sheet1")绑定，后续所有操作都通过这个对象引用，既安全又高效。

核心优化手段（直接提升运行效率） #

• 关闭Excel后台冗余操作：除了ScreenUpdating，还要关闭EnableEvents（避免触发工作表事件），并将计算模式设为手动，减少后台资源消耗。
• 用数组批量处理数据：这是VBA提速最有效的方法。把源表数据一次性读到数组中处理，再将结果一次性写入目标表，能大幅减少单元格交互的次数（单个单元格读写是VBA中最慢的操作之一）。
• 避免重复计算目标行：不要每次循环都调用LastRow2 = Sheet2.Cells(Rows.Count, 1).End(xlUp).Row + 1，初始时获取一次起始行，之后每写入一行就自增1即可。
• 明确变量类型：你的VendorID等变量未声明类型，默认是Variant，会增加内存开销和运算时间，建议根据实际数据类型声明（比如Dim VendorID As String, VendorAmount As Double）。
• 移除无用的Select操作：所有Select都可以替换为直接操作工作表对象，比如把Sheets("DATA").Select: Columns.AutoFit改成wsData.Columns.AutoFit。

优化后的完整代码 #

Sub OptimizedVendorTransfer()
    ' 声明工作表对象
    Dim wsSource As Worksheet, wsTarget As Worksheet, wsData As Worksheet
    Dim sourceData As Variant, outputData() As Variant
    Dim lastSourceRow As Long, outputRow As Long, i As Long
    
    ' 关闭后台特性，减少资源消耗
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    ' 绑定工作表对象（避免Select）
    Set wsSource = ThisWorkbook.Sheets("Sheet1")
    Set wsTarget = ThisWorkbook.Sheets("Sheet2")
    Set wsData = ThisWorkbook.Sheets("DATA")
    
    ' 清空目标表
    wsTarget.Cells.ClearContents
    
    ' 获取源表最后一行，并一次性读取所有数据到数组
    lastSourceRow = wsSource.Cells(wsSource.Rows.Count, 8).End(xlUp).Row
    sourceData = wsSource.Range("A1:O" & lastSourceRow).Value
    
    ' 初始化输出数组（最大容量为源表行数）
    ReDim outputData(1 To lastSourceRow, 1 To 8)
    outputRow = 1
    
    ' 遍历源数据数组
    For i = 1 To lastSourceRow
        ' 检查第13列非空且为数字
        If sourceData(i, 13) <> "" And IsNumeric(sourceData(i, 13)) Then
            ' 映射需要的列到输出数组
            outputData(outputRow, 1) = sourceData(i, 1)   ' VendorID
            outputData(outputRow, 2) = sourceData(i, 2)   ' VendorName
            outputData(outputRow, 3) = sourceData(i, 4)   ' VendorSite
            outputData(outputRow, 4) = sourceData(i, 5)   ' VendorInvoice
            outputData(outputRow, 5) = sourceData(i, 8)   ' VendorDate
            outputData(outputRow, 6) = sourceData(i, 10)  ' VendorPeriod
            outputData(outputRow, 7) = sourceData(i, 11)  ' VendorAmount
            outputData(outputRow, 8) = sourceData(i, 15)  ' VendorCheck
            outputRow = outputRow + 1
        End If
    Next i
    
    ' 将输出数组写入目标表（仅写入有数据的行）
    If outputRow > 1 Then
        wsTarget.Range("A1:H" & outputRow - 1).Value = outputData
    End If
    
    ' 恢复Excel默认设置
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    
    ' 自动调整DATA表列宽
    wsData.Columns.AutoFit
    MsgBox "DONE"
End Sub

优化效果说明 #

• 数组批量读写：将原本数百/数千次的单元格读写操作压缩为2次（读源表、写目标表），速度提升可达数倍甚至数十倍。
• 移除Select操作：彻底避免了工作表切换的开销，同时让代码逻辑更清晰，不易出错。
• 统一管理Excel状态：确保代码运行前后Excel恢复正常状态，不会影响用户后续操作。

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