Súčet čísel vo výbere

Sčítava všetky čísla vo vybranej oblasti a umiestňuje súč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. Hodnota Next cell Cells (1, 1) = sum End Sub