Suma wybranych liczb -

Sumuje wszystkie liczby w wybranym regionie i umieszcza sumę w „A1”

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iteruj po każdej zaznaczonej komórce For Each cell In Selection' Dodaj wartość do zmiennej sum = sum + cell.Value Next cell Cells (1, 1) = sum End Pod