Ugrás a tartalomra

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.

doc-minden-másik-sor-oszlop-1

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


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

doc-minden-másik-sor-oszlop-2

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.

doc-minden-másik-sor-oszlop-3


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

doc-minden-másik-sor-oszlop-4

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:

doc-minden-másik-sor-oszlop-5

5. kettyenés OK, és az alábbiak szerint láthatja az eredményt:

doc-minden-másik-sor-oszlop-6


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

doc-minden-másik-sor-oszlop-7

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:

doc-minden-másik-sor-oszlop-8

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:

doc-minden-másik-sor-oszlop-9

4. Ezután kattintson OK. Az eredményt az alábbiak szerint láthatja:

doc-minden-másik-sor-oszlop-10

További információ a Transform Range-ről.


Relatív cikkek:

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
Perfect, thank you!
This comment was minimized by the moderator on the site
Thank you so much! this worked :)
This comment was minimized by the moderator on the site
What about converting every line in which there are words into columns, and not numbers?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations