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
Osszon fel egy oszlopot minden második sorban a Kutools for Excel segítségével
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:
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:
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.
Ingyenesen töltse le a Kutools for Excel alkalmazást most
A legjobb irodai hatékonyságnövelő eszközök
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...
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!
