Hur delar jag cellvärden vertikalt i Excel?

I Excel kan du använda Text till kolumner funktion för att dela upp cellvärdena i flera kolumner horisontellt, men det hjälper dig inte att dela upp cellinnehållet i flera rader vertikalt. Och den här artikeln kommer jag att prata om några snabba sätt att dela cellvärdena i rader vertikalt med specifik separator i Excel.

Dela cellvärden i rader vertikalt med separator med VBA-kod

Dela cellvärden i rader vertikalt med separator med Kutools för Excel

Dela cellvärden i rader vertikalt med separator med VBA-kod

Följande VBA-kod kan hjälpa dig att dela upp cellvärdena i rader vertikalt med vilken avgränsare du vill, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

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

VBA-kod: Dela cellvärden i rader vertikalt med specifik avgränsare

Sub splitvertically()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xOutArr As Variant
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xOutRg = Application.InputBox("please select output cell:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xStr = "" Then
            xStr = xCell.Value
        Else
            xStr = xStr & ";" & xCell.Value
        End If
    Next
    xOutArr = VBA.Split(xStr, ";")
    xOutRg.Range("A1").Resize(UBound(xOutArr) + 1, 1) = Application.WorksheetFunction.Transpose(xOutArr)
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden och en snabbruta dyker upp för att påminna dig om att du väljer de cellvärden som du vill dela vertikalt, se skärmdump:

4. Och klicka sedan på OK knappen kommer en annan ruta att dyka upp för att påminna dig om att du väljer en cell för att lägga resultatet, se skärmdump:

5. Klicka OK -knappen och cellvärdena har delats upp i en lista av en separator, se skärmdump:

Anmärkningar: I ovanstående kod kan du ändra semikolon ; till andra avgränsare som du behöver.

Dela cellvärden i rader vertikalt med separator med Kutools för Excel

Kutools för ExcelÄr Dela celler funktionen är ett kraftfullt verktyg, det kan hjälpa dig att dela upp cellvärden i flera kolumner eller rader av alla separatorer som du behöver.

När du har installerat Kutools för Excel, gör så här:

1. Välj cellerna som du vill dela upp i rader med den specifika avgränsaren.

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

3. I Dela celler dialogrutan väljer du Dela till rader under Typ avsnittet och kontrollera sedan Övriga från Dela med avsnitt och ange avgränsaren som du vill dela cellvärdena baserat på, se skärmdump:

4. Och klicka sedan på Ok -knappen, välj en cell för att mata ut resultatet, se skärmdump:

5. och klicka OK -knappen, cellvärdena har delats upp i rader baserat på den specifika separatorn enligt följande skärmdump:

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

Demo: Dela cellvärden i rader vertikalt med separator med Kutools för Excel