如何在VBA中为Excel C列设置带单元格引用的IF公式

你的问题核心在于代码把单元格的数值赋值给了变量，而非保留单元格的引用地址。原来的代码里，a = c.Offset(0, -2)和b = c.Offset(0, -1)这两行是把A、B列对应单元格的数值存进了Integer变量，拼接公式时自然会用这些数值代替单元格引用。

下面是两种实用的修正方案：

方案1：使用A1样式的单元格地址 #

直接通过.Address属性获取单元格的引用地址，替代取值操作：

Dim c As Range
'// 遍历C列从C2开始的连续单元格
For Each c In Range(Range("C2"), Range("C2").End(xlDown))
    ' 拼接公式时使用单元格的A1地址，而非数值
    c.Formula = "=IF(" & c.Offset(0, -1).Address & ">0,2," & c.Offset(0, -2).Address & ")"
Next

方案2：使用R1C1相对引用（更简洁高效） #

Excel支持R1C1样式的公式，相对引用的写法更直观，尤其适合批量生成公式的场景：

Dim c As Range
'// 遍历C列从C2开始的连续单元格
For Each c In Range(Range("C2"), Range("C2").End(xlDown))
    ' RC[-1]代表当前单元格左侧1列（即B列），RC[-2]代表左侧2列（即A列）
    c.FormulaR1C1 = "=IF(RC[-1]>0,2,RC[-2])"
Next

这两种方案都会让C列单元格生成你想要的=IF(B2>0,2,A2)、=IF(B3>0,2,A3)这类带单元格引用的公式，而非用数值硬编码的版本。

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