Hur delar jag upp en kolumn varannan rad i Excel?

Till exempel har jag en lång lista med data, och nu vill jag dela kolumnen i två listor lika med varannan rad enligt följande skärmdump. Finns det några bra sätt att hantera denna uppgift i Excel?

Dela en kolumn varannan rad med formler

Dela en kolumn varannan rad med VBA-kod

Dela en kolumn varannan rad med Kutools för Excel

Dela en kolumn varannan rad med formler

Följande formler kan hjälpa dig att snabbt dela upp en kolumn i två kolumner med varannan rad, gör så här:

1. Ange denna formel i en tom cell, C2, till exempel, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), se skärmdump ：

2. Dra sedan påfyllningshandtaget ner tills felen visas i cellerna, se skärmdump:

3. Ange sedan en annan formel i cell D2, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)och dra påfyllningshandtaget ner till cellerna tills felvärden visas och kolumnvärdena har delats upp i två kolumner varannan rad, se skärmdump:

Dela en kolumn varannan rad med VBA-kod

Om du är intresserad av VBA-kod här kan jag prata om en kod för dig för att lösa detta problem.

1. Håll ner ALT + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.

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

VBA-kod: Dela upp en kolumn i två kolumner varannan rad

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. Tryck sedan på F5 -knappen för att köra den här koden, och en snabbruta dyker upp för att påminna dig om att välja det dataområde som du vill dela, se skärmdump:

4. och klicka OK, en annan snabbruta är poppad för att låta dig välja en cell för att sätta resultatet, se skärmdump:

5. Klicka sedan OKoch kolumnen har delats upp i två kolumner av varannan rad. Se skärmdump:

Dela en kolumn varannan rad med Kutools för Excel

Om du vill lära dig mer nya saker kan jag rekommendera ett kraftfullt verktyg - Kutools för Excel, med dess Transformera intervall verktyget kan du snabbt konvertera en rad eller kolumn till ett cellområde och tvärtom.

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

1. Välj kolumndata som du vill dela upp i två kolumner med varannan rad.

2. Klicka sedan Kutools > Mätområde > Transformera intervall, se skärmdump:

3. I Transformera intervall dialogrutan väljer du Enstaka kolumn för intervall under Transformera typOch välj sedan Fast värde och skriv in 2 in i rutan i Rader per post avsnitt, se skärmdump:

4. Klicka sedan Ok knappen, och en snabbruta dyker upp för att påminna dig om att du väljer en cell där du vill mata ut resultatet, se skärmdump:

5. Klicka OKhar listdata delats upp i två kolumner varannan rad.

Klicka för att veta mer om detta Transform Range-verktyg.