Przejdź do głównej zawartości

Jak przekonwertować ciąg tekstowy oddzielony przecinkami na listę lub wiersze w programie Excel?

doc konwertuj wartości przecinków na listę 1

Przypuśćmy, że masz listę wartości komórek oddzielonych przecinkami, teraz musisz przekonwertować te ciągi tekstowe oddzielone przecinkami na wiele wierszy lub kolumny, jak pokazano na zrzucie ekranu. Jak można podzielić wiele wartości komórek na wiersze na podstawie separatora przecinków jednocześnie w programie Excel?

Konwertuj ciąg tekstowy oddzielony przecinkami na wiersze z kodem VBA

Konwertuj ciąg tekstowy oddzielony przecinkami na wiersze za pomocą Kutools for Excel


Konwertuj ciąg tekstowy oddzielony przecinkami na wiersze z kodem VBA

Poniższy kod VBA może pomóc w przekonwertowaniu wielu wartości komórek oddzielonych przecinkami na kolumnę, wykonaj następujące czynności:

1. Przytrzymaj Alt + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Konwertuj ciąg tekstowy oddzielony przecinkami na wiersze lub listę

Sub RedistributeCommaDelimitedData()
'Updateby Extendoffice
    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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, w wyskakującym oknie dialogowym wybierz zakres danych, który chcesz przekonwertować, zobacz zrzut ekranu:

doc konwertuj wartości przecinków na listę 2

4, i kliknij OK, w poniższym oknie dialogowym określ komórkę, w której chcesz wyprowadzić wynik, zobacz zrzut ekranu:

doc konwertuj wartości przecinków na listę 3

5. Kliknij OK przycisk, wybrane wartości komórek oddzielone przecinkami zostały przekonwertowane na listę wierszy. Zobacz zrzut ekranu:

doc konwertuj wartości przecinków na listę 4


Konwertuj ciąg tekstowy oddzielony przecinkami na wiersze za pomocą Kutools for Excel

Jeśli Kutools dla programu Excel, Z siedzibą w Podział komórki narzędzie, możesz szybko podzielić wartości komórek oddzielone przecinkami na wiele wierszy lub kolumn na podstawie separatora przecinków, zgodnie z potrzebami.

Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. 

Po zainstalowaniu Kutools dla programu Excel, wykonaj następujące czynności:

1. Wybierz wartości komórek, które chcesz przekonwertować na wiersze na podstawie separatora przecinków.

2. Następnie kliknij Kutools > Połącz i podziel > Podział komórkizobacz zrzut ekranu:

3, w Podział komórki okno dialogowe, wybierz Podziel na rzędy opcja pod Rodzaj Nieruchomości sekcji, a następnie z Określ separator sekcja, sprawdź Inne pole wyboru, a następnie wprowadź przecinek w polu tekstowym, patrz zrzut ekranu:

doc konwertuj wartości przecinków na listę 6 6

4. Następnie kliknij Oki pojawi się kolejne okno dialogowe przypominające o wybraniu komórki do umieszczenia wyniku, patrz zrzut ekranu:

doc konwertuj wartości przecinków na listę 7

5. A następnie kliknij Ok przycisk, komórki oddzielone przecinkami zostały podzielone na wiele wierszy na podstawie separatora przecinka, patrz zrzut ekranu:

doc konwertuj wartości przecinków na listę 8

Kliknij, aby dowiedzieć się więcej o tej funkcji Podziel komórki…

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!


Demo: Konwertuj ciąg tekstowy oddzielony przecinkami na wiersze za pomocą Kutools for Excel

Kutools dla programu Excel: z ponad 300 poręcznymi dodatkami do programu Excel, które można wypróbować bez ograniczeń w ciągu 30 dni. Pobierz i bezpłatną wersję próbną teraz!

Podobne artykuły:

Jak podzielić komórki na wiele kolumn lub wierszy za pomocą powrotu karetki?

Jak podzielić wartości komórek na wiele kolumn w programie Excel?

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


Karta Office wprowadza 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!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
I have a cell with 667 characters, of which 119 are commas.With this VBA code I can't split. Can you help me please?Thank you very much!
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations