Tartalomjegyzék
Ez a rövid bemutató elmagyarázza, hogyan törölhet minden második sort az Excelben szűréssel vagy VBA-kóddal. Azt is megtudhatja, hogyan távolíthat el minden 3., 4. vagy bármely más N-edik sort.
Számos olyan helyzet van, amikor szükség lehet az Excel munkalapok váltakozó sorainak törlésére. Például, ha meg szeretné tartani a páros hetek adatait (2., 4., 6., 8. stb. sorok), és az összes páratlan hetet (3., 5., 7. stb. sorok) egy másik lapra szeretné áthelyezni.
Általában minden második sor törlése az Excelben a váltakozó sorok kijelölésére korlátozódik. Miután a sorok kijelölésre kerültek, egyetlen vonással a Törölje a címet. gombra van szükség. A cikk további részében megtanulhat néhány technikát, amellyel gyorsan kiválaszthat és törölhet minden második vagy minden N-edik sort az Excelben.
Hogyan törölhet minden más sort az Excelben szűréssel
Lényegében az Excelben minden második sor törlésének gyakori módja a következő: először szűrjük a váltakozó sorokat, majd kijelöljük őket, és egyszerre töröljük az összeset. A részletes lépések az alábbiakban következnek:
- Az eredeti adatok melletti üres oszlopba írjon be egy nullákból és egyesekből álló sorozatot. Ezt gyorsan megteheti, ha az első cellába 0-t, a másodikba pedig 1-et ír, majd az első két cellát lemásolja, és az utolsó adatot tartalmazó celláig beilleszti az oszlopba.
Alternatívaként használhatja ezt a képletet is:
=MOD(ROW(),2)A képlet logikája nagyon egyszerű: a ROW függvény visszaadja az aktuális sorszámot, a MOD függvény osztja azt 2-vel, és a maradékot egész számra kerekítve adja vissza.
Ennek eredményeként minden páros sorban 0 lesz (mivel maradék nélkül egyenlően osztjuk el 2-vel), és minden páratlan sorban 1:
- Attól függően, hogy páros vagy páratlan sorokat szeretne törölni, szűrje ki az egyeseket vagy a nullákat.
Ehhez jelölje ki a Segítő oszlop bármelyik celláját, lépjen a Adatok tab> Rendezés és szűrés csoport, és kattintson a Szűrő gombra. A legördülő szűrőnyilak megjelennek az összes fejléccellában. Kattintson a Segítő oszlopban lévő nyíl gombra, és jelölje be az egyik négyzetet:
- 0 a páros sorok törléséhez
- 1 a páratlan sorok törléséhez
Ebben a példában a "0" értékkel rendelkező sorokat fogjuk eltávolítani, ezért szűrjük őket:
Lásd még: Excel feltételes formázás üres cellákhoz - Most, hogy az összes "1" sor el van rejtve, jelölje ki az összes látható "0" sort, kattintson a jobb gombbal a kijelölésre, majd kattintson a Sor törlése :
Lásd még: Excel szalag: gyors útmutató kezdőknek - A fenti lépéssel egy üres táblázatot kaptunk, de ne aggódjunk, az "1" sorok még mindig ott vannak. Ahhoz, hogy újra láthatóvá tegyük őket, egyszerűen távolítsuk el az automatikus szűrőt a Szűrő gombot újra:
- A C oszlopban lévő képlet újraszámítja a fennmaradó sorokat, de már nincs rá szüksége. Most már nyugodtan törölheti a Segítő oszlopot:
Ennek eredményeként csak a páros hetek maradtak a munkalapunkon, a páratlan hetek eltűntek!
Tipp: Ha ahelyett, hogy teljesen törölné őket, minden más sort máshová szeretne áthelyezni, először másolja a szűrt sorokat, és illessze be egy új helyre, majd törölje a szűrt sorokat.
Hogyan törölheti a váltakozó sorokat az Excelben a VBA segítségével
Ha nem szeretné az idejét olyan triviális feladatra pazarolni, mint az Excel-munkalapok minden második sorának törlése, a következő VBA-makró automatizálhatja a folyamatot:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count>= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) To 1.Step -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End SubHogyan törölhet minden második sort az Excelben a makró segítségével?
Szúrja be a makrót a munkalapba a szokásos módon a Visual Basic szerkesztőprogramon keresztül:
- Nyomja meg az Alt + F11 billentyűkombinációt a Visual Basic for Applications ablak megnyitásához.
- A felső menüsoron kattintson a Beillesztés > Modul , és illessze be a fenti makrót a Modul
- Nyomja meg az F5 billentyűt a makró futtatásához.
- Megjelenik egy párbeszédpanel, amely egy tartomány kiválasztására szólítja fel. Válassza ki a táblázatot, és kattintson az OK gombra:
Kész! A kiválasztott tartományban minden más sor törlődik:
Hogyan törölhet minden N-edik sort az Excelben
Ehhez a feladathoz kibővítjük azt a szűrési technikát, amelyet minden második sor eltávolítására használtunk. A különbség a szűrés alapjául szolgáló képletben van:
MOD(ROW()- m , n )Hol:
- m az első adatot tartalmazó cella sorszáma mínusz 1
- n a törlendő N-edik sor
Tegyük fel, hogy az adataink a 2. sorban kezdődnek, és minden 3. sort törölni szeretnénk. Tehát a képletben n egyenlő 3, és m egyenlő 1 (2. sor mínusz 1):
=MOD(SOR() - 1, 3)
Ha adataink a 3. sorban kezdődtek, akkor m egyenlő lenne 2-vel (3. sor mínusz 1), és így tovább. Ez a korrekció szükséges a sorok sorszámozásához, kezdve az 1-es számmal.
A képlet annyit tesz, hogy a relatív sorszámot elosztja 3-mal, és az osztás után visszaadja a maradékot. A mi esetünkben minden harmadik sorra nullát ad, mert minden harmadik számot maradék nélkül oszt 3 -val (3,6,9 stb.):
Most pedig a már ismert lépéseket hajtja végre a "0" sorok szűréséhez:
- Jelölje ki a táblázat bármelyik celláját, és kattintson a Szűrő gombot a Adatok
- Szűrje a Segítő oszlopot, hogy csak a "0" értékek jelenjenek meg.
- Jelölje ki az összes látható "0" sort, kattintson a jobb gombbal, és válassza a Sor törlése a kontextusmenüből.
- Távolítsa el a szűrőt, és törölje a Helper oszlopot.
Hasonló módon törölhet minden 4., 5. vagy bármely más N-edik sort az Excelben.
Tipp: Ha irreleváns adatokat tartalmazó sorokat kell eltávolítania, a következő útmutató hasznos lehet: Hogyan törölhetünk sorokat a cellák értéke alapján.
Köszönöm, hogy elolvastátok, és remélem, jövő héten újra találkozunk a blogunkon.
