Normalerweise können Sie die Funktion „Text in Spalte“ verwenden, um Zellinhalte durch ein bestimmtes Trennzeichen wie Komma, Punkt, Semikolon, Schrägstrich usw. in mehrere Spalten aufzuteilen. Aber manchmal müssen Sie den Inhalt der durch Trennzeichen getrennten Zellen in mehrere Zeilen aufteilen und wiederholen Sie die Daten aus anderen Spalten, wie im folgenden Screenshot gezeigt. Haben Sie gute Möglichkeiten, diese Aufgabe in Excel zu erledigen? Dieses Tutorial stellt einige effektive Methoden vor, um diesen Job in Excel abzuschließen.

Video: Textzeichenfolgen durch Trennzeichen in mehrere Zeilen aufteilen

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

In diesem Abschnitt stelle ich zwei VBA-Codes vor, die dabei helfen, den Zellinhalt aufzuteilen, der durch ein bestimmtes Trennzeichen getrennt ist.

Teilen Sie Text getrennt durch Komma, Leerzeichen, Semikolon usw.

Um die Textzeichenfolgen aufzuteilen, die durch ein normales Trennzeichen wie Komma, Leerzeichen, Semikolon, Schrägstrich usw. getrennt sind, kann Ihnen der folgende Code einen Gefallen tun. Bitte befolgen Sie die folgenden Schritte:

 Hinweis: Dieser Code nicht Support Rückgängig machen, sollten Sie die Daten besser sichern, bevor Sie diesen Code anwenden.

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

1. Aktivieren Sie das Blatt, das Sie verwenden möchten. Und dann drücken Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im geöffneten Fenster auf Insert > 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 durch bestimmtes Trennzeichen teilen (Komma, Punkt, Leerzeichen usw.)

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 bitte F5 Schlüssel, um diesen Code auszuführen. Dann erscheint eine Eingabeaufforderung, um Sie daran zu erinnern, die Zellen auszuwählen, die den durch Trennzeichen getrennten Text enthalten, den Sie teilen möchten, siehe Screenshot:

2. Klicken Sie dann auf OK, wird ein weiteres Eingabeaufforderungsfeld eingeblendet, um Sie daran zu erinnern, das Trennzeichen einzugeben, auf dessen Grundlage Sie die Daten aufteilen möchten. Hier gebe ich ein Komma und ein Leerzeichen (, ) ein, siehe Screenshot:

3. Klicken Sie zum Schluss auf OK Taste. Jetzt sehen Sie, dass die ausgewählten Textzeichenfolgen basierend auf dem Komma in Zeilen aufgeteilt werden und andere relative Spaltendaten wiederholt werden, wie in den folgenden Screenshots gezeigt:

Durch Zeilenumbruch getrennten Text teilen

Wenn Ihre Zelleninhalte durch Zeilenumbrüche getrennt sind, um sie in mehrere Zeilen aufzuteilen, ist hier ein weiterer VBA-Code, der Ihnen helfen kann.

 Hinweis: Dieser Code nicht Support Rückgängig machen Sie sollten die Daten besser sichern, bevor Sie diesen Code anwenden.

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

1. Drücken Sie Alt + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im geöffneten Fenster auf Insert > 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 durch Zeilenumbruch teilen

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 bitte F5 Schlüssel, um diesen Code auszuführen. Wählen Sie im eingeblendeten Feld die Zellen aus, die Sie teilen möchten, siehe Screenshot:

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

Method B: 10s to split delimited text into multiple rows by Kutools for Excel

Wenn Sie installiert haben Kutools for ExcelMit seinen Daten in Zeilen aufteilen Mit dieser Funktion können Sie die Textzeichenfolgen durch ein beliebiges von Ihnen festgelegtes Trennzeichen in mehrere Zeilen aufteilen. Bitte führen Sie die folgenden Schritte aus:

Schritt 1: Wählen Sie die Funktion „Daten in Zeilen aufteilen“.

Klicken Sie Kutoolen > Zusammenführen & Teilen > Daten in Zeilen aufteilen, siehe Screenshot:

Schritt 2: Geben Sie die Datenzellen und das Trennzeichen für die Aufteilung an

