Numere de sumă în selecție -

Rezumă toate numerele din regiunea selectată și plasează suma în „A1”

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterate through each cell in selection For Each cell In Selection' Adăugați valoarea variabilei sum sum = sum + cell.Value Celula următoare Celule (1, 1) = suma End Sub