Добавление диапазонов в vba

Question

У меня есть несколько столбцов чисел каждые 12 строк. Строки представляют продажи в течение каждого месяца. Я хотел бы добавить каждый месяц. Есть 4 столбца месяцев, которые нужно добавить. Как вы это делаете в Excel VBA?

Существует фотография моего кода по этой ссылке:

Answer 1

вам нужно использовать VBA делать? если всегда есть определенное количество номеров, чтобы сложить, просто использовать формулу EXcel

=SUM(A1:A12) 

Answer 2

Если вы просто хотите, в общей сложности, вы можете сделать это. Нет необходимости создавать отдельные Range объектов:

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

Edit:

Если вам нужно добавить соответствующие показатели каждого диапазона друг с другом, вы можете использовать функцию Offset(), чтобы сделать вещи проще. Например:

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