VBA单元总数

Question

我想将Cells(2,6)到Cells(4,6)彼此求和。

这是我的代码：

kosten = WorksheetFunction.Sum(Range(Cells(2, 6), Cells(4, 6)))
Cells(3, 10) = kosten

但是输出是0，同时应该是1406。

有人可以帮我吗？

Answer 1

请尝试以下代码更改工作表：

Option Explicit

Sub LOf()

    Dim kosten As Double

    With ThisWorkbook.Worksheets("Sheet1") 'Change if needed
        kosten = Application.Sum(.Range(.Cells(2, 6), .Cells(4, 6)))
        .Range(3.10).Value=kosten
    End With

End Sub