excel - 如何对列中的一系列单元格求和？

Question

这与不同工作表中的函数调用相关：

WorkSheets("Individual").Activate
Range("T6").End(xlDown).NumberFormat = "0.00"

Dim Total as Double
Total = WorksheetFunction.Sum(Range("T6"), Range("T6").End(xlDown)))

MsgBox CStr(Total)

当我在单元格 T7 和 T8 中填充了 10 和 15 的测试值时，它返回“0”。

我的意图是将 T6（标题）向下的值的活动范围相加。

作为测试，我添加了以下两行：

ActiveSheet.Range("T7").Select
MsgBox ActiveCell.Value

哪个正确返回 10。

标签： excelvba

Answer 1

尝试：

WorkSheets("Individual").Activate
Range("T6").End(xlDown).NumberFormat = "0.00"

Dim Total as Double
Total = WorksheetFunction.Sum(Range("T6").End(xlDown))

MsgBox CStr(Total)

如果这不起作用，请尝试：

WorkSheets("Individual").Activate
Range("T6").End(xlDown).NumberFormat = "0.00"

Dim Total as Double

Dim rEnd as range
rEnd = Range("T6").End(xlDown).Address
rSelect = "T6:" & rEnd
Total = WorksheetFunction.Sum(Range(rSelect))

MsgBox CStr(Total)

或者尝试对这一行稍作修改的第二个，如下所示：

Total = WorksheetFunction.Sum(rSelect)