Добрый день!
Есть два листа:
Sheet1 - исходные данные
Sheet2 - таблица, которую нужно заполнить
Нужно прописать в VBA макрос, который бы с помощью функции суммесли(sumif) выдавал данные сразу для 12 месяцев.
Получается прописать это для одного месяца:
Каким-то образом нужно прописать цикл для месяцев? Не могу одолеть
Есть два листа:
Sheet1 - исходные данные
Sheet2 - таблица, которую нужно заполнить
Нужно прописать в VBA макрос, который бы с помощью функции суммесли(sumif) выдавал данные сразу для 12 месяцев.
Получается прописать это для одного месяца:
Код |
---|
Sub Test() Dim Value, Name, Jan, i As Integer, nr As Integer nr = Worksheets("Sheet2").Cells.SpecialCells(xlLastCell).Row Name= "A:A" Jan = "B:B" For i = 2 To nr Value = Worksheets("Sheet2").Range("A" & i) Range("B" & i) = WorksheetFunction.SumIf(Worksheets("Sheet1").Range(Name), Value, Worksheets("Sheet1").Range(Jan)) Next i End Sub |
Каким-то образом нужно прописать цикл для месяцев? Не могу одолеть