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
Suma wybranych liczb -
Spisie treści
Sumuje wszystkie liczby w wybranym regionie i umieszcza sumę w „A1”
