Hur delar jag kommaseparerade värden i rader eller kolumner i Excel?

I vissa fall kan du behöva dela kommaseparerade värden för valda celler i rader eller kolumner. Här kommer vi att presentera tre metoder för att lösa problemet i detalj.

Dela upp kommaseparerade värden i kolumner med funktionen Text till kolumner
Dela kommaseparerade värden i rader med VBA-kod
Dela snabbt kommaseparerade värden i rader eller kolumner med Kutools för Excel

Dela upp kommaseparerade värden i kolumner med funktionen Text till kolumner

Du kan använda funktionen Text till kolumner för att dela kommaseparerade värden för valda celler i kolumner. Gör så här.

1. Välj det cellområde som du vill dela upp värden i kolumner och klicka sedan på Data > Text till kolumner. Se skärmdump:

2. I den första Konvertera text till kolumner guiden dialogrutan väljer du avgränsad och klicka sedan på Nästa knapp.

3. På sekunden Konvertera text till kolumner guiden dialogrutan, kolla bara i Kommatecken ruta i avgränsare avsnittet och klicka på Nästa knapp.

4. I det sista Konvertera text till kolumner guiden Välj en cell för att hitta delningsvärdena i dialogrutan Destination och slutligen klicka på Finish knapp. Se skärmdump:

Nu delas alla värden i valda celler som separerades med kommatecken till olika kolumner som nedanstående skärmdump.

Dela kommaseparerade värden i rader med VBA-kod

För att dela kommaseparerade värden i rader kan du tillämpa följande VBA-kod.

1. tryck på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra in nedanstående VBA-kod i modulfönstret.

VBA-kod: Dela upp kommaseparerade värden i rader

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. tryck på F5 för att köra koden. I pop-up Kutools för Excel i dialogrutan, markera cellerna du vill dela upp och klicka sedan på OK knapp.

4. I den andra dyker upp Kutools för Excel välj en cell för att hitta delningsvärdena och klicka sedan på OK.

Då kan du se de kommaseparerade värdena i valda celler delas upp i rader som nedanstående skärmdump.

Dela snabbt kommaseparerade värden i rader eller kolumner med Kutools för Excel

The Dela celler nytta av Kutools för Excel kan hjälpa dig att enkelt dela kommaseparerade värden i rader eller kolumner.

1. Markera cellerna du behöver dela och klicka sedan på Kutools > Slå ihop och dela > Dela celler. Se skärmdump:

2. I Dela celler dialogrutan väljer du Dela till rader or Dela upp till kolumner i Typ avsnitt som du behöver. Och i Ange en separator avsnitt, välj Övriga alternativet, ange kommasymbolen i textrutan och klicka sedan på OK knapp. Se skärmdump:

3. Och sedan kommer en annan snabbruta att dyka upp för att påminna dig om att du väljer en cell för att mata ut resultatet, se skärmdump:

4. klick OK knappen, kan du se resultaten som visas nedan.

Dela upp till kolumner

Dela till rader

Demo: Dela snabbt kommaseparerade värden i rader eller kolumner med Kutools för Excel

---

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

• återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
• Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
• Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
• Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
• Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
• Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
• Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
• Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
• Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp... 

---

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!

Läs mer... Gratis nedladdning... Köp...