如何在VBA公式中使用变量替换行号？

你的核心需求是在循环中把公式里的固定行号替换为当前循环变量R，同时让单元格保留公式而非计算结果，修正后的代码如下：

R = 6
Do Until R = LastRow
    If Range("Y" & R).Value > 0 Then
        ' 拼接动态行号的公式，确保开头带=号，补全公式结构
        Range("AZ" & R).Formula = "=U" & R & "*W" & R
    End If
    ' 必须递增循环变量，避免无限循环
    R = R + 1
Loop

关键说明： #

• 公式必须以=开头，这是Excel识别公式的标志，原代码漏写了开头的=和公式结构，导致公式无效
• 通过字符串拼接"=U" & R & "*W" & R，把变量R的值动态插入到行号位置，实现每一行对应自身行的U列和W列相乘
• 使用.Formula属性赋值，会让单元格保存完整的公式内容，Excel会自动计算公式结果，但单元格内依然保留公式结构
• 原代码缺少R = R + 1语句，会导致循环无法推进触发无限循环，必须补充这一步

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