Excel宏For循环填充90k行单元格过慢，求替代解决方案

你的问题核心是逐单元格读写导致的性能瓶颈——VBA和Excel界面每一次交互都有开销，9万行循环下来自然慢到离谱。下面给你几个秒级就能搞定的高效方案：

方案1：利用Excel内置功能的VBA实现（最快最简单） #

直接调用Excel的批量处理能力，代码只需要几次交互就能完成：

Sub FillBlanksFast()
    Dim targetRange As Range
    ' 定位D列有数据的区域
    Set targetRange = ActiveSheet.Range("D1:D" & ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row)
    
    ' 筛选出区域内的所有空单元格
    On Error Resume Next ' 防止没有空单元格时触发错误
    Set targetRange = targetRange.SpecialCells(xlCellTypeBlanks)
    On Error GoTo 0
    
    If Not targetRange Is Nothing Then
        ' 给所有空单元格批量设置公式，引用上方单元格
        targetRange.FormulaR1C1 = "=R[-1]C"
        ' 将公式转换为固定值
        targetRange.Value = targetRange.Value
    End If
End Sub

这个方法让Excel原生处理批量操作，9万行数据基本几秒就能完成，是最优解。

方案2：数组内存操作（适合复杂逻辑扩展） #

把整列数据读到内存数组里处理，再一次性写回工作表，彻底减少VBA与Excel的交互次数：

Sub FillBlanksWithArray()
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    
    lastRow = ActiveSheet.Cells(Rows.Count, 4).End(xlUp).Row
    ' 将D列数据加载到内存数组
    dataArr = ActiveSheet.Range("D1:D" & lastRow).Value
    
    ' 在数组内循环处理空值（内存操作无交互开销）
    For i = 2 To lastRow
        If dataArr(i, 1) = "" Then
            dataArr(i, 1) = dataArr(i - 1, 1)
        End If
    Next i
    
    ' 把处理后的数组一次性写回D列
    ActiveSheet.Range("D1:D" & lastRow).Value = dataArr
End Sub

虽然还是用了循环，但全程在内存中执行，速度比原代码快几百倍，9万行同样几秒搞定，适合后续需要扩展复杂判断的场景。

通用优化技巧（配合任何方案都能提速） #

不管用哪种方法，加上这些设置可以进一步减少不必要的开销：

Sub OptimizedFill()
    ' 关闭不必要的Excel功能，减少后台开销
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    ' 在这里插入上面的填充代码（比如FillBlanksFast的内容）
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

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