如何在VBA循环中为Excel单元格公式动态插入循环变量i

我来帮你搞定这个VBA循环公式的问题~ 你原来的代码在拼接Excel公式字符串时，没有正确处理引号和连接符，导致生成的公式不符合Excel语法，下面是修正后的代码和详细说明：

正确的VBA代码 #

Sub ApplyFormulaLoop()
    Dim lastrow As Long
    Dim i As Long
    
    ' 请替换成你实际需要的lastrow取值逻辑，比如从某列获取最后一行
    lastrow = 10 ' 示例值，根据你的需求修改
    
    For i = 1 To lastrow
        ' 正确拼接Excel公式：用双引号转义公式里的引号，确保&连接符正确
        Range("X" & 13 + i).Formula = "=$H$10+" & i & "&"",""&B5+I" & i + 10 & "&"",""&(2*$D$2+$E$2)/2"
    Next i
End Sub

关键修正点说明 #

• 引号转义：在VBA中要生成Excel公式里的双引号，必须用两个连续的双引号""来转义，所以公式里的逗号分隔符需要写成&"",""&，这样Excel才能识别这是字符串连接的一部分。
• 连接符补充：原来的代码漏掉了Excel公式中用于字符串拼接的&符号，修正后确保每一段内容都通过&正确连接，符合Excel公式语法。
• 变量替换逻辑：你需要的$H$10+i和I(i+10)的替换逻辑已经正确实现，循环时i会自动替换对应数值，生成I11、I12...这样的单元格引用。

举个例子，当i=1时，生成的Excel公式为：
=$H$10+1&","&B5+I11&","&(2*$D$2+$E$2)/2
完全符合你想要的循环替换逻辑，运行后就能在X14、X15...等单元格生成对应格式的结果啦。

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