Excel VBA如何高效实现每10行分组批量追加单元格文本

逐段手写循环、逐单元格读写赋值的方式性能差，核心原因是VBA与工作表的单元格交互属于重IO操作，每次读写都会触发界面刷新、公式重算，几百行数据也会产生大量冗余开销；同时硬编码分段的方式完全没有扩展性，数据行数变化就需要手动改代码。 #

核心优化点 #

• 用内存数组替代逐单元格读写：一次性把所有待处理数据读入内存，所有计算逻辑在内存中完成，最后一次性把结果写回工作表，将单元格交互次数从上百次压缩到2次，性能提升可达数十到数百倍
• 用数学公式自动计算分组：不需要手动编写每一段的循环逻辑，通过行号自动计算所属分组和对应后缀，适配任意行数的数据
• 临时关闭Excel非必要功能：运行时关闭屏幕更新、自动计算，进一步减少冗余开销

可直接运行的优化代码 #

Sub AddGroupSuffix()
    Dim wrk As Workbook
    Dim sht As Worksheet
    Dim lastRow As Long
    Dim dataArr As Variant
    Dim i As Long
    Dim groupIndex As Long
    Dim suffix As String
    
    ' 临时关闭非必要功能提速
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    
    Set wrk = ActiveWorkbook
    Set sht = wrk.Worksheets(1)
    
    ' 自动识别A列最后一行有数据的位置，无需手动写死行数
    lastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row
    
    ' 一次性读取A列所有待处理数据到内存数组
    dataArr = sht.Range("A2:A" & lastRow).Value
    
    ' 遍历内存数组完成所有值的计算
    For i = 1 To UBound(dataArr, 1)
        ' 跳过空单元格
        If Not IsEmpty(dataArr(i, 1)) And Trim(dataArr(i, 1)) <> "" Then
            ' 计算当前行所属分组：每10行1组，从第0组开始
            groupIndex = Int((i - 1) / 10)
            ' 组序号转对应字母后缀：0对应A，1对应B，依次递增
            suffix = Chr(Asc("A") + groupIndex)
            ' 内存中直接修改值，不操作工作表
            dataArr(i, 1) = "D00112-" & suffix
        End If
    Next i
    
    ' 处理完成的结果一次性写回A列
    sht.Range("A2:A" & lastRow).Value = dataArr
    
    ' 恢复Excel默认设置
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
End Sub

适配说明 #

• 如果你的分组大小不是10行、起始行不是第2行、基础前缀不是D00112，直接修改代码中对应参数即可，无需调整循环结构
• 上述代码默认支持26个分组（对应后缀A-Z，共260行数据），如果数据量超过260行需要双字母后缀（AA/AB等），仅需替换后缀生成的逻辑即可
• 注：你贴出的原始代码存在笔误，第二个循环将分组值写入了B列，上述代码按示例需求统一给A列追加后缀，如果需要按分组写入不同列，调整写回范围的列参数即可

运行代码前建议先备份原始数据，避免误操作导致内容丢失。如果需要保留A列原始值，可将处理结果写入其他空白列，仅需修改最后写回的单元格范围。

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