Come sommare i valori delle celle in una colonna fino a raggiungere una cella vuota?

Se hai un elenco di numeri popolato con alcune celle vuote, e ora, devi sommare i numeri sopra o sotto fino a celle vuote in questo elenco per ottenere i seguenti risultati. Esistono modi semplici o veloci per risolvere questo lavoro in Excel?

Somma i valori delle celle sotto fino a celle vuote con formula di matrice

Somma i valori delle celle sopra fino a celle vuote con codice VBA

Somma i valori delle celle sotto fino a celle vuote con formula di matrice

Per sommare i valori delle celle sottostanti fino a spazi vuoti, ecco una formula di matrice, per favore fai come segue:

1. Inserisci questa formula in una cella vuota accanto alla colonna dei numeri, E1, per esempio.

=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 sono le prime due celle della tua colonna, D17 è l'ultima cella vuota nella colonna del numero).

2. Quindi premere CTRL + MAIUSC + INVIO tasti insieme, quindi trascina il quadratino di riempimento verso il basso sulle celle in cui desideri sommare i numeri di seguito fino agli spazi vuoti, vedi screenshot:

Somma i valori delle celle sopra fino a celle vuote con codice VBA

Se è necessario sommare i valori delle celle sopra fino a celle vuote, il seguente codice VBA potrebbe farti un favore.

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.

Codice VBA: somma i valori delle celle sopra fino agli spazi vuoti:

Sub InsertTotals()
'Updateby Extendoffice
    Dim xRg As Range
    Dim i, j, StartRow, StartCol As Integer
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    StartRow = xRg.Row
    StartCol = xRg.Column
    For i = StartCol To xRg.Columns.Count + StartCol - 1
        For j = xRg.Row To xRg.Rows.Count + StartRow - 1
            If Cells(j, i) = "" Then
                Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
                StartRow = j + 1
            End If
        Next
        StartRow = xRg.Row
    Next
End Sub

3. Quindi premere F5 chiave per eseguire questo codice e viene visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di celle in cui desideri sommare le celle sopra fino a celle vuote, vedi screenshot:

4. Quindi fare clic OK pulsante, tutti i valori delle celle sopra le celle vuote sono stati aggiunti come mostrato nella seguente schermata: