Excel VBA代码处理1000+单元格时失效假死问题求助

原代码在处理1000+单元格时卡顿甚至无响应，核心问题有两个：

1. 循环每个单元格时反复调用Selection.Replace，相当于对整个选区执行了上千次全局替换，完全没必要
2. 逐个单元格读写的IO操作在数据量较大时，会极大拖慢执行效率

下面是优化后的代码，改用内存数组处理，能大幅提升速度：

Sub TrimReplaceAndUppercase()
    Dim rng As Range
    Dim cellData As Variant
    Dim i As Long, j As Long
    
    Set rng = Selection
    ' 只处理无公式的常量单元格
    Set rng = rng.SpecialCells(xlCellTypeConstants)
    If rng Is Nothing Then Exit Sub
    
    ' 把选区数据一次性读到内存数组
    cellData = rng.Value
    
    ' 在内存中批量处理所有数据
    For i = LBound(cellData, 1) To UBound(cellData, 1)
        For j = LBound(cellData, 2) To UBound(cellData, 2)
            ' 依次完成大写转换、去首尾空格、替换横杠
            cellData(i, j) = UCase(Trim(cellData(i, j)))
            cellData(i, j) = Replace(cellData(i, j), "-", "")
        Next j
    Next i
    
    ' 一次性将处理好的数据写回单元格
    rng.Value = cellData
End Sub

优化说明 #

• 先筛选出无公式的常量单元格，跳过公式单元格和空值，减少无效处理
• 用数组一次性读取所有数据到内存，所有文本操作都在内存中完成，彻底避免频繁读写单元格的IO开销
• 把替换横杠的操作整合到数组循环里，消除原代码中重复全局替换的冗余逻辑
• 如果只需要处理文本型常量，可把xlCellTypeConstants改成xlCellTypeConstants, xlTextValues，进一步缩小处理范围

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