Подсчет суммы ячеек в выделенном диапазоне - VBA
Формулировка задачи:
Как сделать чтобы выделенный диапазон суммировался и записывался ячейкой ниже?
Решение задачи: «Подсчет суммы ячеек в выделенном диапазоне»
textual
Листинг программы
Sub test()
Dim i1&, i2&, i3$: i1 = Selection.Range("A1").Row
i2 = Selection.Rows.Count: i3 = Split(Selection.Address, "$")(1)
Range(i3 & i1 + i2).Formula = "=SUM(" & i3 & i1 & ":" & i3 & i1 + i2 - 1 & ")"
End Sub