你的问题核心在于直接提取了单元格的数值，而非单元格的地址引用。原代码里a = c.Offset(0, -1)和b = c.Offset(0, -2)是把B列、A列单元格的具体数值赋值给变量，拼接公式时自然就变成了固定数字，而非动态的单元格引用。

要解决这个问题，你需要调用单元格的Address属性来获取对应的单元格地址（比如B2、A2），这样拼接出来的公式就能保留引用关系，而非固定值。

修改后的代码方案 #

方案一：使用变量存储地址（可读性更好）

Dim c As Range
Dim aAddr As String
Dim bAddr As String

' 遍历C列从C2到最后一行的非空单元格
For Each c In Range(Range("C2"), Range("C2").End(xlDown))
    bAddr = c.Offset(0, -1).Address ' 获取当前单元格左侧1列（B列）的地址
    aAddr = c.Offset(0, -2).Address ' 获取当前单元格左侧2列（A列）的地址
    c.Formula = "=IF(" & bAddr & ">0,2," & aAddr & ")" ' 拼接带引用的公式
Next

方案二：直接拼接地址（更简洁）

可以省去变量，直接在公式里调用Address属性，代码更紧凑：

Dim c As Range
For Each c In Range(Range("C2"), Range("C2").End(xlDown))
    c.Formula = "=IF(" & c.Offset(0, -1).Address & ">0,2," & c.Offset(0, -2).Address & ")"
Next

方案三：批量设置公式（性能最优）

如果数据量较大，循环逐个设置公式效率较低，推荐直接给整个C列区域一次性设置公式——Excel会自动将引用相对调整到对应行：

Dim lastRow As Long
lastRow = Range("C2").End(xlDown).Row
Range("C2:C" & lastRow).Formula = "=IF(B2>0,2,A2)"

这种方式不仅代码更简洁，运行速度也比循环快很多。

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