如何在VBA中循环用公式填充指定列范围的整行单元格？

方法1：批量赋值（推荐，无需循环） #

Excel的公式相对引用机制会自动适配单元格位置，直接给目标区域批量设置公式是最高效的方式，完全不用逐列循环。

假设需要给第6行的B列到当前工作表已使用区域的最后一列填充公式，代码如下：

Sub FillSumFormula()
    Dim targetRange As Range
    ' 定义目标区域：第6行，从B列到已使用区域的最后一列
    Set targetRange = ActiveSheet.Range("B6", ActiveSheet.Cells(6, ActiveSheet.UsedRange.Columns.Count))
    
    ' 方法1：用R1C1样式公式（更直观的同列引用）
    targetRange.FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
    ' 方法2：用A1样式公式，Excel会自动适配列
    ' targetRange.Formula = "=SUM(B4:B5)"
End Sub

• R1C1样式中，R[-2]C表示当前单元格向上2行的同列单元格，R[-1]C是向上1行的同列单元格，无论哪个列，公式都会自动引用对应列的4、5行。
• 用A1样式时，只需输入B列的公式，Excel会自动将其他列的公式调整为对应列的引用（比如C6会变成=SUM(C4:C5)）。

方法2：按列循环（需逐列处理场景） #

如果必须逐列操作，不用手动编写列字母数组，可通过列号循环结合Cells对象，或用列号转列字母的工具函数实现。

示例1：用列号+Cells对象循环

Sub FillSumFormulaLoop()
    Dim startCol As Integer, endCol As Integer
    Dim col As Integer
    
    startCol = 2 ' B列对应的列号是2
    endCol = ActiveSheet.UsedRange.Columns.Count ' 获取已使用区域的最后一列号
    
    For col = startCol To endCol
        ' 用R1C1样式直接设置公式，无需拼接地址
        ActiveSheet.Cells(6, col).FormulaR1C1 = "=SUM(R[-2]C:R[-1]C)"
        
        ' 或者用A1样式拼接地址
        ' ActiveSheet.Cells(6, col).Formula = "=SUM(" & Cells(4, col).Address(False, False) & ":" & Cells(5, col).Address(False, False) & ")"
    Next col
End Sub

示例2：列号转列字母的工具函数

如果需要用列字母拼接地址，可先定义一个列号转字母的函数，避免手动编写列数组：

' 列号转列字母的工具函数
Function ColNumToLetter(colNum As Integer) As String
    Dim div As Integer, modNum As Integer
    ColNumToLetter = ""
    Do While colNum > 0
        div = (colNum - 1) \ 26
        modNum = (colNum - 1) Mod 26
        ColNumToLetter = Chr(65 + modNum) & ColNumToLetter
        colNum = div
    Loop
End Function

' 循环填充公式
Sub FillSumFormulaWithLetter()
    Dim startCol As Integer, endCol As Integer
    Dim col As Integer, colLetter As String
    
    startCol = 2
    endCol = ActiveSheet.UsedRange.Columns.Count
    
    For col = startCol To endCol
        colLetter = ColNumToLetter(col)
        ActiveSheet.Range(colLetter & "6").Formula = "=SUM(" & colLetter & "4:" & colLetter & "5)"
    Next col
End Sub

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