在变量中存储和

Question

我的代码如下：

For i = 1 To 15
X = Worksheets("Total Sales").Cells(i, 2)
sumTotSales = Application.WorksheetFunction.Sum(functionA(X))

Next i

函数循环遍历第2列中的所有单元格1-15，并将值提供给“functionA”，后者将其乘以百分比。我想在变量sumTotSales中保存这个的总和。但是，它只会保存最后一个值（i）而不是总和。当我让函数将每个值输出到电子表格中然后求和范围我可以将它保存在变量中但不是当我只是尝试直接将变量提供给它时​​。

如何获取变量以保存所有单元格的总和1-15？

由于

Answer 1

尝试sumTotSales = sumTotSales + Application.WorksheetFunction.Sum(functionA(X))。

这样，对于每个i，您将Application.WorksheetFunction.Sum(functionA(X))的结果添加到sumTotSales，而不是将sumTotSales设置为等于结果Application.WorksheetFunction.Sum(functionA(X))，这是您的代码目前正在做的事情。