Przejdź do głównej zawartości

Jak podzielić wartości oddzielone przecinkami na wiersze lub kolumny w programie Excel?

W niektórych przypadkach może być konieczne podzielenie wartości oddzielonych przecinkami wybranych komórek na wiersze lub kolumny. Tutaj przedstawimy trzy metody szczegółowego rozwiązania tego problemu.

Podziel wartości oddzielone przecinkami na kolumny za pomocą funkcji Tekst na kolumny
Podziel wartości oddzielone przecinkami na wiersze z kodem VBA
Szybko podziel wartości oddzielone przecinkami na wiersze lub kolumny za pomocą Kutools for Excel


Podziel wartości oddzielone przecinkami na kolumny za pomocą funkcji Tekst na kolumny

Możesz zastosować funkcję Tekst do kolumn, aby podzielić wartości oddzielone przecinkami wybranych komórek na kolumny. Wykonaj następujące czynności.

1. Wybierz zakres komórek, w których chcesz podzielić wartości na kolumny, a następnie kliknij Dane > Tekst do kolumn. Zobacz zrzut ekranu:

2. W pierwszym Konwertuj Kreator tekstu na kolumnę w oknie dialogowym wybierz opcję Rozgraniczone opcję, a następnie kliknij Następna przycisk.

3. W sekundę Konwertuj Kreator tekstu na kolumnę w oknie dialogowym, zaznacz tylko Przecinek Okno w Ograniczniki sekcję i kliknij przycisk Następna przycisk.

4. W ostatnim Konwertuj Kreator tekstu na kolumnę W oknie dialogowym wybierz komórkę do zlokalizowania wartości podziału w pliku Cel i na koniec kliknij koniec przycisk. Zobacz zrzut ekranu:

Teraz wszystkie wartości w wybranych komórkach, które zostały oddzielone przecinkami, są podzielone na różne kolumny, jak pokazano poniżej.

Zwykle Tekst do kolumn funkcja dzieli tylko komórki na oddzielne kolumny, jeśli chcesz podzielić komórki na wiersze, jak możesz to zrobić?
Tutaj Kutools dla programu Excel's Podział komórki Narzędzie może pomóc szybko podzielić komórki według spacji, przecinka, nowej linii, innych separatorów lub określonej szerokości na nie tylko oddzielne wiersze, ale także kolumny w programie Excel. Pobierz teraz Kutools dla Excela! (30-dniowy darmowy szlak)


Podziel wartości oddzielone przecinkami na wiersze z kodem VBA

Aby podzielić wartości oddzielone przecinkami na wiersze, możesz zastosować następujący kod VBA.

1. wciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.

Kod VBA: Podziel wartości oddzielone przecinkami na wiersze

Sub SplitAll()
	Dim xRg As Range
	Dim xRg1 As Range
	Dim xCell As Range
	Dim I As Long
	Dim xAddress As String
	Dim xUpdate As Boolean
	Dim xRet As Variant
	On Error Resume Next
	xAddress = Application.ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg  = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		If xRg.Columns.Count > 1 Then
			MsgBox "You can't select multiple columns", , "Kutools for Excel"
			Exit Sub
			End If
			Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
			Set xRg1 = xRg1.Range("A1")
			If xRg1 Is Nothing Then Exit Sub
				xUpdate = Application.ScreenUpdating
				Application.ScreenUpdating = False
				For Each xCell In xRg
					xRet = Split(xCell.Value, ",")
					xRg1.Worksheet.Range(xRg1.Offset(I, 0), xRg1.Offset(I + UBound(xRet, 1), 0)) = Application.WorksheetFunction.Transpose(xRet)
					I = I + UBound(xRet, 1) + 1
				Next
				Application.ScreenUpdating = xUpdate
			End Sub

3. wciśnij F5 klucz do uruchomienia kodu. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz komórki, które chcesz podzielić, a następnie kliknij OK przycisk.

4. W drugim wyskakującym okienku Kutools dla programu Excel w oknie dialogowym wybierz komórkę, w której mają zostać umieszczone wartości podziału, a następnie kliknij OK.

Następnie możesz zobaczyć, że wartości oddzielone przecinkami w wybranych komórkach są podzielone na wiersze, jak pokazano poniżej.


Szybko podziel wartości oddzielone przecinkami na wiersze lub kolumny za pomocą Kutools for Excel

The Podział komórki użyteczność Kutools dla programu Excel może pomóc w łatwym podzieleniu wartości oddzielonych przecinkami na wiersze lub kolumny.

1. Wybierz komórki, które chcesz podzielić, a następnie kliknij Kutools > Połącz i podziel > Podział komórki. Zobacz zrzut ekranu:

2. w Podział komórki okno dialogowe, wybierz Podziel na rzędy or Podziel na kolumny Rodzaj Nieruchomości sekcję, jak potrzebujesz. A w Określ separator sekcję, wybierz Inne opcję, wprowadź symbol przecinka w polu tekstowym, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

3 Następnie pojawi się kolejne okno zachęty przypominające o wybraniu komórki do wyprowadzenia wyniku, patrz zrzut ekranu:

4. kliknij OK przycisk, możesz zobaczyć wyniki, jak pokazano poniżej.

Podziel na kolumny

Podziel na rzędy

  Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.


Demo: Szybko podziel wartości oddzielone przecinkami na wiersze lub kolumny za pomocą Kutools for 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 (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
A jak zmienić kod żeby nie pytał o ustawienie się w A1 i potem aby wynik był np też od A1 w dół
This comment was minimized by the moderator on the site
Hi Bartek,
You mean don't want to pop up the second dialog to select the target cell, and want to specify the target cell in the code directly?
If so, you need to change the following lines.
For example, you need to start outputting results from B1 and automatically fill down.
Please change this line:
Set xRg1 = Application.InputBox("Split to (single cell):", "Kutools for Excel", , , , , , 8)
to
Set xRg1 = Application.Range("B2")
And then remove the next line:
Set xRg1 = xRg1.Range("A1")
This comment was minimized by the moderator on the site
i still cant upload my csv into 365
This comment was minimized by the moderator on the site
Go to excel file Data option -> text to column->delimited -> Done
it will spit comma separated value into individual column
example
id name add
1 Ratnesh myAdd
2,Yog,myAdd
we will apply in the 2nd record it will split record like 1st records,
Thanks,
Ratnesh Sahu
This comment was minimized by the moderator on the site
Go to excel file Data option -> text to column->delimited -> Done
it will spit comma separated value into individual column
example

id name add

1 Ratnesh myAdd

2,Yog,myAdd


we will apply in the 2nd record it will split record like 1st records,


Thanks,
Ratnesh Sahu
This comment was minimized by the moderator on the site
Thanks it helped :)
This comment was minimized by the moderator on the site
This is amazing, thanks for making it free and easy to use!
This comment was minimized by the moderator on the site
Thank you!
This comment was minimized by the moderator on the site
Alternately for separating into rows, use the text to column steps and then copy & paste ->transpose to turn the columns into rows.
This comment was minimized by the moderator on the site
Thanks Jake! This is what I was looking for. :)
This comment was minimized by the moderator on the site
Good one, the utility help me a lot. Thanks for that... :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations