Question

我有一列，我需要对总数进行求和并将其存储为变量。我在这个网站上和在线上都进行了浏览，并尝试使我的语法适应我认为它应该工作的方式，但是仍然没有运气。

我想知道是否有人可以指出我要去哪里。

Dim RowCount As Integer
Dim Total_TIV As Long

With Sheets("Input")
    RowCount = WorksheetFunction.CountA(Range("C18", Range("C18").End(xlDown)))
End With

With Sheets("Input")
    Total = WorksheetFunction.Sum("S18" & ":S" & 18 + RowCount)
End With

Answer 1

只返回范围底部的行。

您只需要一个带障碍物。

您需要将范围附加.js表示它属于父级。

SUM需要范围对象而不是字符串。

Answer 2

SUM（）需要一个范围（就像CountA()）：

  Total = WorksheetFunction.Sum(Range("S18" & ":S" & (18 + RowCount)))

VBA总和列具有可变的行数

2 个答案: