Gå til hovedindhold

Hvordan opdeles en kolonne hver anden række i Excel?

doc delt hver anden række 1

For eksempel har jeg en lang liste med data, og nu vil jeg opdele kolonnen i to lister ligeligt efter hver anden række som vist på følgende skærmbillede. Er der nogen gode måder at håndtere denne opgave i Excel?

Opdel en kolonne hver anden række med formler

Opdel en kolonne hver anden række med VBA-kode

Opdel en kolonne hver anden række med Kutools til Excel


pil blå højre boble Opdel en kolonne hver anden række med formler

Følgende formler kan hjælpe dig med hurtigt at opdele en kolonne i to kolonner efter hver anden række. Gør venligst som følger:

1. Indtast denne formel i en tom celle, C2, f.eks. =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), se skærmbillede:

doc delt hver anden række 2

2. Træk derefter udfyldningshåndtaget ned, indtil fejlene vises i cellerne, se skærmbillede:

doc delt hver anden række 3

3. Indtast derefter en anden formel i celle D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), og træk udfyldningshåndtaget ned til cellerne, indtil fejlværdier vises, og kolonneværdierne er blevet opdelt i to kolonner hver anden række, se skærmbillede:

doc delt hver anden række 4


pil blå højre boble Opdel en kolonne hver anden række med VBA-kode

Hvis du er interesseret i VBA-kode, her, kan jeg tale om en kode for dig til at løse dette problem.

1. Hold nede ALT + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i Moduler Vindue.

VBA-kode: Opdel en kolonne i to kolonner hver anden række

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

3. Tryk derefter på F5 nøgle til at køre denne kode, og der vises et promptfelt for at minde dig om at vælge det dataområde, du vil opdele, se skærmbillede:

doc delt hver anden række 5

4. og klik OK, en anden promptboks vises for at lade dig vælge en celle for at indsætte resultatet, se skærmbillede:

doc delt hver anden række 6

5. Klik derefter på OK, og kolonnen er blevet opdelt i to kolonner af hver anden række. Se skærmbillede:

doc delt hver anden række 7


pil blå højre boble Opdel en kolonne hver anden række med Kutools til Excel

Hvis du vil lære flere nye ting, kan jeg anbefale et kraftfuldt værktøj --Kutools til Excel, Med Transformér rækkevidde værktøj, kan du hurtigt konvertere en enkelt række eller kolonne til en række celler og omvendt.

Kutools til Excel : med mere end 300 praktiske Excel-tilføjelsesprogrammer, gratis at prøve uden begrænsning på 30 dage

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

1. Vælg de kolonnedata, som du vil opdele i to kolonner efter hver anden række.

2. Klik derefter på Kutools > Range > Transformér rækkevidde, se skærmbillede:

3. I Transformér rækkevidde dialogboksen, vælg En kolonne til rækkevidde under Transformeringstype, Og vælg derefter Fast værdi og indtast 2 ind i feltet i Rækker pr. Rekord sektion, se skærmbillede:

doc delt hver anden række 9

4. Klik derefter på Ok knappen, og en promptboks vil poppe ud for at minde dig om at vælge en celle, hvor du vil udskrive resultatet, se skærmbillede:

doc delt hver anden række 10

5. Klik OK, listedata er blevet opdelt i to kolonner hver anden række.

Klik for at vide mere om dette Transform Range-værktøj.

Gratis download Kutools til Excel nu

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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How to do the opposite of this? Get two column info in one row ?
This comment was minimized by the moderator on the site
Hi, Jas,
To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

Sub ConvertRangeToColumn()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

Please try, hope it can help you!
This comment was minimized by the moderator on the site
As a workaround, you can do the following: Using the above example, 1. Type "=a2" in c2 and "=a3" in d3. 2. Now select c2 through d3. 3. Drag the fill handle parallel to all the data. 4. Now delete cell a2 and shift cells up. 5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself. 6. Now you can simply sort any of the column alphabetically to bring all the data up.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations