VBA 返回不同工作簿中范围值的总和

Question

我正在尝试在 Excel 工作表(我们称之为 wbA)中使用 VBA 来查找另一个工作簿(我们称之为 wbB)中一系列单元格中的值的总和。我尝试过使用定制的求和函数

Function sumrange(rng As Range)

summ = 0
For Each cell In rng
summ = summ + cell.Value
Next
sumrange = summ

End Function

我在此处的 wbA 中执行

Sub test4()
Dim app As New Excel.Application

Dim book As Excel.Workbook
Set book = app.Workbooks.Add("...\wbB.xlsm")

With book.Worksheets("November2013")

a = sumrange(Range("B5:T9"))

End With
MsgBox a
End Sub

这将返回 wbA 中设置范围的总和，而不是 wbB

我还尝试了以下格式的 worksheetfunction.sum 选项

l = book.Worksheets("November2013").Application.WorksheetFunction.Sum(Range(B5:T9"))

和

With book.Worksheets("December2014")
p = Application.WorksheetFunction.Sum(Range(B5:T9"))
End With

但两者都计算并返回 wbA 范围的总和，而不是 wbB

如何编写代码来查找 wbB 中的范围总和谢谢

Answer 1

对于那些仍在寻找单行解决方案的人:

Cells(10, 1) = WorksheetFunction.Sum(Worksheets("data").Range(Worksheets("data").Cells(3, 35), Worksheets("data").Cells(131, 35)))

刚刚从我的代码中获取它，它按单元格寻址范围，但您可以轻松使用 RANGE("...") 而不是 CELLS(,) 功能)。

上面的示例行将工作表“data”的总和 (range("AI3:AI131")) 写入当前工作表的 A10。