Excel VBA：对行和列求和答案

【问题标题】：Excel VBA: Summing rows and columnsExcel VBA：对行和列求和
【发布时间】：2018-06-30 12:41:15
【问题描述】：

对 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 种产品的销售额总和，而不是只获得所有天的每个产品（行）的总和。

希望我在解释时没有混淆。谢谢！

【问题讨论】：

您是否尝试过使用数据透视表？甚至是普通的表格，只要把公式对最后一列的每一行产品求和，每次插入新的一天，公式就会更新

标签： vba excel

【解决方案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

【讨论】：