Підсумовані числа у виділенні -

Підсумовує всі цифри у вибраному регіоні та поміщає суму в "А1"

Sub sum_selection () Вимірювати комірку як діапазон Dim sum As Double 'Перебирайте кожну комірку у виділенні Для кожної комірки у виділенні' Додайте значення до змінної sum sum = sum + cell.Value Наступна комірка комірки (1, 1) = sum End Під