Note: The other languages of the website are Google-translated. Back to English

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    
doc merge blank oben links 1 doc Pfeil rechts doc merge blank oben links 2

 Leerzeichen links zusammenführen    
doc merge blank oben links 3 doc Pfeil rechts doc merge blank oben links 4

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.
doc merge blank oben links 1

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:
doc merge blank oben links 5

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

doc merge blank oben links 6

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:
doc merge blank oben links 7

4 Klicken OK, dann wurden die leeren Zellen oben zusammengeführt. Siehe Screenshot:
doc merge blank oben links 2


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:
doc merge blank oben links 9

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

doc merge blank oben links 10

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:
doc merge blank oben links 11

4. Klicken Sie auf OK. Und die leeren Zellen in der Auswahl wurden oben zusammengeführt.

doc merge blank oben links 12 doc Pfeil rechts doc merge blank oben links 13

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:
doc merge blank oben links 14

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

doc merge blank oben links 15

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:
doc merge blank oben links 16

4 Klicken OK. Die leeren Zellen wurden links zusammengeführt.

 Leerzeichen links zusammenführen    
doc merge blank oben links 3 doc Pfeil rechts doc merge blank oben links 4

Führen Sie dieselben Zellen zusammen oder entfernen Sie die Zelle

doc zusammenführen aufheben

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.
kte tab 201905

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!
officetab unten
Kommentare (3)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
es funktioniert nicht :) Excel 365
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke fürs Teilen, es ist so nützlich für mich.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Vielen Dank!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL