Подсчет суммы ячеек в выделенном диапазоне - 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

Оцени полезность:

13 голосов , оценка 4.077 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы