Sottosomma_selection () Dim cell As Range Dim sum As Double 'Itera attraverso ogni cella nella selezione Per ogni cella nella selezione' Aggiungi il valore alla variabile sum sum = sum + cell.Value Next cell Cells (1, 1) = sum End Sub
Somma i numeri nella selezione -
Somma tutti i numeri nella regione selezionata e inserisce la somma in "A1"