excel 如何在VBA中向公式中插入变量

c86crjj0 于 2022-11-26 发布在其他

关注(0)|答案(2)|浏览(470)

有人能解决这个问题吗？

Sub test

Dim i as integer

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

End Sub

2条答案

你的实际目标不明确
您可能希望从以下代码开始

Sub test()
    Dim i As Integer

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

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

由于cells(i, 4)引用第4列中的单元（即：列“D”）4和i行，我们在一个循环中，i在1到10之间循环
因此，如果：

D1中的=SUM(E1:E15)，
D2中的=SUM(E2:E15)，
....
D10中的=SUM(E10:E15)。
因此只需根据实际需要更改"=Sum(E" & i & ":E15)"

您已经接近了，尝试使用&符号（&）连接字符串。

ActiveCell.Offset(0, 2).Formula = "=Sum(E15," & i & ")"

在字符串之间使用“与”号来合并它们，而不是在字符串内部。