Hoppa till huvudinnehåll

Hur delar man med avgränsare och transponerar celler i Excel?

I den här artikeln introducerar jag sätten att dela upp ett intervall efter specifik avgränsare och sedan transponera det i Excel som nedan visas skärmdump. Om du är intresserad av denna uppgift, gå till nedanstående detaljer.
doc spliy transponera 1

Dela och transponera med VBA

Dela och transponera med Kutools för Excel


pil blå höger bubbla Dela och transponera med VBA

Det finns inget direkt sätt att dela och transponera data med en specifik avgränsare, men jag kan införa en VBA-kod som hjälper dig att lösa problemet snabbt.

1. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.

2. klick Insert > Modulernaoch klistra in under koden till den nya Modulerna fönster.

VBA: Dela och transponera

Sub Vertical()
'UpdatebyExtendoffice20161125
    Dim i As Long, strTxt As String
    Dim startP As Range
    Dim xRg As Range, yRg As Range
    On Error Resume Next
    Set xRg = Application.InputBox _
    (Prompt:="Range Selection...", _
    Title:="Kutools For Excel", Type:=8)
    i = 1
    Application.ScreenUpdating = False
    For Each yRg In xRg
        If i = 1 Then
            strTxt = yRg.Text
            i = 2
        Else
            strTxt = strTxt & "," & yRg.Text
        End If
    Next
    Application.ScreenUpdating = True
    Set startP = Application.InputBox _
    (Prompt:="paste range...", _
    Title:="Kutools For Excel", Type:=8)
    ary = Split(strTxt, ",")
    i = 1
    Application.ScreenUpdating = False
    For Each a In ary
        startP(i, 1).Value = a
        i = i + 1
    Next a
    Application.ScreenUpdating = True
End Sub

3. Tryck F5 för att köra koden, en dialogruta dyker upp för dig att välja ett område som ska delas och transponeras.
doc spliy transponera 2

4. klick OK. En dialogruta dyker upp för att välja en plats där data ska placeras.
doc spliy transponera 3

5. klick OK, och urvalet har delats upp och transponerats med kommatecken.
doc spliy transponera 4

Notera: i koden, kommatecken i strTxt & "," och ary = Split(strTxt, ","") är avgränsaren du kommer att dela data baserat på kan du ändra dem efter behov.


pil blå höger bubbla Dela och transponera med Kutools för Excel

Med Kutools för Excelkan du tillämpa dess Dela celler först att dela celler med avgränsare och sedan använda Transformera intervall verktyg för att konvertera cellerna till en kolumn.

Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. 

När du har installerat Kutools för Excel, gör så här :(Gratis nedladdning Kutools för Excel nu!)

1. Markera cellerna du vill dela och klicka på Kutools > Slå ihop och dela > Dela celler. Se skärmdump:
doc spliy transponera 5

2. I Dela celler dialogrutan, kontrollera Dela upp till kolumner alternativ, ange sedan avgränsaren du vill dela baserat på, klicka på Ok. Och välj en tom cell för att placera resultatet i den andra Dela celler dialog. Se skärmdump:
doc spliy transponera 6

3. klick OK, sedan har cellerna delats upp i kolumner och klicka sedan på Kutools > Mätområde > Transformera intervall. Se skärmdump:
doc spliy transponera 7

4. I Transformera intervall dialogrutan, kontrollera Område till enstaka kolumn, Klicka Okoch välj en cell för att placera resultatet. Se skärmdump:
doc spliy transponera 8

5. klick OK, nu har intervallet transponerats till en kolumn.
doc spliy transponera 9

Tips. Om du vill ha en gratis testversion av Dela celler och Transformera intervall funktioner, gå till gratis prova Kutools för Excel först och sedan tillämpa operationen enligt ovanstående steg.

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 (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is there a way to split data by row and transpose rows to column at the same time?
This comment was minimized by the moderator on the site
Hi, E, please describe your problem with more details, better provide some examples.
This comment was minimized by the moderator on the site
You wrote: Note: in the code, the comma in the aray = Split(strTxt, ",") is the delimiter you will split data based on, you can change it as you need.

Extra action:
also change delimter "," in code section:

<Else
strTxt = strTxt & "," & yRg.Text
End If>

Change "," to (for example ";")
This comment was minimized by the moderator on the site
Hi, Richard Hahlen, thanks for your remind. I have updated the notice.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations