如何提升VBA中Concatenate函数拼接代码的运行速度？

嘿，这个问题我太熟了！逐个单元格写入公式的操作在数据量大的时候确实会拖慢运行速度——毕竟每一次和Excel工作表的交互都是耗时的。给你几个亲测有效的优化思路，按效率从易到难排序：

1. 先关闭Excel的自动刷新机制 #

在代码执行前关闭屏幕更新、自动计算和事件触发，能避免每次写入公式时都触发不必要的刷新，这是最基础的优化：

Sub OptimizeConcatenate()
    Dim ws As Worksheet
    Dim i As Long, lastRow As Long
    
    Set ws = ActiveSheet ' 或者指定你的工作表，比如ThisWorkbook.Sheets("Sheet1")
    
    ' 关闭Excel的耗时功能
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    Application.EnableEvents = False
    
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    i = 2
    Do While i <= lastRow
        ws.Cells(i, 1).Formula = "=CONCATENATE(C" & i & ", D" & i & ")"
        i = i + 1
    Loop
    
    ' 恢复默认设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    Application.EnableEvents = True
End Sub

2. 批量填充公式，彻底告别循环 #

Excel的公式支持相对引用，完全不需要逐个单元格构建公式！直接找到数据的最后一行，一次性给整个区域赋值公式，Excel会自动帮你调整行号，这比循环快太多：

Sub BatchFormulaConcatenate()
    Dim ws As Worksheet
    Dim lastRow As Long
    
    Set ws = ActiveSheet
    
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    ' 直接给A2到AlastRow的区域赋值公式，相对引用会自动适配每行
    ws.Range("A2:A" & lastRow).Formula = "=CONCATENATE(C2, D2)"
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

这个方法能把循环的时间成本降到几乎为0，大数据量下速度提升非常明显！

3. 直接写入值而非公式（效率天花板） #

如果后续不需要保留公式，只需要拼接后的文本结果，那直接操作内存数组是最快的方案——把数据读到内存数组里处理，再一次性写回工作表，全程只和工作表交互两次：

Sub ArrayBasedConcatenate()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant, resultArr As Variant
    Dim i As Long
    
    Set ws = ActiveSheet
    
    lastRow = ws.Cells(ws.Rows.Count, 2).End(xlUp).Row
    ' 把C、D列的数据读到数组里（从第2行到lastRow）
    dataArr = ws.Range("C2:D" & lastRow).Value
    ' 初始化结果数组，和源数据行数一致
    ReDim resultArr(1 To UBound(dataArr, 1), 1 To 1)
    
    ' 在内存里循环拼接
    For i = 1 To UBound(dataArr, 1)
        resultArr(i, 1) = dataArr(i, 1) & dataArr(i, 2)
    Next i
    
    ' 把结果一次性写回A列
    ws.Range("A2:A" & lastRow).Value = resultArr
End Sub

这个方案的效率是最高的，因为内存操作比单元格操作快几个数量级，几万行数据几秒就能搞定！

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