超10万行表格空白单元格填充指定值的高效实现方案求助

效率最优的两种实现方案 #

1. 无需代码的原生操作（适合单次处理，全程10秒内完成）

你之前用的逐次查找替换效率低，用Excel自带的定位空值功能可以一次性选中所有待填充单元格：

• 选中目标范围 B2:AB120000
• 按下F5打开「定位」窗口，点击「定位条件」，选择「空值」后确定，此时范围内所有空单元格会被统一选中
• 直接在顶部编辑栏输入0，按下Ctrl+Enter，所有选中的空单元格会一次性填充为0

2. 优化版VBA代码（适合需要重复执行的场景，300万单元格处理仅需数秒）

你原来的代码慢是因为逐单元格遍历读写，百万次和工作表的交互会严重拖慢速度，改用数组一次性读写+关闭Excel冗余功能的优化版本如下：

Sub FillBlankCellsFast()
    Dim ws As Worksheet
    Dim srcRng As Range
    Dim arr As Variant
    Dim i As Long, j As Long
    
    ' 关闭冗余功能提升运行速度
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    Set ws = Worksheets("Done")
    Set srcRng = ws.Range("B2:AB120000")
    ' 将整个范围的值一次性读入内存数组
    arr = srcRng.Value
    
    ' 内存中遍历数组替换空值，远快于操作工作表单元格
    For i = 1 To UBound(arr, 1)
        For j = 1 To UBound(arr, 2)
            If IsEmpty(arr(i, j)) Then
                arr(i, j) = 0
            End If
        Next j
    Next i
    
    ' 处理后的数组一次性写回工作表
    srcRng.Value = arr
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

如果需求简单，也可以直接调用VBA内置的替换方法，代码更简洁：

Sub FillBlankWithReplace()
    Application.ScreenUpdating = False
    Worksheets("Done").Range("B2:AB120000").Replace What:="", Replacement:="0", LookAt:=xlWhole
    Application.ScreenUpdating = True
End Sub

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