Ugrás a tartalomra

Hogyan vesszük fel a vesszővel elválasztott értékeket sorokra vagy oszlopokra az Excelben?

Bizonyos esetekben előfordulhat, hogy sorokra vagy oszlopokra kell osztani a kiválasztott cellák vesszővel elválasztott értékeit. Itt három módszert mutatunk be a probléma részletes megoldására.

A vesszővel elválasztott értékeket osztsa oszlopokra a Szöveg oszlopokba funkcióval
A vesszővel elválasztott értékeket VBA kóddal rendelkező sorokra kell osztani
A vesszővel tagolt értékeket gyorsan oszthatja sorokra vagy oszlopokra a Kutools for Excel segítségével


A vesszővel elválasztott értékeket osztsa oszlopokra a Szöveg oszlopokba funkcióval

A Szöveg oszlopokhoz funkciót alkalmazhatja a kiválasztott cellák vesszővel elválasztott értékeinek oszlopokra osztására. Kérjük, tegye a következőket.

1. Válassza ki az cellák tartományát, amelyet oszlopokra kíván felosztani, majd kattintson dátum > Szöveg oszlopokba. Lásd a képernyőképet:

2. Az elsőben Szöveg konvertálása oszlopok varázslóvá párbeszédpanelen válassza a ikont a Határolójel lehetőséget, majd kattintson a gombra Következő gombot.

3. A másodikban Szöveg konvertálása oszlopok varázslóvá párbeszédpanelen csak a Vessző doboz a Elhatárolók szakaszban, és kattintson a Következő gombot.

4. Az utolsóban Szöveg konvertálása oszlopok varázslóvá párbeszédpanelen jelöljön ki egy cellát az osztási értékek megkereséséhez a Rendeltetési hely mezőbe, és végül kattintson a gombra befejez gomb. Lásd a képernyőképet:

Most a vesszőkkel elválasztott kiválasztott cellákban lévő összes értéket különböző oszlopokra osztjuk fel, ahogy az alábbi képernyőkép látható.

Általában a Szöveg oszlopokba funkció csak külön oszlopokra osztja a cellákat, ha cellákat akar sorokra osztani, akkor hogyan teheti meg?
Itt a Kutools az Excel számára's Hasított sejtek segédprogram segítségével gyorsan feloszthatja a cellákat szóköz, vessző, új vonal, egyéb elválasztók vagy bizonyos szélesség szerint nemcsak elválasztott sorokra, hanem oszlopokra az Excelben. Töltse le a Kutools for Excel alkalmazást most! (30 napos ingyenes pálya)


A vesszővel elválasztott értékeket VBA kóddal rendelkező sorokra kell osztani

A vesszővel elválasztott értékek sorokra bontásához alkalmazhatja a következő VBA kódot.

1. megnyomni a más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.

2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.

VBA kód: Vesszővel elválasztott értékek felosztása sorokra

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. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki a felosztani kívánt cellákat, majd kattintson a gombra OK gombot.

4. A második felbukkanó Kutools az Excel számára párbeszédpanelen jelöljön ki egy cellát az osztási értékek megkereséséhez, majd kattintson a gombra OK.

Ezután láthatja, hogy a kiválasztott cellákban vesszővel elválasztott értékek sorokra vannak osztva, ahogy az alábbi képernyőkép látható.


A vesszővel tagolt értékeket gyorsan oszthatja sorokra vagy oszlopokra a Kutools for Excel segítségével

The Hasított sejtek hasznossága Kutools az Excel számára segíthet a vesszővel elválasztott értékek egyszerű sorokra vagy oszlopokra osztásában.

1. Jelölje ki a felosztani kívánt cellákat, majd kattintson a gombra Kutools > Egyesítés és felosztás > Hasított sejtek. Lásd a képernyőképet:

2. Ban,-ben Hasított sejtek párbeszédpanelen válassza ki Felosztás sorokra or Oszlopokra osztás a típus szakasz, amire szüksége van. És a Adjon meg elválasztót szakaszban válassza ki a Más opciót, írja be a vessző szimbólumot a szövegmezőbe, majd kattintson a gombra OK gomb. Lásd a képernyőképet:

3. És ezután megjelenik egy újabb prompt doboz, amely emlékezteti Önt arra, hogy válasszon egy cellát az eredmény kiadásához, lásd a képernyőképet:

4. kettyenés OK gombra kattintva láthatja az eredményeket az alábbi képernyőképek alatt.

Oszlopokra osztás

Felosztás sorokra

  Ha ingyenes (30 napos) próbaverziót szeretne kapni a segédprogramról, kattintson a letöltéshez, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Demo: A vesszővel elválasztott értékeket gyorsan oszthatja sorokra vagy oszlopokra a Kutools for Excel segítségével

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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