在vba中添加范围

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

在这个链接有一个我的代码的图片：

Answer 1

如果你只是想要的总数，你可以做到这一点。 不需要创build单独的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)