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

Gehe zu Download
Kostenlose Testversion 60 Tage Kaufen Sie
PayPal / MyCommerce

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.

Lesen Sie mehr... Kostenfreier Download... Kauf...

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!