如何提升含多条件判断的VBA循环运行速度？

原代码运行慢的核心原因是频繁使用Select/Activate切换工作表、重复调用复制粘贴操作，以及循环内反复计算最后一行行数。下面是优化后的代码，以及具体的提速手段：

优化后的完整代码 #

Sub A1_GET_DATA()
    ' 关闭屏幕刷新和事件，大幅减少运行耗时
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    Dim ws1 As Worksheet, ws2 As Worksheet
    Dim LastRow1 As Long, targetRow As Long
    Dim i As Long
    
    ' 提前绑定工作表对象，避免反复切换
    Set ws1 = ThisWorkbook.Worksheets("Sheet1")
    Set ws2 = ThisWorkbook.Worksheets("Sheet2")
    
    ' 直接清空Sheet2，不用选中单元格
    ws2.Cells.ClearContents
    
    ' 获取Sheet1第7列的最后一行
    LastRow1 = ws1.Cells(ws1.Rows.Count, 7).End(xlUp).Row
    ' 初始化Sheet2的目标行计数器
    targetRow = 1
    
    For i = 14 To LastRow1
        ' 只处理第7列非空的行
        If ws1.Cells(i, 7).Value <> "" Then
            ' 直接复制整行到目标位置，替代Copy+Paste
            ws1.Rows(i).Copy ws2.Rows(targetRow)
            
            ' 处理第20列的内容
            If ws1.Cells(i - 1, 1).Value <> "" Then
                ws2.Cells(targetRow, 20).Value = ws1.Cells(i - 1, 1).Value
            Else
                ' 来源为空时，取上一行的第20列值（模拟原FillDown逻辑）
                If targetRow > 1 Then
                    ws2.Cells(targetRow, 20).Value = ws2.Cells(targetRow - 1, 20).Value
                End If
            End If
            
            targetRow = targetRow + 1
        End If
    Next i
    
    ' 恢复系统默认设置
    Application.ScreenUpdating = True
    Application.EnableEvents = True
End Sub

具体优化点 #

• 禁用屏幕刷新与事件：循环前关闭ScreenUpdating和EnableEvents，避免每次操作都刷新界面、触发不必要的Excel事件，这能直接砍掉大半耗时。
• 抛弃Select/Activate操作：通过绑定ws1、ws2工作表对象，全程不需要切换工作表、选中单元格——这是VBA提速的核心，Select/Activate是出了名的低效操作。
• 减少重复计算：用targetRow变量跟踪Sheet2的目标行，不用每次循环都重新查找最后一行，避免重复遍历单元格浪费资源。
• 替换Copy/Paste为直接操作：复制粘贴会占用剪贴板且流程繁琐，直接把整行复制到目标位置（或单元格直接赋值），效率提升明显。
• 修正变量类型：把Integer改为Long，Excel行数可能超过Integer的最大值（32767），避免溢出错误同时提升稳定性。
• 优化FillDown逻辑：原代码中选中单个单元格执行FillDown没有实际效果，这里改成直接取上一行的非空值，贴合实际需求。

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