如何在 VBA 中使用求和函数，我正在尝试下面的部分，但似乎不起作用。
temp=Application.run("Sum",range("A1").value,range("A2").value)
Range("A1").value=temp
即 如果 A1=3 且 A2=3 我希望最终值为 9。
【问题讨论】：
抱歉，速度太快了，应该是 3*3 的总和
所以你不想要总和，而是单元格的乘积。
使用WorksheetFunction.Product(Range, Range2,.....) 代替sum，该函数允许多个范围作为参数。
【讨论】：
根据我的测试，请尝试如下 VBA 代码：
Sub sum()
Dim myRange As Range
Dim tmp As Long
Set myRange = Worksheets("Sheet1").Range("A1:A2")
tmp = Application.WorksheetFunction.sum(myRange)
Worksheets("Sheet1").Range("A3") = tmp
End Sub
更多信息请看：WorksheetFunction.Sum Method
【讨论】：
使用
Application.WorksheetFunction.Sum(Range("A1"),Range("A2"))
请注意，如果您没有在前面说明工作表名称，那么它将隐式使用当前的 Activesheet，这可能并不总是您想要的。
您可以使用 With 语句来提供父工作表参考，例如
With ThisWorkbook.Worksheets("Sheet1")
temp = Application.WorksheetFunction.Sum(.Range("A1"),.Range("A2"))
End With
您在之前的问题中似乎注意到：3+3 是 6。
如果你想要乘法，那么做：
temp = .Range("A1") * .Range("A2")
或者，
temp = Application.WorksheetFunction.Product(.Range("A1") ,.Range("A2"))
Application.Run 用于按名称运行宏并传递所需的参数。除非您有一个名为 "Sum" 的宏，否则我对编译的那一行感到惊讶。我也不喜欢以函数命名的宏。这令人困惑。使用如上所示的WorksheetFunction 方法既好又清晰。
【讨论】：
你也可以试试这个。
Sub Sum_num()
Dim temp As Integer
temp = Range("A1") + Range("A2")
MsgBox temp
End Sub
【讨论】：