Wie füge ich leere Zellen über / links in Excel automatisch zusammen?
In diesem Artikel werde ich über das automatische Zusammenführen leerer Zellen oben oder links sprechen (siehe Abbildung unten). Tatsächlich gibt es kein integriertes Dienstprogramm, das diese Aufgabe ausführen kann, aber die Makrocodes können dies.
Leerzeichen oben zusammenführen | ||
![]() |
![]() |
![]() |
Leerzeichen links zusammenführen | ||
![]() |
![]() |
![]() |
Füge leere Zellen oben basierend auf einer Spalte zusammen
Leere Zellen oben zusammenführen (funktioniert nur für eine Spalte)
Leere Zellen links zusammenführen
Füge leere Zellen oben basierend auf einer Spalte zusammen
Angenommen, es gibt einen Datenbereich in drei Spalten, und jetzt möchten Sie die obigen Daten basierend auf Spalte C zusammenführen.
1. Drücken Sie Alt + F11 keys, um die zu aktivieren Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
2. Fügen Sie dann den folgenden Code in das leere Skript ein. Siehe Screenshot:
VBA: Füge das leere Feld oben basierend auf der nächsten Spalte zusammen
Sub MergeCells()
'UpdatebyExtendoffice2017025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then
Range(xCell, xCell.Offset(-1, 0)).Merge
End If
Next
End Sub
3. Drücken Sie F5 Drücken Sie die Taste, um den Code auszuführen, und ein Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, einen zu verwendenden Bereich auszuwählen. Siehe Screenshot:
4 Klicken OK, dann wurden die leeren Zellen oben zusammengeführt. Siehe Screenshot:
Leere Zellen oben zusammenführen (funktioniert nur für eine Spalte)
Hier ist ein Makrocode, mit dem die leeren Zellen oben in der angegebenen Spalte zusammengeführt werden können.
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul. Siehe Screenshot:
2. Fügen Sie den folgenden Code in das Skript ein. Siehe Screenshot:
VBA: Leere Zellen oben zusammenführen
Sub mergeblankswithabove()
'UpdatebyExtendoffice20171025
Dim I As Long
Dim xRow As Long
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range (single column):", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count > 1 Then
MsgBox "Only work for single column", , "KuTools For Excel"
Exit Sub
End If
xRow = xRg.Rows.Count
Set xRg = xRg(xRow)
For I = xRow To 1 Step -1
Set xCell = xRg.Offset(I - xRow, 0)
Debug.Print xCell.Address
If xCell.Value = "" Then Range(xCell, xCell.Offset(-1, 0)).Merge
Next
End Sub
3. Drücken Sie F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie einen Spaltenbereich auswählen können. Siehe Screenshot:
4. Klicken Sie auf OK. Und die leeren Zellen in der Auswahl wurden oben zusammengeführt.
![]() |
![]() |
![]() |
Leere Zellen links zusammenführen
Wenn Sie leere Zellen links zusammenführen möchten, kann Ihnen der folgende Code einen Gefallen tun.
1. Drücken Sie Alt + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Anwendungsfenster und klicken Sie auf Insert > Modul. Siehe Screenshot:
2. Fügen Sie dann den folgenden Code in das leere Skript ein. Siehe Screenshot:
VBA: Leerzeichen links zusammenführen
Sub mergeblankswithleft()
'UpdatebyExtendoffice20171025
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select a range:", "KuTools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value = "" Then Range(xCell, xCell.Offset(0, -1)).Merge
Next
End Sub
3. Drücken Sie F5 Wenn Sie die Taste drücken, um den Code auszuführen, wird ein Dialogfeld angezeigt, in dem Sie einen Bereich auswählen können. Siehe Screenshot:
4 Klicken OK. Die leeren Zellen wurden links zusammengeführt.
Leerzeichen links zusammenführen | ||
![]() |
![]() |
![]() |
Führen Sie dieselben Zellen zusammen oder entfernen Sie die Zelle
|
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.

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!



