Excel: Jak podzielić tekst rozdzielany na wiersze

Załóżmy, że jest to tabela z trzema kolumnami w arkuszu, pierwsza zawiera poziomy cen, druga zawiera nazwy owoców z przecinkami oddzielonymi przecinkami w komórkach, a trzecia kolumna zawiera ceny owoców. Zadanie polega na podzieleniu rozdzielonych nazw owoców na rzędy i powtórzeniu powiązanych poziomów cen i wierszy cen, jak pokazano na poniższym zrzucie ekranu:

Oto dwie metody rozwiązania tego zadania.

Podziel tekst rozdzielany na wiersze za pomocą VBA

Podziel tekst rozdzielany na wiersze za pomocą Power Query

Oto kod VBA, który może szybko podzielić tekst rozdzielany na wiersze.

1. naciśnij inny + F11 klawisze, aby włączyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka karta> Moduł aby utworzyć nowy pusty moduł.

3. Skopiuj i wklej poniższy kod do pustego modułu.

VBA: Podziel tekst rozdzielany na wiersze

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. naciśnij F5 klawisz, aby kliknąć przycisk uruchamiania  aby aktywować kod, pojawi się okno dialogowe, w którym można wybrać kolumnę, która wyklucza nagłówek zawierający oddzielony tekst, który należy podzielić na wiersze. Kliknij OK.

5. Następnie pojawia się drugie okno dialogowe, aby wprowadzić ogranicznik, którego używasz. Tutaj wpisuje się przecinek (,). Kliknij OK.

Teraz oddzielone teksty zostały podzielone na wiersze i powtórzono inne powiązane kolumny.

  VBA zmieni oryginalne dane, lepiej wcześniej zapisz ich kopię.

Jeśli korzystasz z programu Excel 2013 lub nowszych wersji, Power Query będzie dobrym wyborem do rozwiązania tego zadania.

1. Wybierz zakres danych, aby kliknąć Dane > Z tabeli/zakresu.

2. W poppingu Utwórz tabelę okno dialogowe, sprawdź Moja tabela ma nagłówki jak potrzebujesz i kliknij OK.

A później Power Query redaktor zostanie wyświetlone okno, a dane zostały w nim pokazane.

3. Kliknij kolumnę, którą chcesz podzielić oddzielone teksty na wiersze, i kliknij Przekształcać karta> Podziel kolumnę > Według ogranicznika.

Możesz też wybrać kolumnę i kliknąć prawym przyciskiem myszy nagłówek kolumny, aby wybrać tę funkcję z menu kontekstowego.

4. w Podziel kolumnę według ogranicznika okno, wybierz ogranicznik według potrzeb z Wybierz lub wprowadź ogranicznik sekcję, a następnie wybierz Każde wystąpienie ogranicznika opcję, a następnie rozwiń Opcje zaawansowane sekcja do wyboru Wydziwianie opcja. Kliknij OK.

Teraz oddzielone teksty zostały podzielone na wiersze.

5. Następnie zamknij okno, pojawi się okno dialogowe, kliknij Trzymać przycisk.

Następnie zostanie utworzony nowy arkusz z tabelą.

---

Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

• Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
• Scal komórki / wiersze / kolumny i przechowywanie danych; Podziel zawartość komórek; Połącz zduplikowane wiersze i sumę / średnią... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
• Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
• Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
• Ulubione i szybkie wstawianie formuł, Zakresy, wykresy i obrazy; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
• Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
• Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
• Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
• Grupowanie tabel przestawnych według numer tygodnia, dzień tygodnia i więcej ... Pokaż odblokowane, zablokowane komórki w różnych kolorach; Podświetl komórki, które mają formułę / nazwę...

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup... 

---

Karta Office - przenosi interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

• Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
• Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
• Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!

Czytaj więcej... Pełne funkcje 30-dniowa bezpłatna wersja próbna... Zakup...