Hoppa till huvudinnehåll

Hur konverterar jag kommaseparerad textsträng till lista eller rader i Excel?

doc konvertera kommavärden till lista 1

Om du antar att du har en lista över cellvärden som är separerade med komma, nu måste du konvertera dessa kommaseparerade textsträngar till flera rader eller en kolumn enligt följande skärmdump. Hur kunde flera cellvärden delas upp i rader baserat på kommatecken på Excel samtidigt?

Konvertera kommaseparerad textsträng till rader med VBA-kod

Konvertera kommaseparerad textsträng till rader med Kutools för Excel


Konvertera kommaseparerad textsträng till rader med VBA-kod

Följande VBA-kod kan hjälpa dig att konvertera flera kommaseparerade cellvärden till en kolumn, gör så här:

1. Håll ner Alt + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

2. Klicka Insert > Modulernaoch klistra in följande makro i Modulerna Fönster.

VBA-kod: Konvertera kommaseparerad textsträng till rader eller lista

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. Tryck sedan på F5 nyckel för att köra den här koden, i dialogrutan popped out, välj det dataområde som du vill konvertera, se skärmdump:

doc konvertera kommavärden till lista 2

4. och klicka OK, i följande dialog, ange en cell där du vill mata ut resultatet, se skärmdump:

doc konvertera kommavärden till lista 3

5. Klicka OK -knappen har de valda kommaseparerade cellvärdena konverterats till en lista med rader. Se skärmdump:

doc konvertera kommavärden till lista 4


Konvertera kommaseparerad textsträng till rader med Kutools för Excel

Om du har Kutools för Excel, med dess Dela celler verktyget kan du snabbt dela upp de kommaseparerade cellvärdena i flera rader eller kolumner baserat på kommaavgränsaren efter behov.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. 

När du har installerat Kutools för Excel, gör med följande steg:

1. Välj cellvärdena som du vill konvertera till rader baserat på kommaseparatorn.

2. Klicka sedan Kutools > Slå ihop och dela > Dela celler, se skärmdump:

3. I Dela celler dialogrutan väljer du Dela till rader alternativet under Typ avsnittet och sedan från Ange en separator avsnitt, kolla Övriga kryssruta och ange sedan komma i textrutan, se skärmdump:

doc konvertera kommavärden till lista 6 6

4. Klicka sedan Ok, och en annan dialog dyker upp för att påminna dig om att du väljer en cell för att lägga resultatet, se skärmdump:

doc konvertera kommavärden till lista 7

5. Och klicka sedan på Ok knappen, de kommaseparerade cellerna har delats upp i flera rader baserat på kommaavgränsaren, se skärmdump:

doc konvertera kommavärden till lista 8

Klicka för att veta mer om denna splitcells-funktion ...

Ladda ner och testa gratis Kutools för Excel nu!


Demo: Konvertera kommaseparerad textsträng till rader med Kutools för Excel

Kutools för Excel: med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar. Ladda ner och testa gratis nu!

Relaterade artiklar:

Hur delar jag celler i flera kolumner eller rader med vagnretur?

Hur delar jag cellvärden i flera kolumner i Excel?

Bästa kontorsproduktivitetsverktyg

🤖 Kutools AI Aide: Revolutionera dataanalys baserat på: Intelligent utförande   |  Generera kod  |  Skapa anpassade formler  |  Analysera data och generera diagram  |  Anropa Kutools funktioner.
Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50+ Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

Beskrivning


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
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