Ugrás a tartalomra

Hogyan lehet konvertálni a vesszővel elválasztott szöveges karakterláncot listára vagy sorokra az Excelben?

A doc vesszőértékeket konvertál az 1. listára

Ha feltételezzük, hogy van egy vesszővel elválasztott cellaértékek listája, most ezeket a vesszővel elválasztott szöveges karakterláncokat több sorra vagy oszlopra kell konvertálnia, a következő képernyőkép szerint. Hogyan oszthatja el több cellaértéket sorokba vesszőhatároló alapján egyszerre az Excelben?

Vesszővel elválasztott szöveges karakterlánc konvertálása VBA kóddal rendelkező sorokká

Konvertálja a vesszővel elválasztott szöveget sorokká a Kutools for Excel segítségével


Vesszővel elválasztott szöveges karakterlánc konvertálása VBA kóddal rendelkező sorokká

A következő VBA-kód segíthet abban, hogy több vesszővel elválasztott cellaértéket oszlopká alakítson át, kérjük, tegye a következőket:

1. Tartsa lenyomva a Alt + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő makrót a Modulok Ablak.

VBA kód: Vesszővel elválasztott szöveges karakterlánc konvertálása sorokká vagy listává

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki a konvertálni kívánt adattartományt, lásd a képernyőképet:

A doc vesszőértékeket konvertál az 2. listára

4. és kattintson OK, a következő párbeszédpanelen adjon meg egy cellát, ahová az eredményt ki szeretné adni, lásd a képernyőképet:

A doc vesszőértékeket konvertál az 3. listára

5. Kattints OK gombra kattintva a kiválasztott vesszővel elválasztott cellák értékei sorok listájává alakultak. Lásd a képernyőképet:

A doc vesszőértékeket konvertál az 4. listára


Konvertálja a vesszővel elválasztott szöveget sorokká a Kutools for Excel segítségével

Ha van Kutools az Excel számára, Annak Hasított sejtek segédprogrammal, a vesszővel elválasztott cellák értékeit gyorsan fel tudja osztani több sorra vagy oszlopra a vesszőhatároló alapján, amire szüksége van.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Válassza ki azokat a cellák értékeit, amelyeket sorokká kíván konvertálni a vessző elválasztó alapján.

2. Ezután kattintson Kutools > Egyesítés és felosztás > Hasított sejtek, lásd a képernyőképet:

3. Az Hasított sejtek párbeszédpanelen válassza ki Felosztás sorokra lehetőség a típus szakaszból, majd a Adjon meg elválasztót szakasz, ellenőrizze Más jelölőnégyzetet, majd írja be a vesszőt a szövegmezőbe, lásd a képernyőképet:

doc konvertálja a vesszőértékeket 6 6-os listára

4. Ezután kattintson Ok, és megjelenik egy másik párbeszédpanel, amely emlékeztet arra, hogy egy cellát válasszon az eredmény elküldéséhez, lásd a képernyőképet:

A doc vesszőértékeket konvertál az 7. listára

5. Kattintson a gombra Ok gombra, a vesszővel elválasztott cellákat a vesszőhatároló alapján több sorra osztották fel, lásd a képernyőképet:

A doc vesszőértékeket konvertál az 8. listára

Kattintson, ha többet szeretne megtudni erről a Split Cells funkcióról ...

Töltse le és ingyenes próbaverziója a Kutools for Excel programhoz most!


Demo: Konvertálja a vesszővel elválasztott szöveget sorokká a Kutools for Excel segítségével

Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

Kapcsolódó cikkek:

Hogyan lehet cellákat osztani több oszlopra vagy sorra kocsi visszaadással?

Hogyan oszthatja fel a cellák értékeit több oszlopra az Excelben?

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 (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