Textzeichenfolgen nach Trennzeichen in mehrere Zeilen aufteilen - 3 schnelle Tricks

Normalerweise können Sie die Funktion "Text in Spalten" verwenden, um Zelleninhalte durch ein bestimmtes Trennzeichen wie Komma, Punkt, Semikolon, Schrägstrich usw. in mehrere Spalten aufzuteilen. Manchmal müssen Sie jedoch die durch Trennzeichen getrennten Zelleninhalte in mehrere Zeilen aufteilen und die Daten aus anderen Spalten wiederholen, wie im folgenden Screenshot gezeigt. Haben Sie gute Methoden, um diese Aufgabe in Excel zu bewältigen? Dieses Tutorial stellt einige effektive Methoden vor, um diese Aufgabe in Excel abzuschließen.

Video: Textzeichenfolgen nach Trennzeichen in mehrere Zeilen aufteilen

Methode A: Getrennten Text mit VBA-Code in mehrere Zeilen aufteilen

In diesem Abschnitt stelle ich zwei VBA-Codes vor, um dabei zu helfen, Zelleninhalte aufzuteilen, die durch ein bestimmtes Trennzeichen getrennt sind.

Durch Komma, Leerzeichen, Semikolon usw. getrennter Text

Um Textzeichenfolgen aufzuteilen, die durch normale Trennzeichen wie Komma, Leerzeichen, Semikolon, Schrägstrich usw. getrennt sind, kann der folgende Code Ihnen helfen. Bitte folgen Sie den untenstehenden Schritten:

 Hinweis: Dieser Code unterstützt kein Rückgängigmachen. Es ist besser, die Daten vor der Anwendung dieses Codes zu sichern.

Schritt 1: Öffnen Sie den VBA-Modul-Editor und kopieren Sie den Code

1. Aktivieren Sie das Blatt, das Sie verwenden möchten. Drücken Sie dann die Tasten "Alt" + "F11", um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie im geöffneten Fenster auf "Einfügen" > "Modul", um ein neues leeres Modul zu erstellen.

3. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Text nach bestimmtem Trennzeichen (Komma, Punkt, Leerzeichen usw.) aufteilen

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub
    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub   

Schritt 2: Führen Sie den Code aus, um das Ergebnis zu erhalten

1. Nachdem Sie den Code eingefügt haben, drücken Sie die Taste "F5", um diesen Code auszuführen. Dann erscheint ein Eingabefeld, das Sie auffordert, die Zellen mit dem getrennten Text auszuwählen, den Sie aufteilen möchten, siehe Screenshot:

2. Klicken Sie dann auf "OK". Ein weiteres Eingabefeld erscheint, das Sie auffordert, das Trennzeichen einzugeben, nach dem Sie die Daten aufteilen möchten. Hier gebe ich ein Komma und ein Leerzeichen (, ) ein, siehe Screenshot:

3. Klicken Sie abschließend auf die Schaltfläche "OK". Nun sehen Sie, dass die ausgewählten Textzeichenfolgen in Zeilen basierend auf dem Komma aufgeteilt wurden und andere relevante Spalten wiederholt werden, wie in den folgenden Screenshots gezeigt:

Durch Zeilenumbruch getrennter Text

Wenn Ihre Zelleninhalte durch Zeilenumbrüche getrennt sind, um sie in mehrere Zeilen aufzuteilen, gibt es hier einen weiteren VBA-Code, der Ihnen helfen kann.

 Hinweis: Dieser Code unterstützt kein Rückgängigmachen. Es ist besser, die Daten vor der Anwendung dieses Codes zu sichern.

Schritt 1: Öffnen Sie den VBA-Modul-Editor und kopieren Sie den Code

1. Drücken Sie die Tasten "Alt" + "F11", um das Fenster "Microsoft Visual Basic for Applications" zu öffnen.

2. Klicken Sie im geöffneten Fenster auf "Einfügen" > "Modul", um ein neues leeres Modul zu erstellen.

3. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das leere Modul ein.

VBA-Code: Text nach Zeilenumbruch aufteilen

Sub SplitTextIntoRows()
'UpdatebyExtendoffice
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Chr(10)
    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        xArr = Split(xRg, xSplitChar)
        xIndex = UBound(xArr)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xIndex)
            xIndex = xIndex - 1
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub 

Schritt 2: Führen Sie den Code aus, um das Ergebnis zu erhalten

1. Nachdem Sie den Code eingefügt haben, drücken Sie die Taste "F5", um diesen Code auszuführen. Wählen Sie im erscheinenden Feld die Zellen aus, die Sie aufteilen möchten, siehe Screenshot:

2. Klicken Sie dann auf die Schaltfläche "OK", die Daten in den ausgewählten Zellen werden in Zeilen aufgeteilt, wie im folgenden Screenshot gezeigt:

Methode B: In 10 Sekunden getrennten Text mit Kutools für Excel in mehrere Zeilen aufteilen

Wenn Sie "Kutools für Excel" installiert haben, können Sie mit der Funktion "In mehrere Zeilen aufteilen" Textzeichenfolgen durch beliebige von Ihnen angegebene Trennzeichen in mehrere Zeilen aufteilen. Gehen Sie dazu wie folgt vor:

Schritt 1: Wählen Sie die Funktion "In mehrere Zeilen aufteilen" aus

Klicken Sie auf "Kutools" > "Zusammenführen & Aufteilen" > "In mehrere Zeilen aufteilen", siehe Screenshot:

