Come sommare i valori delle celle in una colonna fino a incontrare una cella vuota?
Se hai un elenco di numeri con alcune celle vuote e devi sommare i valori sopra o sotto ciascuna cella vuota per ottenere i risultati desiderati, esistono metodi rapidi e semplici per farlo in Excel?
Somma i valori delle celle sopra fino alla cella vuota
Somma i valori delle celle sotto fino alla cella vuota
Somma i valori delle celle sotto fino alle celle vuote con una formula matriciale
Somma i valori delle celle sopra fino alle celle vuote con codice VBA
Somma i valori delle celle sotto fino alle celle vuote con una formula matriciale
Per sommare i valori delle celle sottostanti fino alla prima cella vuota, utilizza la seguente formula matriciale. Procedi nel modo seguente:
1. Inserisci questa formula in una cella vuota accanto alla colonna dei tuoi numeri, ad esempio E1.
=IF(D1=«»,SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1 e D2 sono le prime due celle della tua colonna; D17 è l’ultima cella vuota nella colonna dei numeri).
2. Premi quindi contemporaneamente i tasti Ctrl + Maiusc + Invio, poi trascina il quadratino di riempimento verso il basso fino alle celle vuote per sommare automaticamente i numeri sottostanti. Vedere lo screenshot:
Somma i valori delle celle sopra fino alle celle vuote con codice VBA
Se devi sommare i valori delle celle sovrastanti fino alla prima cella vuota, il seguente codice VBA potrebbe esserti utile.
1. Tieni premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic, Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nella finestra del Modulo.
Codice VBA: Somma i valori delle celle sopra fino alle celle vuote:
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. Premi quindi il tasto F5 per eseguire il codice. Si aprirà una finestra di dialogo che ti chiederà di selezionare l’intervallo di celle da sommare fino alle celle vuote. Vedere lo screenshot:
4. Fai quindi clic sul pulsante OK: tutti i valori delle celle sopra quelle vuote verranno sommati, come mostrato nello screenshot seguente:
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi