如何编写根据迭代行动态更改公式的VBA代码？附现有代码求修正

嘿，我来帮你搞定这段VBA代码！你的思路完全没问题，但有两个小细节没处理好，导致代码没法正常工作，我来帮你修正并优化：

原代码的问题点 #

• 你直接用& c &拼接行号，但c是一个Range对象（代表单元格），不是行号数值，应该用c.Row来获取当前单元格的行号
• 公式里多写了一个右括号，IF函数的语法是IF(条件, 真值, 假值)，只需要一对括号，你写的))会导致公式报错

修正后的代码（循环版本） #

Sub DynamicFormulaInColumnG()
    Dim c As Range
    Dim targetRange As Range
    
    ' 精准获取G列有数据的区域（从G1到最后一个非空单元格）
    Set targetRange = Range("G1:G" & Cells(Rows.Count, "G").End(xlUp).Row)
    
    ' 遍历每个单元格设置动态公式
    For Each c In targetRange
        ' 用c.Row获取当前行号，动态拼接C列和B列的引用
        c.Formula = "=IF(C" & c.Row & ">0,2,B" & c.Row & ")"
    Next c
End Sub

更高效的批量赋值版本（推荐） #

如果你的数据量比较大，循环每个单元格会有点慢，其实Excel支持直接给整个区域批量设置公式，它会自动帮你调整相对引用的行号，效率高很多：

Sub DynamicFormulaInColumnG_Batch()
    Dim lastRow As Long
    
    ' 获取G列最后一个非空单元格的行号
    lastRow = Cells(Rows.Count, "G").End(xlUp).Row
    
    ' 直接给整个G列区域设置公式，Excel自动调整行号
    Range("G1:G" & lastRow).Formula = "=IF(C1>0,2,B1)"
End Sub

小说明 #

• 我把过程名改成了更清晰的DynamicFormulaInColumnG，方便你以后维护代码时一眼知道它的作用
• 用Cells(Rows.Count, "G").End(xlUp).Row获取最后一行比Range("G1").End(xlDown)更可靠，能避免G列中间有空单元格时遍历提前终止的问题

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