如何在VBA中的公式中插入变量

有人能解决这个问题吗？

Sub test

Dim i as integer

For I = 1 to 10
   ActiveCell.Offset(0, 2).Formula = "=Sum(E15,&i&)"
Next I

End Sub

你的实际目标不清楚

你可能想从这段代码开始

Sub test()
    Dim i As Integer

    For i = 1 To 10
       cells(i, 4).Formula = "=Sum(E" & i & ":E15)"
    Next
End Sub

并根据您的需求进行调整，并了解：

• 它当前写入单元格“D1：D10”

  since cells(i, 4)引用第四列中的单元格（即：“D”列）4 和i行，我们在一个循环中i正在循环 1 到 10

  so if:

  • 您想引用不同的列，然后只需更改4到正确的列索引

  • 您想引用不同的行然后只需更改i到正确的行索引（可能是一些i+2如果您需要迭代 1 到 10 但从行开始写入3)

• the formula这些单元格中写的是：

  =SUM(E1:E15) in D1,

  =SUM(E2:E15) in D2,

  ....

  =SUM(E10:E15) in D10.

  所以只要改变"=Sum(E" & i & ":E15)"根据您的实际需求