vba - Excel VBA : Summing rows and columns

Question

对 VBA 非常陌生，正在处理一个项目。我有一个文件，其中包含 50 天内 1000 种产品(行)的销售数据(列)。

在最后一列中，我想显示每天每种产品的总金额。实现这一目标的最佳方法是什么？我应该执行 for-next 循环吗？

这是我到目前为止所拥有的:

Sub testsum()

Worksheets("Sheet1").Range("BJ1") = "Sum"

Range("BJ2:BJ1001").Value = Application.WorksheetFunction.Sum(Range("B2:BI1001"))

End Sub

我知道这是不对的，因为我获取的是 50 天内所有 1000 种产品的销售额总和，而不是仅获取所有天数中每种产品(行)的总销售额。

希望我在解释时没有感到困惑。谢谢!

Answer 1

您可以循环遍历所有 1000 行，也可以使用 Excel 公式进行计算，然后将值设置为计算出的值。

使用公式的方法:

Sub testsum()    
    Worksheets("Sheet1").Range("BJ1") = "Sum"

    With Worksheets("Sheet1").Range("BJ2:BJ1001")
        .Formula = "=SUM(B2:BI2)"
        .Value = .Value
    End With
End Sub