Schritt 2: Geben Sie die zu teilenden Datenzellen und das Trennzeichen an

Im erscheinenden Dialogfeld verwenden Sie die folgenden Optionen:

• 1). Wählen Sie die Liste der Zellen aus, die Sie aus dem Textfeld "Bereich (einzige Spalte)" aufteilen möchten;
• 2). Wählen Sie dann das Trennzeichen, das Ihre Daten trennt. Hier wähle ich "Andere" und gebe ein Komma und ein Leerzeichen (, ) in das Textfeld ein;
• 3). Klicken Sie abschließend auf die Schaltfläche "OK".

Nun wurden die ausgewählten Zellen mit durch Trennzeichen getrennten Textzeichenfolgen basierend auf dem spezifischen Trennzeichen in mehrere Zeilen konvertiert, siehe Screenshot:

 Tipps: Wenn Sie die Originaldaten wiederherstellen möchten, müssen Sie einfach Strg + Z drücken, um rückgängig zu machen.

Einfach zu benutzen? Interessiert an dieser Funktion? Bitte klicken Sie hier, um eine kostenlose Testversion für 30 Tage herunterzuladen.

Methode C: Getrennten Text mit Power Query in mehrere Zeilen aufteilen

Wenn Sie Office 365 oder Excel 2016 und spätere Versionen verwenden, ist "Power Query" ein leistungsstarkes Tool, das Ihnen hilft, getrennten Text in mehrere Zeilen oder Spalten aufzuteilen. Es ist nützlich, wenn Sie möchten, dass die aufgeteilten Daten aktualisiert werden, wenn sich Ihre Originaldaten ändern. Gehen Sie wie folgt vor, um dies abzuschließen:

Schritt 1: Holen Sie sich die Datentabelle in Power Query

1. Wählen Sie den Datenbereich aus, den Sie verwenden möchten, und klicken Sie dann auf "Daten" > "Aus Tabelle", siehe Screenshot:

 Tipps: In Excel 2019 und Office 365 klicken Sie auf Daten > Aus Tabelle/Bereich.

2. Klicken Sie im erscheinenden Dialogfeld "Tabelle erstellen" auf die Schaltfläche "OK", um eine Tabelle zu erstellen, siehe Screenshot:

3. Nun wird das Fenster "Power Query Editor" mit den Daten angezeigt, siehe Screenshot:

Schritt 2: Führen Sie die Transformationen in Power Query durch

1. Wählen Sie die Spalte aus, die Sie aufteilen möchten. Klicken Sie dann auf "Start" > "Spalte teilen" > "Nach Trennzeichen", siehe Screenshot:

2. Im Dialogfeld "Spalte nach Trennzeichen teilen":

Um Textzeichenfolgen durch Komma, Leerzeichen, Semikolon usw. zu teilen, gehen Sie wie folgt vor:

• 1). Wählen Sie das Trennzeichen, durch das Ihre Daten getrennt sind, aus der Dropdown-Liste "Trennzeichen auswählen oder eingeben";
• 2). Wählen Sie "Jedes Auftreten des Trennzeichens" im Abschnitt "Teilen bei";
• 3). Klicken Sie dann auf "Erweiterte Optionen", um den Abschnitt zu erweitern, und wählen Sie "Zeilen" unter "Aufteilen in";
• 4). Klicken Sie abschließend auf "OK", um dieses Dialogfeld zu schließen.

Um Textzeichenfolgen durch Zeilenumbruch in mehrere Zeilen aufzuteilen, gehen Sie wie folgt vor:

• 1). Wählen Sie "Benutzerdefiniert" aus der Dropdown-Liste "Trennzeichen auswählen oder eingeben";
• 2). Wählen Sie aus der Dropdown-Liste "Sonderzeichen einfügen" den Eintrag "Zeilenvorschub" aus, und die Zeichen "#(lf)" werden automatisch in das Textfeld unter "Benutzerdefiniert" eingefügt;
• 3). Wählen Sie "Jedes Auftreten des Trennzeichens" im Abschnitt "Teilen bei";
• 4). Klicken Sie dann auf "Erweiterte Optionen", um den Abschnitt zu erweitern, und wählen Sie "Zeilen" unter "Aufteilen in";
• 5). Klicken Sie abschließend auf "OK", um dieses Dialogfeld zu schließen.

3. Nun wurde die ausgewählte Daten in mehrere Zeilen aufgeteilt, wie im folgenden Screenshot gezeigt:

Schritt 3: Exportieren Sie die Power Query in eine Excel-Tabelle

1. Und dann sollten Sie die Daten in Ihr Arbeitsblatt exportieren. Klicken Sie auf "Start" > "Schließen & Laden" > "Schließen & Laden / Schließen & Laden in" (hier klicke ich auf "Schließen & Laden"), siehe Screenshot:

 Tipps: Durch Klicken auf "Schließen & Laden" werden die Daten in ein neues Arbeitsblatt exportiert; Durch Klicken auf die Option "Schließen & Laden in" werden die Daten in ein beliebiges anderes Blatt exportiert, das Sie benötigen.

2. Schließlich werden die Daten in ein neues Arbeitsblatt geladen, siehe Screenshot:

 Tipps: Wenn Sie Ihre Daten in der Originaltabelle häufig aktualisieren müssen, machen Sie sich keine Sorgen. Sie müssen nur mit der rechten Maustaste auf die Ergebnistabelle klicken und auf "Aktualisieren" klicken, um dynamisch das neue Ergebnis zu erhalten.

Verwandte Artikel: