Hur beräknar man summan av värden i en kolumn excel med hjälp av visual basic?

Alternativ Explicit

' Deklarera intervallvariabel.

Dim rng As Range

' Initiera intervallvariabel.

rng =Range("A1:A10")

' Initiera summavariabel.

Dim sum As Long

summa =0

' Beräkna summan av värden i intervallet.

För varje cell I rng

summa =summa + cell

Nästa cell

' Visa summan av värden inom intervallet.

Debug.Print "Summan av värdena i intervallet A1:A10 är" &summa

```