如何在VBA中使用动态单元格引用批量应用公式？

你遇到的核心问题是手动拖动填充公式时Excel会自动调整相对引用，但循环单个单元格设置公式时如果写死了引用地址，就没法实现动态变化。下面给你几种高效的解决办法，比逐个循环单元格更靠谱：

方法1：直接给整个区域批量设置公式（推荐） #

不用逐个循环单元格，直接给目标区域设置Formula属性，Excel会自动像拖动填充一样处理相对引用，这是最简洁高效的方式。

举个例子，假设你要从第2行到第100行的B列应用公式，引用对应行的A列单元格：

Sub OQWDays()
    Dim oqs As Worksheet
    Set oqs = Sheets("SQL_IMPORT")
    
    ' 假设目标区域是B2:B100，公式引用同A列的单元格
    oqs.Range("B2:B100").Formula = "=A2*2" ' 这里的A2是相对引用，Excel会自动调整为A3、A4...
End Sub

这样设置后，B2的公式是=A2*2，B3会自动变成=A3*2，完全和手动拖动的效果一致。

方法2：如果必须循环单元格，用相对引用或Offset构建公式 #

如果你因为某些特殊需求必须逐个循环单元格，那需要在公式里使用相对引用，或者用Offset函数动态计算引用的单元格地址：

方式A：用R1C1样式的相对引用 #

R1C1引用样式天生适合动态调整，比如RC[-1]表示当前单元格左边一列的同单元格：

Sub OQWDays()
    Dim oqs As Worksheet
    Dim x As Long
    Set oqs = Sheets("SQL_IMPORT")
    
    For x = 2 To 100 ' 从第2行到第100行
        ' RC[-1] 代表当前单元格左侧1列的单元格（比如当前是Bx，就指向Ax）
        oqs.Cells(x, 2).FormulaR1C1 = "=RC[-1]*2"
    Next x
End Sub

方式B：用Offset动态拼接A1样式公式 #

通过Offset计算出要引用的单元格地址，再拼接成公式：

Sub OQWDays()
    Dim oqs As Worksheet
    Dim x As Long
    Dim targetCell As Range
    Set oqs = Sheets("SQL_IMPORT")
    
    For x = 2 To 100
        Set targetCell = oqs.Cells(x, 2)
        ' 引用当前单元格上方0行、左侧1列的单元格（即Ax）
        targetCell.Formula = "=" & targetCell.Offset(0, -1).Address(False, False) & "*2"
        ' Address(False, False) 生成相对引用地址，比如A2、A3...
    Next x
End Sub

为什么你的循环代码没生效？ #

大概率是你在循环时写了绝对引用（比如$A$2），或者直接写死了固定的单元格地址（比如A2）但没动态调整。比如如果你的代码是这样：

' 错误示例：固定引用A2，所有单元格公式都是=A2*2
For x = 2 To 100
    oqs.Cells(x, 2).Formula = "=A2*2"
Next x

这样所有单元格都会引用A2，自然没有动态效果。只要改成相对引用或者用上面的方法，就能解决问题。

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