Verwenden Sie im eingeblendeten Dialogfeld die folgenden Optionen:

• 1). Wählen Sie die Liste der Zellen aus, die Sie trennen möchten Bereich (einzelne Spalte) Textfeld;
• 2). Wählen Sie dann das Trennzeichen, das Ihre Daten trennt, hier wähle ich Andere und geben Sie ein Komma und ein Leerzeichen (, ) in das Textfeld ein;
• 3). Endlich klicken OK .

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

 Tips: Wenn Sie die Originaldaten wiederherstellen möchten, müssen Sie nur drücken Strg + Z zum rückgängig machen.

Einfach zu verwenden? Bitte interessieren Sie sich für diese Funktion Klicken Sie zum Herunterladen, um eine kostenlose Testversion für 30 Tage zu erhalten.

Methode C: Teilen Sie durch Power Query getrennten Text in mehrere Zeilen auf

Wenn Sie Office 365 oder Excel 2016 und höhere Versionen ausführen, Power Query ist ein leistungsstarkes Tool, mit dem Sie durch Trennzeichen getrennten Text in mehrere Zeilen oder Spalten aufteilen können. Dies ist nützlich, wenn Sie möchten, dass die geteilten Daten aktualisiert werden, wenn sich Ihre ursprünglichen Daten ändern. Bitte führen Sie die folgenden Schritte aus, um es 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:

 Tips: Klicken Sie in Excel 2019 und Office 365 auf Daten > Aus Tabelle/Bereich.

2. Im herausgesprungenen Tabelle erstellen Dialogfeld, klicken Sie auf OK Schaltfläche zum Erstellen einer Tabelle, siehe Screenshot:

3. Jetzt die Power Query Herausgeber Fenster mit den Daten wird angezeigt, siehe Screenshot:

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

1. Wählen Sie die Spalte aus, die Sie teilen möchten. Und dann klicken Sie Home > Spalte teilen > Durch Trennzeichen, siehe Screenshot:

2. In dem Spalte nach Trennzeichen teilen Dialogbox:

Um die Textzeichenfolgen durch Komma, Leerzeichen, Semikolon usw. aufzuteilen, gehen Sie bitte wie folgt vor:

• 1). Wählen Sie das Trennzeichen, durch das Ihre Daten getrennt werden Trennzeichen auswählen oder eingeben Dropdown-Liste;
• 2). Wählen Jedes Vorkommen des Trennzeichens von dem Aufteilen um Sektion;
• 3). Dann klick Erweiterte Optionen , um den Abschnitt zu erweitern, und wählen Sie aus Reihen unter dem Aufgeteilt in;
• 4). Endlich klicken OK um dieses Dialogfeld zu schließen.

Um Textzeichenfolgen per Link Break in mehrere Zeilen aufzuteilen, gehen Sie bitte wie folgt vor:

• 1). Wählen Maßgeschneidert von dem Trennzeichen auswählen oder eingeben Dropdown-Liste;
• 2). Von dem Sonderzeichen einfügen Drop-Down, klick Zeilenvorschub, und die Charaktere #(lf) wird in das Textfeld unter eingefügt Maßgeschneidert automatisch;
• 3). Wählen Jedes Vorkommen des Trennzeichens aus dem Abschnitt Split;
• 4). Dann klick Erweiterte Optionen , um den Abschnitt zu erweitern, und wählen Sie aus Reihen unter dem Aufgeteilt in;
• 5). Endlich klicken OK um dieses Dialogfeld zu schließen.

3. Jetzt wurden die ausgewählten Daten in mehrere Zeilen aufgeteilt, wie im folgenden Screenshot gezeigt:

Schritt 3: Power Query in eine Excel-Tabelle ausgeben

1. Und dann sollten Sie die Daten in Ihr Arbeitsblatt ausgeben. bitte klicken Home > Schließen & Laden > Schließen & Laden / Schließen & Laden in, (hier klicke ich Schließen & Laden), siehe Screenshot:

 Tips: Klicken Sie auf Schließen & Laden gibt die Daten in ein neues Arbeitsblatt aus; Klicken Schließen & Laden in Option werden die Daten auf jedem anderen Blatt ausgegeben, das Sie benötigen.

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

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

Weitere Artikel: