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 sopra fino a una cella vuota
Somma i valori delle celle sottostanti fino alla cella vuota
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:
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
