Hoppa till huvudinnehåll

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:

doc delas vertikalt 1

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:

doc delas vertikalt 2

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

doc delas vertikalt 3

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.

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

doc delas vertikalt 5

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

doc delas vertikalt 6

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

doc delas vertikalt 7

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


Demo: Dela cellvärden i rader vertikalt med separator 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!

Bästa kontorsproduktivitetsverktyg

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

kte-flik 201905


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations