Сумирани числа при избор -

Обобщава всички числа в избрания регион и поставя сумата в "А1"

Sub sum_selection () Dim cell As Range Dim sum As Double 'Итерирайте през всяка клетка в селекция За всяка клетка в селекция' Добавете стойността към променливата sum sum = sum + cell.Value Следваща клетка Cell (1, 1) = sum End Под