Сумма чисел в выборке -

Суммирует все числа в выбранном регионе и помещает сумму в "A1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Проходить по каждой ячейке в выделении For Each cell In Selection' Добавить значение в переменную sum sum = sum + cell.Значение Следующая ячейка Cells (1, 1) = sum End Sub