在vba中添加范围

Question

我有12列长的多列数字。行代表每个月的销售额。我想把每个月相加。有4列的月份要添加。你如何在Excel VBA中做到这一点？

在此链接中有我的代码图片：

Answer 1

如果你只想要总数，你可以这样做。无需创建单独的Range对象：

total = Application.Sum(Range("F21:F32,F35:F46,F49:F60,F63:F74"))

修改

如果需要将每个范围的相应索引相互添加，可以使用Offset()功能使事情变得更容易。例如：

For i = 0 To 11
    Debug.Print Application.Sum(Range("F21,F35,F49,F63").Offset(i))
Next

Answer 2

你需要使用vba吗？如果总有一定数量的数字要加起来，只需使用excel公式

 =SUM(A1:A12)