Direkt zum Inhalt

Wie teile ich durch Trennzeichen und transponiere Zellen in Excel?

In diesem Artikel stelle ich die Möglichkeiten vor, einen Bereich nach einem bestimmten Trennzeichen aufzuteilen und ihn dann in Excel zu transponieren, wie im folgenden Screenshot gezeigt. Wenn Sie an dieser Aufgabe interessiert sind, gehen Sie bitte zu den folgenden Details.
doc spliy transponieren 1

Teilen und transponieren mit VBA

Teilen und transponieren Sie mit Kutools for Excel


Pfeil blau rechte Blase Teilen und transponieren mit VBA

Es gibt keine direkte Möglichkeit, Daten durch ein bestimmtes Trennzeichen aufzuteilen und zu transponieren, aber ich kann einen VBA-Code einführen, um Ihnen bei der schnellen Lösung dieses Problems zu helfen.

1. Drücken Sie Alt + F11 Tasten zum Anzeigen Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modulund fügen Sie den folgenden Code in den neuen ein Modul Fenster.

VBA: Teilen und Transponieren

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Drücken Sie F5 Mit der Taste zum Ausführen des Codes wird ein Dialogfeld angezeigt, in dem Sie einen Bereich zum Teilen und Transponieren auswählen können.
doc spliy transponieren 2

4 Klicken OK. Ein Dialogfeld wird angezeigt, in dem Sie einen Speicherort für die Daten auswählen können.
doc spliy transponieren 3

5 Klicken OK, und die Auswahl wurde geteilt und durch Komma transponiert.
doc spliy transponieren 4

Hinweis: im Code, das Komma in der strTxt & "," und ary = Split(strTxt, ",") sind die Trennzeichen, auf deren Grundlage Sie die Daten aufteilen, Sie können sie nach Bedarf ändern.


Pfeil blau rechte Blase Teilen und transponieren Sie mit Kutools for Excel

Mit der Kutools for Excelkönnen Sie seine anwenden Zellen teilen Zuerst die Zellen nach Trennzeichen aufteilen und dann die Bereich transformieren Dienstprogramm zum Konvertieren der Zellen in eine Spalte.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. 

Nach der Installation Kutools für Excel, bitte gehen Sie wie folgt vor :(Kostenloser Download von Kutools für Excel jetzt!)

1. Wählen Sie die Zellen aus, die Sie teilen möchten, und klicken Sie auf Kutoolen > Zusammenführen & Teilen > Zellen teilen. Siehe Screenshot:
doc spliy transponieren 5

2. In dem Zellen teilen Dialog, überprüfen In Spalten teilen Klicken Sie auf die Option, und geben Sie das Trennzeichen an, nach dem Sie teilen möchten. Klicken Sie auf Ok. Wählen Sie eine leere Zelle aus, um das Ergebnis in der zweiten zu platzieren Zellen teilen Dialog. Siehe Screenshot:
doc spliy transponieren 6

3 Klicken OKDann wurden die Zellen in Spalten aufgeteilt und klicken Sie auf Kutoolen > Abdeckung > Bereich transformieren. Siehe Screenshot:
doc spliy transponieren 7

4. In dem Bereich transformieren Dialog, überprüfen Bereich bis einzelne Spalte, klicken Okund wählen Sie eine Zelle aus, um das Ergebnis zu platzieren. Siehe Screenshot:
doc spliy transponieren 8

5 Klicken OKJetzt wurde der Bereich in eine Spalte transponiert.
doc spliy transponieren 9

Tip. Wenn Sie eine kostenlose Testversion des haben möchten Zellen teilen und Bereich transformieren Funktionen, Bitte probieren Sie Kutools for Excel kostenlos aus Wenden Sie zuerst die Operation gemäß den obigen Schritten an.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien    VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste    Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln    Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations