Tipp: Andere Sprachen sind Google-Übersetzungen. Sie können die English Version dieses Links.
Einloggen
x
or
x
x
Registrieren
x

or

Wie konvertiere ich eine durch Komma getrennte Textzeichenfolge in eine Liste oder Zeilen in Excel?

doc konvertiert Kommawerte in 1

Angenommen, Sie haben eine Liste von Zellenwerten, die durch Kommas getrennt sind. Nun müssen Sie diese durch Komma getrennten Textzeichenfolgen in mehrere Zeilen oder eine Spalte konvertieren, wie im folgenden Screenshot gezeigt. Wie können mehrere Zellenwerte in Excel auf der Grundlage von Komma-Trennzeichen in Zeilen aufgeteilt werden?

Konvertieren von durch Kommas getrennten Textzeichenfolgen in Zeilen mit VBA-Code

Konvertieren Sie eine durch Kommas getrennte Textzeichenfolge in Zeilen mit Kutools für Excel


Konvertieren von durch Kommas getrennten Textzeichenfolgen in Zeilen mit VBA-Code


Der folgende VBA-Code kann Ihnen helfen, mehrere durch Komma getrennte Zellenwerte in eine Spalte zu konvertieren. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Taste gedrückt Alt + F11 Schlüssel in Excel, und es öffnet die Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Einsatz > Modul, und fügen Sie das folgende Makro in die Modul Fenster.

VBA-Code: Konvertiert eine durch Kommas getrennte Textzeichenfolge in Zeilen oder Listen

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice 2015924
    Dim xArr() As String
    Dim xAddress As String
    Dim Rg As Range
    Dim Rg1 As Range
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)
    If Rg Is Nothing Then Exit Sub
    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If Rg1 Is Nothing Then Exit Sub
    xArr = Split(Join(Application.Transpose(Rg.Value), ","), ",")
    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)
    Rg1.Parent.Activate
    Rg1.Resize(UBound(xArr) + 1).Select
End Sub

3. Dann drücken F5 Um diesen Code auszuführen, wählen Sie im Popup-Dialogfeld den Datenbereich aus, den Sie konvertieren möchten, siehe Screenshot:

doc konvertiert Kommawerte in 2

4. Und klicken Sie auf OKGeben Sie im folgenden Dialog eine Zelle an, in der Sie das Ergebnis ausgeben möchten, siehe Screenshot:

doc konvertiert Kommawerte in 3

5. Klicken Sie OK Die ausgewählten durch Komma getrennten Zellenwerte wurden in eine Liste von Zeilen konvertiert. Siehe Screenshot:

doc konvertiert Kommawerte in 4


Konvertieren Sie eine durch Kommas getrennte Textzeichenfolge in Zeilen mit Kutools für Excel

Wenn Sie Kutools for ExcelMit seinen Geteilte Zellen Englisch: www.weisang.info/index.php?id=143&t...h=dcdcddcdc2 Mit dem Dienstprogramm Utility können Sie die durch Komma getrennten Zellenwerte je nach Bedarf schnell in mehrere Zeilen oder Spalten auf Basis des Komma - Trennzeichens aufteilen

Kutools for Excel : mit mehr als 300 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können.

Nach der Installation Kutools for Excel, machen Sie bitte folgende Schritte:

1. Wählen Sie die Zellenwerte aus, die Sie basierend auf dem Kommatrennzeichen in Zeilen konvertieren möchten.

2. Dann klick Kutoolen > SMS > Geteilte Zellen, siehe Screenshot:

doc konvertiert Kommawerte in 5 5

3. In dem Geteilte Zellen Dialogfeld auswählen In Zeilen aufteilen Option unter dem Type Abschnitt, und dann von der Geben Sie ein Trennzeichen an Abschnitt, überprüfen Andere Kontrollkästchen und geben Sie dann das Komma in das Textfeld ein, siehe Screenshot:

doc konvertiert Kommawerte in 6 6

4. Dann klick Ok, und ein weiterer Dialog erscheint, um Sie daran zu erinnern, eine Zelle auszuwählen, um das Ergebnis zu setzen, siehe Screenshot:

doc konvertiert Kommawerte in 7

5. Und dann klick Ok Die kommagetrennten Zellen wurden anhand des Komma-Trennzeichens in mehrere Zeilen aufgeteilt, siehe Screenshot:

doc konvertiert Kommawerte in 8

Klicken Sie hier, um mehr über das Feature "Geteilte Zellen" zu erfahren ...

Download und kostenlose Testversion Kutools für Excel Now!


Demo: Konvertieren Sie eine durch Kommas getrennte Textzeichenfolge in Zeilen mit Kutools für Excel

Kutools for Excel: mit mehr als 200 praktischen Excel-Add-Ins, die Sie in 60-Tagen kostenlos ausprobieren können. Download und kostenlose Testversion Jetzt!


In Verbindung stehende Artikel:

Wie teilt man Zellen durch Wagenrücklauf in mehrere Spalten oder Reihen auf?

Wie teilt man Zellenwerte in mehrere Spalten in Excel auf?


Kutools for Excel - Das beste Office-Produktivitäts-Tool Steigern Sie Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einlegen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (Bearbeiten Sie mühelos mehrere Textzeilen und Formeln); 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 der Zellen teilen; 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; Zufallsauswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen auf mehrere Blätter; Bullets einfügen, Kontrollkästchen und mehr ...
  • Extract Text, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen; Erstellen und Drucken von Paging-Zwischensummen; Zwischen Zelleninhalt und Kommentaren konvertieren...
  • Superfilter (Speichere und wende Filterschemata auf andere Blätter an); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Arbeitsmappen und Arbeitsblätter kombinieren; Zusammenführen von Tabellen basierend auf Schlüsselspalten; Daten in mehrere Blätter aufteilen; Stapelkonvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Kostenlose 60-Testversion für alle Funktionen.
Registerkarte Tab 201905

Registerkarte "Office" Bringt die Benutzeroberfläche mit Registerkarten in Office und vereinfacht Ihre 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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    eviakhan · 2 years ago
    update to work for a single input cell (mentioned by Sid posted before me). Probably a way to do this for both scenarios, but this worked for me, I had the same issue.

    Sub RedistributeCommaDelimitedData_singleCell()

    'Updateby Extendoffice 201592

    Dim xArr() As String

    Dim xAddress As String

    Dim Rg As Range

    Dim Rg1 As Range

    On Error Resume Next

    xAddress = Application.ActiveWindow.RangeSelection.Address

    Set Rg = Application.InputBox("please select the data range:", "Kutools for Excel", xAddress, , , , , 8)

    If Rg Is Nothing Then Exit Sub

    Set Rg = Application.Intersect(Rg, Rg.Parent.UsedRange)

    If Rg Is Nothing Then Exit Sub

    Set Rg1 = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)

    If Rg1 Is Nothing Then Exit Sub



    ' xArr = Split(Join(Application.Transpose(Rg.value), ","), ",") -------- need this if you have multiple input cells in your input range (Rg)

    ' replace with this for single input cell for Rg:

    xArr = Split(Rg.value, ",")

    Rg1.Resize(UBound(xArr) + 1) = Application.Transpose(xArr)

    Rg1.Parent.Activate

    Rg1.Resize(UBound(xArr) + 1).Select



    End Sub
  • To post as a guest, your comment is unpublished.
    Sid · 2 years ago
    Hi,
    I have a single row but this formula do not work for single row while it works for multiple rows could you guide on that would be a great help
    Thanks