Question

对VBA和项目工作非常新。我有一个文件，其中包含50天（列）中1000个产品（行）的销售数据。

在最后一栏中，我想显示每天每个产品的总和。完成此任务的最佳方法是什么？我应该进行下一个循环吗？

这是我到目前为止所做的：

Sub testsum()

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

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

End Sub

我知道这是不对的，因为我得到所有1000种产品的销售总额50天，而不是每天都得到每种产品（行）的总和。

希望我在解释时并不困惑。谢谢！

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

Excel VBA：对行和列求和

1 个答案: