Hogyan oszthasson oszlopot minden második sorban az Excelben?

Például hosszú adatlistám van, és most az oszlopot két listára szeretném osztani, minden második sorral egyenlően, az alábbi képernyőkép szerint. Vannak jó módszerek ennek a feladatnak az Excelben történő kezelésére?

Hasítson oszlopot minden második sorban a Képletek segítségével

Hasítson oszlopot minden második sorban VBA kóddal

Oszd fel egy oszlopot minden második sorban ezzel Kutools for Excel

Hasítson oszlopot minden második sorban a Képletek segítségével

A következő képletek segíthetnek abban, hogy gyorsan oszthasson oszlopokat két oszlopra minden második sorra, kérjük, tegye a következőket:

1. Írja be ezt a képletet egy üres cellába, például C2, =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1), lásd a képernyőképet

2. Ezután húzza lefelé a kitöltő fogantyút, amíg a hibák meg nem jelennek a cellákban, lásd a képernyőképet:

3. Ezután írjon be egy másik képletet a D2 cellába, =INDEX($A$2:$A$13,ROWS(D$1:D1)*2), és húzza lefelé a cellákat a cellákig, amíg a hibaértékek meg nem jelennek, és az oszlopértékek minden második sorban két oszlopra oszlanak, lásd a képernyőképet:

Hasítson oszlopot minden második sorban VBA kóddal

Ha érdekel a VBA kód, itt beszélhetek egy kódról, amely megoldja ezt a problémát.

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Oszlop két oszlopra osztása minden második sorban

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és megjelenik egy prompt doboz, amely emlékezteti Önt arra, hogy válassza ki a felosztani kívánt adattartományt, lásd a képernyőképet:

4. és kattintson OK, egy újabb prompt doboz jelenik meg, amely lehetővé teszi, hogy kiválasszon egy cellát az eredmény feladásához, lásd a képernyőképet:

5. Ezután kattintson OK, és az oszlopot minden második sor két oszlopra osztotta fel. Lásd a képernyőképet:

Oszd fel egy oszlopot minden második sorban ezzel Kutools for Excel

Ha még több új dolgot szeretne megismerni, ajánlhatok egy hatékony eszközt - Kutools for Excel, Annak Átalakítási tartomány segédprogram segítségével gyorsan konvertálhat egyetlen sort vagy oszlopot cellatartományra és fordítva.

Telepítése után Kutools for Excel, kérjük, tegye a következőket:

1. Válassza ki azokat az oszlopadatokat, amelyeket két oszlopra kíván felosztani minden második sor által.

2. Ezután kattintson Kutools > Választék > Átalakítási tartomány, lásd a képernyőképet:

3. Az Átalakítási tartomány párbeszédpanelen válassza ki Egyetlen oszlop a tartományhoz alatt a Átalakítás típusa, majd válassza ki Rögzített érték és írja be 2 a dobozba a Sorok rekordonként szakasz, lásd a képernyőképet:

4. Ezután kattintson Ok gombra, és megjelenik egy felszólító doboz, amely emlékezteti Önt arra, hogy válasszon egy cellát, ahová az eredményt ki szeretné adni, lásd a képernyőképet:

5. Kattints OK, a lista adatait minden második sorban két oszlopra osztották fel.

Kattintson ide, ha többet szeretne megtudni erről a Transform Range segédprogramról.