Čísla součtu ve výběru -

Sečte všechna čísla ve vybrané oblasti a umístí součet do „A1“

Sub sum_selection () Dim cell As Range Dim sum As Double 'Iterate through each cell in selection For each cell In Selection' Add the value to the variable sum sum = sum + cell.Value Next cell Cells (1, 1) = sum End Sub