Wie summiere ich Zellwerte in einer Spalte, bis eine leere Zelle erreicht ist?
Wenn Sie eine Liste von Zahlen haben, die mit einigen leeren Zellen gefüllt sind, und jetzt müssen Sie die Zahlen oben oder unten bis zu leeren Zellen in dieser Liste summieren, um die folgenden Ergebnisse zu erhalten. Haben Sie schnelle oder einfache Möglichkeiten, diesen Job in Excel zu lösen?
Summieren Sie die obigen Zellenwerte bis zur leeren Zelle
Summieren Sie die Zellenwerte unten bis zur leeren Zelle
Summieren Sie die Zellenwerte unten, bis leere Zellen mit der Array-Formel vorliegen
Summieren Sie die obigen Zellenwerte bis zu leeren Zellen mit VBA-Code
Summieren Sie die Zellenwerte unten, bis leere Zellen mit der Array-Formel vorliegen
Um die folgenden Zellenwerte bis zum Leerzeichen zu summieren, gehen Sie wie folgt vor: Gehen Sie wie folgt vor:
1. Geben Sie diese Formel in eine leere Zelle neben Ihrer Zahlenspalte ein. E1, beispielsweise.
=IF(D1="",SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1, D2 sind die ersten beiden Zellen in Ihrer Spalte, D17 ist die letzte leere Zelle in der Zahlenspalte).
2. Dann drücken Strg + Umschalt + Enter Tasten zusammen und ziehen Sie dann den Füllgriff nach unten zu den Zellen, in denen Sie die Zahlen bis zum Leerzeichen summieren möchten (siehe Abbildung):
Summieren Sie die obigen Zellenwerte bis zu leeren Zellen mit VBA-Code
Wenn Sie die obigen Zellenwerte bis zu leeren Zellen summieren müssen, kann der folgende VBA-Code Ihnen einen Gefallen tun.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Summen Sie die Zellenwerte oben bis Leerzeichen:
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. Dann drücken F5 Drücken Sie die Taste, um diesen Code auszuführen, und es erscheint ein Eingabeaufforderungsfeld, das Sie daran erinnert, den Zellbereich auszuwählen, den Sie oben summieren möchten, bis leere Zellen vorhanden sind, siehe Screenshot:
4. Dann klick OK Klicken Sie auf die Schaltfläche, alle Zellwerte über den leeren Zellen wurden wie im folgenden Screenshot angezeigt addiert:
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!