Страницы: 1
RSS
Как сделать, чтобы автоматом менялся диапазон суммирования?
 
Необходимо найти сумму по участкам, количество ячеек везде разное, есть ли возможность не изменять диапазон суммирования вручную рядом с каждым "Итого:?
 
=СУММ($B$3:B10)-СУММЕСЛИ($A$3:A10;"Итого:";$B$3:B10)*2
 
Цитата
найти сумму по участкам
Код
Sub iSum()
Dim iLastRow As Long
Dim Rng As Range
 iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
     For Each Rng In Range("A3:A" & iLastRow).SpecialCells(2, 1).Areas
       Rng.Cells(Rng.Count + 1, 2) = WorksheetFunction.Sum(Rng.Offset(, 1))
     Next
End Sub
 
vikttur, Kuzmich, большое спасибо, оба варианта работают!
Kuzmich, если не трудно, можешь пошагово объяснить работу макроса, не совсем понял
 
Здесь на ''Вы'' с незнакомыми
Страницы: 1
Наверх