Excel VBA问询：高效实现单元格自加对应单元格值并批量处理的方法

针对你需要批量处理第2行单元格 = 自身值 + 同列第5行值的需求，以下是几种比重复单个单元格代码更高效的实现方式，同时修正了你原代码中未限定工作表对象的潜在问题：

方法1：循环遍历列（新手友好，逻辑清晰） #

适合列数不多、需要直观理解流程的场景，动态获取处理范围，不用硬编码列号：

Sub BatchAddWithLoop()
    Dim sht3 As Worksheet
    Dim col As Long
    Dim startCol As Long, endCol As Long
    
    Set sht3 = Sheets("Test")
    startCol = sht3.Range("C2").Column '设置起始列为C列
    endCol = sht3.Cells(2, sht3.Columns.Count).End(xlToLeft).Column '自动获取第2行最后一个有数据的列
    
    '遍历每一列进行计算
    For col = startCol To endCol
        sht3.Cells(2, col).Value = sht3.Cells(2, col).Value + sht3.Cells(5, col).Value
    Next col
End Sub

方法2：数组操作（大表格首选，性能最优） #

VBA中与工作表交互的开销远高于内存操作，用数组批量读写数据能大幅提升效率，尤其适合列数很多的情况：

Sub BatchAddWithArray()
    Dim sht3 As Worksheet
    Dim dataRow2 As Variant, dataRow5 As Variant
    Dim col As Long
    Dim startCol As Long, endCol As Long
    
    Set sht3 = Sheets("Test")
    startCol = sht3.Range("C2").Column
    endCol = sht3.Cells(2, sht3.Columns.Count).End(xlToLeft).Column
    
    '一次性读取第2行和第5行的目标列数据到数组
    dataRow2 = sht3.Range(sht3.Cells(2, startCol), sht3.Cells(2, endCol)).Value
    dataRow5 = sht3.Range(sht3.Cells(5, startCol), sht3.Cells(5, endCol)).Value
    
    '在内存中完成计算
    For col = 1 To UBound(dataRow2, 2)
        dataRow2(1, col) = dataRow2(1, col) + dataRow5(1, col)
    Next col
    
    '一次性将计算结果写回工作表
    sht3.Range(sht3.Cells(2, startCol), sht3.Cells(2, endCol)).Value = dataRow2
End Sub

方法3：公式批量赋值（代码最简洁） #

利用Excel的R1C1公式格式，一次性给所有目标单元格设置计算逻辑，再转换为静态值：

Sub BatchAddWithFormula()
    Dim sht3 As Worksheet
    Dim targetRange As Range
    
    Set sht3 = Sheets("Test")
    '确定需要处理的单元格范围：从C2到第2行最后一个非空单元格
    Set targetRange = sht3.Range("C2", sht3.Cells(2, sht3.Columns.Count).End(xlToLeft))
    
    '给整个区域设置公式：RC代表当前单元格，R5C代表同列第5行
    targetRange.FormulaR1C1 = "=RC+R5C"
    '将公式结果转换为静态值（可选，若保留公式可跳过此步）
    targetRange.Value = targetRange.Value
End Sub

原代码的注意点 #

你原来的代码中Range("C5")未指定sht3对象，若当前激活的不是"Test"工作表，会引用错误的单元格，所有操作都要明确限定工作表对象，避免此类问题。

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