So splitten Sie Zelleninhalte in mehrere Zeilen in Excel (Szenarien + Tools-Vergleich)

Schritt 2: Drücken Sie die Eingabetaste.

Methode 3: Power Query – Aufteilen und Zeilen erweitern (Microsoft 2016 und spätere Versionen)

Power Query ist ideal für strukturierte, wiederholbare Operationen. Es ist leistungsstark, aktualisierbar und eignet sich hervorragend für Stapeldaten-Transformationen.

Geeignet für: Sowohl Szenario 1 (Nur die Zielzelle aufteilen) als auch Szenario 2 (Zelle aufteilen und Daten anderer Spalten behalten)

Schritte: Nehmen Sie Szenario 1 (Nur die Zielzelle aufteilen) als Beispiel

Schritt 1: Wählen Sie Ihren Bereich aus, gehen Sie zu Daten > Abrufen und Transformieren > Aus Tabelle/Bereich.

an

Schritt 2: Klicken Sie im Fenster „Tabelle erstellen“ auf OK. (Wenn Ihr ausgewählter Bereich Überschriften hat, aktivieren Sie „Meine Tabelle hat Überschriften“.)

Schritt 3: Verwenden Sie im Power Query-Editor „Spalte nach Trennzeichen aufteilen“.

Schritt 4: Wählen oder geben Sie das Trennzeichen ein, und klicken Sie dann auf „Erweitert“, um die Optionen zu erweitern, wählen Sie „In Zeilen aufteilen“ und klicken Sie auf OK.

Schritt 5: Wählen Sie „Schließen & Laden > Schließen & Laden“ oder „Schließen & Laden unter“.

Die gleichen Schritte gelten für Szenario 2 (Zellen aufteilen und Daten anderer Spalten beibehalten) – sehen wir uns die Ergebnisse an.

Der Zielbereich der Zellen:

Ergebnis:

Hinweis: Wählen Sie im Power Query-Editor-Fenster nur die Zielspalte aus, die Sie in Zeilen aufteilen möchten, und klicken Sie dann unter „Spalte aufteilen“ auf „Nach Trennzeichen“.

Tipp: Fügen Sie Trim- und Clean-Schritte hinzu, um Leerzeichen oder Sonderzeichen zu korrigieren.

Methode 4: Kutools Plugin – Klicks zum Aufteilen

Wenn Sie häufig Zellen aufteilen und eine GUI-basierte Lösung bevorzugen, ist Kutools ein hervorragendes Werkzeug. Es vereinfacht komplexe Operationen in wenige Klicks.

Geeignet für: Sowohl Szenario 1 (Nur die Zielzelle aufteilen) als auch Szenario 2 (Zelle aufteilen und Daten anderer Spalten beibehalten)

Schritte: Szenario 1 (Nur die Zielzelle aufteilen)

Schritt 1: Wählen Sie die Zielzelle aus.

Schritt 2: Gehen Sie zu Kutools > Zusammenführen & Aufteilen > Zellen aufteilen.

Schritt 3: Wählen Sie „In Zeilen aufteilen“ und definieren Sie das Trennzeichen. Klicken Sie auf OK./p>

Schritt 4: Wählen Sie eine Zieldzelle aus. Klicken Sie auf OK.

Schritte: Szenario 2 (Zelle aufteilen und Daten anderer Spalten beibehalten)

Schritt 1: Wählen Sie die Spalte aus, die Sie in Zeilen aufteilen möchten.

Schritt 2: Gehen Sie zu Kutools > Zusammenführen & Aufteilen > Daten in Zeilen aufteilen.

Schritt 3: Definieren Sie das Trennzeichen. Klicken Sie auf OK.

Die gleichen Schritte gelten für Szenario 2 (Zellen aufteilen und Daten anderer Spalten beibehalten) – sehen wir uns die Ergebnisse an.

Der Zielbereich der Zellen:

Ergebnis:

Hinweis: Die 30-tägige Testversion bietet alle Funktionen zum Testen.

Methode 5: VBA-Skript – Volle kundenspezifische Kontrolle

Für Benutzer mit Programmierkenntnissen bietet VBA maximale Flexibilität. Sie können Skripte anpassen, um genau Ihrer Datenstruktur und Ihren Geschäftsregeln zu entsprechen.

Geeignet für: Sowohl Szenario 1 (Nur die Zielzelle aufteilen) als auch Szenario 2 (Zelle aufteilen und Daten anderer Spalten beibehalten)

Schritte:

Schritt 1: Drücken Sie Alt + F11, um den VBA-Editor zu öffnen.

Schritt 2: Klicken Sie auf Einfügen > Modul.

Schritt 3: Kopieren und fügen Sie das folgende VBA ein.

Szenario 1 – Nur die Zielzelle aufteilen

'Update by Extendoffice
Sub SplitCellToRows_Simple()
    Dim InputCell As Range
    Dim Values As Variant
    Dim i As Long

  
    Set InputCell = Range("A1") ' change A1 to your target cell

    Values = Split(InputCell.Value, ",") 
    For i = 0 To UBound(Values)
        InputCell.Offset(i, 1).Value = Trim(Values(i))
    Next i
End Sub

Szenario 2 – Zelle aufteilen und Daten anderer Spalten beibehalten

'Update by Extendoffice
Sub SplitRowsWithOtherColumns()
    Dim ws As Worksheet
    Dim LastRow As Long, i As Long
    Dim arr As Variant, j As Long
    Dim SplitVals As Variant
    Dim CurrentRow As Long

    Set ws = ActiveSheet
    LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    For i = LastRow To 2 Step -1
        If InStr(ws.Cells(i, 2).Value, ",") > 0 Then
            SplitVals = Split(ws.Cells(i, 2).Value, ",")

            For j = UBound(SplitVals) To 1 Step -1
                ws.Rows(i + 1).Insert Shift:=xlDown
                ws.Cells(i + 1, 1).Value = ws.Cells(i, 1).Value
                ws.Cells(i + 1, 2).Value = Trim(SplitVals(j))
            Next j

            ws.Cells(i, 2).Value = Trim(SplitVals(0))
        End If
    Next i
End Sub

Hinweis: Dieses VBA-Skript ist speziell so konfiguriert, dass es funktioniert, wenn sich Ihre Daten in den Spalten A bis B befinden und die aufzuteilenden Werte in Spalte B stehen.

💡Tipps:

• Sichern Sie Ihre Daten immer, bevor Sie ein Makro ausführen.
• Ersetzen Sie "," im Skript durch Ihr tatsächliches Trennzeichen (z. B. ";" für Semikolon oder "|" für Pipe-Zeichen), um es an das Format Ihrer Daten anzupassen.

Häufige Probleme

• Leere Zeilen oder Spalten: Normalerweise verursacht durch nachfolgende Trennzeichen oder versteckte Leerzeichen.
• Fehler in zusammengeführten Zellen: Heben Sie die Zusammenführung der Zellen auf, bevor Sie beginnen.
• Power Query aktualisiert sich nicht: Denken Sie daran, auf „Aktualisieren“ zu klicken, nachdem Sie die Quelldaten geändert haben.
• Falsches Trennzeichen: Ein Fehler zwischen Semikolon und Komma kann das gesamte Ergebnis beeinträchtigen.

Verwandte Artikel:

• Transpose-Bereich-Hilfsprogramm: Konvertieren Sie problemlos mehrere Zeilen in Spalten und Zeilen in Excel
• Einheitenkonverter-Tool: Konvertieren Sie schnell Dezimalzahlen in Binär/Oktal/Hexadezimal oder umgekehrt