vba - 将另一个工作表中的单元格值赋给变量

Question

我无法应对以下问题。我在模块中有某些代码。当我在sheet2中时，此代码运行良好。当跳到sheet1并运行宏时，它会返回0.如果你能指出我所犯的错误，我会很感激。

Public Sub Test()

Dim ws As Worksheet
Dim cost As Double

Set ws = Sheets("Sheet1")

cost = Worksheets("Sheet2").Application.Sum(Range("A2:A10"))
MsgBox cost
ws.Range("C2") = cost

End Sub

Answer 1

因为你忘了把sheet2的名字放在范围前面（a2：a10）。并且无需在Applicaiton之前指定工作表名称。应该是这样的

cost = Application.Sum(Worksheets("Sheet2").Range("A2:A10"))