Excel: So teilen Sie durch Trennzeichen getrennten Text in Zeilen auf
Nehmen wir an, hier ist eine Tabelle mit drei Spalten in einem Arbeitsblatt, die erste listet die Preisniveaus auf, die zweite listet Fruchtnamen auf, die durch Kommas in Zellen getrennt sind, und die dritte Spalte listet die Preise der Früchte auf. Die Aufgabe besteht darin, die abgegrenzten Fruchtnamen in Zeilen aufzuteilen und die zugehörigen Preisniveaus und Preiszeilen zu wiederholen, wie im folgenden Screenshot gezeigt:
Stellen Sie hier zwei Methoden vor, um diese Aufgabe zu lösen.
Teilen Sie durch Trennzeichen getrennten Text mithilfe von VBA in Zeilen auf
Teilen Sie durch Trennzeichen getrennten Text mithilfe von in Zeilen auf Power Query
Hier ist ein VBA-Code, der begrenzten Text schnell in Zeilen aufteilen kann.
1. Drücken Sie Andere + F11 Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.
2 Klicken Insert Registerkarte> Modul um ein neues leeres Modul zu erstellen.
3. Kopieren Sie den folgenden Code und fügen Sie ihn in das leere Modul ein.
VBA: Text mit Trennzeichen in Zeilen aufteilen
Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
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)
Debug.Print xRg.Address
xArr = Split(xRg, xSplitChar)
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(xFFNum)
Next
xRg.EntireRow.Delete
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
4. Drücken Sie F5 Taste, um auf die Schaltfläche „Ausführen“ zu klicken Um den Code zu aktivieren, erscheint ein Dialogfeld, in dem Sie die Spalte auswählen können, die die Kopfzeile ausschließt, die den durch Trennzeichen getrennten Text enthält, der in Zeilen aufgeteilt werden muss. Klicken OK.
5. Dann erscheint das zweite Dialogfeld, um das von Ihnen verwendete Trennzeichen einzugeben. Geben Sie hier Komma (,) ein. Klicken OK.
Jetzt wurden die durch Trennzeichen getrennten Texte in Zeilen aufgeteilt und andere zugehörige Spalten wiederholt.
Der VBA wird die Originaldaten verändern, Sie sollten besser vorher eine Kopie davon speichern.
Wenn Sie in Excel 2013 oder höheren Versionen arbeiten, ist die Power Query wird eine gute Wahl sein, um diesen Job zu lösen.
1. Wählen Sie den Datenbereich aus, auf den Sie klicken möchten Datum > Aus Tabelle/Bereich.
2. Im Knallen Tabelle erstellen Dialog, überprüfen Meine Tabelle hat Überschriften wie Sie brauchen, und klicken Sie OK.
Dann ist die Power Query Herausgeber Fenster wird angezeigt, und die Daten wurden darin angezeigt.
3. Klicken Sie auf die Spalte, in der Sie die durch Trennzeichen getrennten Texte in Zeilen aufteilen möchten, und klicken Sie darauf Transformieren Registerkarte> Spalte teilen > Durch Trennzeichen.
Sie können auch die Spalte auswählen und mit der rechten Maustaste auf die Spaltenüberschrift klicken, um diese Funktion im Kontextmenü auszuwählen.
4. In dem Spalte nach Trennzeichen teilen Wählen Sie im Fenster das gewünschte Trennzeichen aus Trennzeichen auswählen oder eingeben Abschnitt, dann wählen Sie Jedes Vorkommen des Trennzeichens Option, und erweitern Sie dann Erweiterte Optionen Abschnitt zu wählen Reihen Möglichkeit. Klicken OK.
Jetzt wurden die durch Trennzeichen getrennten Texte in Zeilen aufgeteilt.
5. Schließen Sie dann das Fenster, ein Dialog erscheint, klicken Sie Behalten .
Dann wird ein neues Blatt mit der Tabelle erstellt.
Wie kann man die Zeilenfarbe basierend auf der Gruppe in Excel abwechseln?
In Excel ist es für die meisten von uns vielleicht einfacher, jede zweite Zeile einzufärben. Haben Sie jedoch jemals versucht, die Zeilen abwechselnd basierend auf Änderungen des Spaltenwerts einzufärben? - Spalte A, wie im folgenden Screenshot gezeigt, in diesem Artikel werde ich darüber sprechen, wie zum Wechseln der Zeilenfarbe basierend auf der Gruppe in Excel.
Wie kann man die Größe von Excel-Dateien reduzieren?
Manchmal dauert das Öffnen oder Speichern Minuten, wenn die Excel-Datei zu groß ist. Um dieses Problem zu lösen, erfahren Sie hier in diesem Tutorial, wie Sie die Größe der Excel-Datei reduzieren, indem Sie unnötige oder nie verwendete Inhalte oder Formate entfernen.
Excel: So erstellen oder fügen Sie ein Lesezeichen ein
Haben Sie sich jemals vorgestellt, ein Lesezeichen zu erstellen oder einzufügen, um schnell zu einem bestimmten Datenbereich zu springen, während sich viele Daten in einem Arbeitsblatt oder einer Arbeitsmappe befinden?
Wie wende ich Schattierungen auf ungerade oder gerade (alternative) Zeilen / Spalten in Excel an?
Beim Entwerfen eines Arbeitsblatts wenden viele Benutzer Schattierungen auf ungerade oder gerade (alternative) Zeilen oder Spalten an, um das Arbeitsblatt visueller zu gestalten. Dieser Artikel zeigt Ihnen zwei Methoden zum Anwenden von Schattierungen auf ungerade oder gerade Zeilen / Spalten in Excel.
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen und Speichern von Daten; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen und Summe / Durchschnitt... 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; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Lieblingsformeln und schnell einfügen, Bereiche, Diagramme und Bilder; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Pivot-Tabellengruppierung nach Wochennummer, Wochentag und mehr ... Entsperrte, gesperrte Zellen anzeigen durch verschiedene Farben; Markieren Sie Zellen mit Formel / Name...
- 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!