Ugrás a tartalomra

Hogyan oszthasson oszlopot minden második sorban az Excelben?

doki minden második sort felosztott 1

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

Osszon fel egy oszlopot minden második sorban a Kutools for Excel segítségével


nyíl kék jobb buborék 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

doki minden második sort felosztott 2

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:

doki minden második sort felosztott 3

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:

doki minden második sort felosztott 4


nyíl kék jobb buborék 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:

doki minden második sort felosztott 5

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:

doki minden második sort felosztott 6

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

doki minden második sort felosztott 7


nyíl kék jobb buborék Osszon fel egy oszlopot minden második sorban a Kutools for Excel segítségével

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

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket :( Ingyenesen töltse le a Kutools for Excel alkalmazást most )

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:

doki minden második sort felosztott 9

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:

doki minden második sort felosztott 10

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.

Ingyenesen töltse le a Kutools for Excel alkalmazást most

A legjobb irodai hatékonyságnövelő eszközök

Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

kte lap 201905


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
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