Hogyan lehet áthelyezni minden második sort oszlopra az Excelben
Megpróbálta már minden más soradatot áthelyezni az Excel oszlopába, például minden páratlan sort az egyik oszlopba, és a páros sorokat a másik oszlopba, amelyek a képernyőkép alatt láthatók. Itt találok néhány trükköt, amelyek képesek kezelni ezt a problémát.
Minden második sort mozgasson a képlettel rendelkező oszlopba
Minden második sort mozgasson oszlopba a VBA segítségével
Mozgassa át minden második sort oszlopra a Kutools for Excel segítségével
Minden második sort mozgasson a képlettel rendelkező oszlopba
Az Excel legtöbb felhasználójának a képlet használata a legegyszerűbb módszer az Excel problémájának megoldására.
1. Jelöljön ki egy cellát az adatai mellett, és írja be ezt a képletet = HA (ISEVEN (ROW (B2)), B2, "") (B2 jelöli a megszerezni kívánt adatokat), majd nyomja meg a gombot belép gombot, majd húzza az automatikus kitöltést a kívánt tartomány kitöltéséhez használja ezt a képletet. Most minden második sor adatát kapta ebben az oszlopban.
2. Ezután válassza ki a másik cellát a fenti oszlop mellett, és írja be ezt a képletet = IF (ISODD (ROW (B3)), B3, "") (A B3 a beolvasni kívánt adat), majd nyomja meg a gombot belép gombot, majd húzza az automatikus kitöltést a kívánt tartomány kitöltéséhez használja ezt a képletet. Most minden harmadik sor adat került ebbe az oszlopba.
Minden második sort mozgasson oszlopba a VBA segítségével
A következő VBA minden más sort áthelyezhet oszlopba.
1. nyomja meg F11 + Alt billentyűket együtt a billentyűzeten az M megnyitásáhozicrosoft Visual Basic for Applications ablak.
2. Ezután kattintson betétlap > Modulok új modulablak beszúrásához. Ezután másolja a következő VBA kódot az ablakba.
VBA: Minden második sort áthelyez az oszlopba.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
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 InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. kettyenés futás gombot vagy F5 gombot a billentyűzeten, és megjelenik egy párbeszédpanel, ahol kiválaszthatja az áthelyezendő tartományt. Lásd a képernyőképet:
4. Ezután kattintson OK a másik párbeszédpanel megjelenítéséhez válassza ki az eredmény megjelenítésére szolgáló cellát. Lásd a képernyőképet:
5. kettyenés OK, és az alábbiak szerint láthatja az eredményt:
Mozgassa át minden második sort oszlopra a Kutools for Excel segítségével
A képletek és a VBA mellett, ha telepítette Kutools az Excel számára, használhatja azt Átalakítási tartomány funkció segítségével gyorsan áthelyezhet minden második sort oszlopra.
Kutools az Excel számára több mint 300 praktikus Excel eszközt tartalmaz. 30 nap alatt szabadon kipróbálható korlátozás nélkül. Szerezd meg most
1. Válassza ki a mozgatni kívánt tartományt minden második sorban, majd kattintson a gombra Kutools > Tartomány átalakító > Átalakítási tartomány. Lásd a képernyőképet:
2. Ban,-ben Átalakítási tartomány párbeszédpanelen ellenőrizze Egyetlen oszlop a tartományhoz in Átalakítás típusa szakaszban, és ellenőrizze Rögzített érték majd válassza vagy írja be 2 listában Sorok rekordonként szakasz. Lásd a képernyőképet:
3. kettyenés Ok párbeszédpanel megnyitásához egyetlen cella kiválasztásához az eredmény kiállításához lásd a képernyőképet:
4. Ezután kattintson OK. Az eredményt az alábbiak szerint láthatja:
További információ a Transform Range-ről.
Relatív cikkek:
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!