处理88K行数据的VBA代码运行缓慢，如何优化提速？

原代码问题分析 #

原代码通过For Each cell逐单元格遍历88K行数据，每次单元格读写都会触发Excel底层交互，这是运行速度极慢的核心原因。另外代码里的Application.screen = False是语法错误，正确写法为Application.ScreenUpdating = False，且该语句位置错误，应放在代码开头生效。

优化方案 #

以下几个关键优化点可大幅提升运行速度：

• 批量关闭Excel后台功能：执行代码前关闭屏幕更新、事件触发和自动计算，避免不必要的资源消耗，代码结束后恢复这些设置。
• 用内存数组处理数据：将目标列数据一次性读入内存数组，在数组内完成判断和赋值，最后一次性写回工作表，彻底减少与工作表的交互次数。
• 明确指定工作表：避免使用ActiveSheet，直接指定具体工作表对象，减少歧义同时提升稳定性。

优化后的代码 #

Sub AddtextOptimized()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    
    ' 指定具体工作表，替换为你的工作表名称
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    
    ' 关闭后台功能，减少资源消耗
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    
    ' 获取D列最后一行行号
    lastRow = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
    
    ' 将D17到E列最后一行的数据读入内存数组
    dataArr = ws.Range("D17:E" & lastRow).Value
    
    ' 遍历数组处理数据
    For i = LBound(dataArr, 1) To UBound(dataArr, 1)
        If dataArr(i, 1) = 0 Then
            dataArr(i, 2) = "OK - No Differences"
        End If
    Next i
    
    ' 将处理后的数组一次性写回工作表
    ws.Range("D17:E" & lastRow).Value = dataArr
    
    ' 恢复Excel后台功能
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
End Sub

代码说明 #

1. 指定工作表：把Sheet1替换为你实际使用的工作表名称，避免依赖活动工作表。
2. 数组处理：一次性读取D、E两列数据到数组，在内存中完成判断和赋值，相比逐单元格操作，速度提升几十甚至上百倍。
3. 后台功能恢复：必须在代码结束时恢复屏幕更新、事件和自动计算，避免影响Excel正常使用。

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