Gå til hovedindhold

Hvordan opdeles ved at afgrænse og transponere celler i Excel?

I denne artikel introducerer jeg måderne til at opdele et interval efter specifik afgrænser og derefter transponere det i Excel som vist nedenstående skærmbillede. Hvis du er interesseret i denne opgave, skal du gå til nedenstående detaljer.
doc spliy transponere 1

Opdel og transponér med VBA

Opdel og transponér med Kutools til Excel


pil blå højre boble Opdel og transponér med VBA

Der er ingen direkte måde at opdele og transponere data på med en bestemt afgrænser, men jeg kan introducere en VBA-kode for at hjælpe dig med at løse dette problem hurtigt.

1. Trykke Alt + F11 taster, der skal vises Microsoft Visual Basic til applikationer vindue.

2. klik indsatte > Moduler, og indsæt nedenstående kode til den nye Moduler vindue.

VBA: Opdel og transponér

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. Trykke F5 nøgle til at køre koden, vises der en dialogboks, hvor du kan vælge et område, du vil opdele og transponere.
doc spliy transponere 2

4. klik OK. Der vises en dialogboks for at vælge et sted, hvor dataene placeres.
doc spliy transponere 3

5. klik OK, og markeringen er opdelt og transponeret med komma.
doc spliy transponere 4

Bemærk: i koden, kommaet i strTxt & ","ary = Split(strTxt, ","") er afgrænsningen, du vil opdele data baseret på, kan du ændre dem efter behov.


pil blå højre boble Opdel og transponér med Kutools til Excel

Med Kutools til Excel, kan du anvende dens Opdel celler først at opdele celler ved at afgrænse og derefter anvende Transformér rækkevidde værktøj til at konvertere cellerne til en kolonne.

Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. 

Efter installation Kutools til Excel, gør venligst som nedenfor :(Gratis download Kutools til Excel nu!)

1. Vælg de celler, du vil opdele, og klik på Kutools > Flet og del > Opdel celler. Se skærmbillede:
doc spliy transponere 5

2. i Opdel celler dialog, tjek Opdel til kolonner valgmulighed, og angiv derefter den afgrænser, du vil opdele baseret på, klik på Ok. Og vælg en tom celle for at placere resultatet i den anden Opdel celler dialog. Se skærmbillede:
doc spliy transponere 6

3. klik OK, så er cellerne opdelt i kolonner, og klik derefter på Kutools > Range > Transformér rækkevidde. Se skærmbillede:
doc spliy transponere 7

4. i Transformér rækkevidde dialog, tjek Område til enkelt kolonneklik Ok, og vælg en celle for at placere resultatet. Se skærmbillede:
doc spliy transponere 8

5. klik OK, nu er området blevet transponeret i en kolonne.
doc spliy transponere 9

Tip. Hvis du vil have en gratis prøveversion af Opdel celler , Transformér rækkevidde funktioner, gå til gratis prøv Kutools til Excel først, og gå derefter til for at anvende handlingen i henhold til ovenstående trin.

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver 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