Hogyan lehet törölni minden más sort az Excelben (vagy minden n. Sorban)

Videó megtekintése - Minden más sor törlése az Excelben

Néha szükség lehet az Excel minden második sorának (azaz alternatív sorok) vagy minden harmadik/negyedik/ötödik sorának törlésére.

Ennek egyik felhasználási módja az lehet, ha heti adatai vannak, és csak páros vagy páratlan hetekre szeretné az adatokat. Másik eset lehet, ha adatkiírást kap egy adatbázisból, és minden hasznos adat csak minden második vagy harmadik sorban található.

Bár mindig lehetősége van manuálisan kiválasztani és törölni a sorokat, ez nem hatékony, ha nagy adathalmaza van.

Vannak jobb módszerek is erre.

Ebben az oktatóanyagban megmutatok néhány módszert az Excel minden második sorának törlésére egy egyszerű szűrési technikával. És ha jól érzi magát a VBA makrókód használatával, megadtam egy rövid VBA -kódot is, amely egyetlen kattintással megcsinálja. A módszerek ebben az oktatóanyagban láthatók az Excel összes verziójára (2007, 2010, 2013 és 2016)

Bár az Excel minden második sorának törlése meglehetősen egyszerű lehet, kihívást jelenthet minden más oszlop törlése. Ennek oka az, hogy nem szűrheti az oszlopokat az Excelben (a sorok szűrésének módja). Ennek az oktatóanyagnak az utolsó szakaszában mutatok néhány módot az alternatív oszlopok (vagy minden N -edik oszlop) törlésére az Excelben.

Minden más sor törlése az adathalmaz szűrésével (képlet használatával)

Ha valahogy ki tudná szűrni az összes páros vagy páratlan sort, szuper könnyű lenne törölni ezeket a sorokat/rekordokat.

Bár erre nincs beépített szolgáltatás, használhat segítő oszlopot, hogy először ossza fel a sorokat páratlanra és párosra, majd szűrjen a segítő oszlop értéke alapján.

Tegyük fel, hogy rendelkezik az alább látható adatkészlettel, amely értékesítési adatokat tartalmaz két értékesítési képviselőre vonatkozóan két régióban (az Egyesült Államokban és Kanadában), és törölni szeretné Kanada adatait.

Az alábbiakban bemutatjuk a lépéseket a szűréshez, majd minden más sor törléséhez (amely Kanadára vonatkozó adatokat tartalmaz):

1. Az utolsó oszlopfejléc melletti cellába írja be a szöveget Segédoszlop (vagy bármilyen fejlécszöveget, amelyet a segítő oszlopban szeretne megjeleníteni)
2. A segítő oszlopfejléc alatti cellába írja be a következő képletet: = ISEVEN (ROW ()). Másolja ezt a képletet az összes cellára. Ez a képlet az IGAZ értéket adja vissza minden páros sorra, és hamisat az összes ODD sorra
3. Válassza ki a teljes adatkészletet (beleértve azokat a cellákat is, ahol a fenti lépésben megadtuk a képletet).
4. Kattintson az Adatok fülre
5. Kattintson a Szűrő ikonra. Ez szűrőt alkalmaz az adatkészlet összes fejlécére
6. Kattintson a Szűrő ikonra a HelperColumn cellában.
7. Törölje az IGAZ opció kijelölését (tehát csak a HAMIS opció van kiválasztva)
8. Kattintson az OK gombra. Ez kiszűri az adatokat, és csak azokat a rekordokat jeleníti meg, ahol a HelperColumn értéke HAMIS.
9. Válassza ki az összes szűrt cellát a segítő oszlopban (kivéve a fejlécet)
10. Kattintson a jobb gombbal a kijelölt cellák bármelyikére, majd kattintson a "Sor törlése" gombra
11. A megnyíló párbeszédpanelen kattintson az OK gombra. Ezzel törli az összes látható rekordot, és csak a fejléc sort fogja látni.
12. Kattintson az Adatok fülre, majd a Szűrő ikonra. Ezzel eltávolítja a szűrőt, és látni fogja az összes fennmaradó rekordot.

A fenti lépések az adatkészlet minden második sorát szűrik, majd törlik azokat.

Ne aggódjon a segítő oszlop értékei miatt ebben a szakaszban. A kapott adatok csak az Egyesült Államok sorait tartalmazzák, és az összes Kanada sor törlődik. Most törölheti a segítő oszlopot.

Ha minden második sort törölni szeretne az első sortól kezdve, válassza ki az IGAZ opciót a 7. lépésben, és törölje a HAMIS opció kijelölését.

Megjegyzés: Ha törli a sorokat az Excel programban a fenti módszerrel, akkor az összes adat is törlődik (kivéve az adathalmazt). Amikor ezt a módszert használja, győződjön meg arról, hogy a törlendő adatkészlet bal és jobb oldalán nincs semmi.

Bár a fenti módszer nagyszerű, két hátránya van:

1. Hozzá kell adnia egy új oszlopot ( Segédoszlop fenti példánkban)
2. Időigényes lehet, ha gyakran törölnie kell az alternatív sorokat

Kapcsolódó oktatóanyag: Sorok törlése cellaérték (vagy feltétel) alapján az Excelben

Minden n -edik sor törlése az adathalmaz szűrésével (képlet használatával)

A fenti módszerben megmutattam, hogyan lehet törölni minden más sort (alternatív sort) az Excelben.

És ugyanazt a logikát használhatja az Excel minden harmadik vagy negyedik sorának törlésére is.

Tegyük fel, hogy rendelkezik az alább látható adatkészlettel, és minden harmadik sort törölni szeretne.

A minden harmadik sor törlésének lépései majdnem megegyeznek a fenti részben leírtakkal (az alternatív sorok törléséhez). Az egyetlen különbség a 2. lépésben használt képletben van.

Ennek lépései az alábbiakban találhatók:

1. Az utolsó oszlopfejléc melletti cellába írja be a szöveget Segédoszlop (vagy bármilyen fejlécszöveget, amelyet a segítő oszlopban szeretne megjeleníteni)
2. A segítő oszlopfejléc alatti cellába írja be a következő képletet: = MOD (SOR (), 3) = 1. Ez a képlet IGAZ értéket ad vissza minden harmadik sorban, és hamisat minden más sorban.
3. Válassza ki a teljes adatkészletet (beleértve azokat a cellákat is, ahol a fenti lépésben megadtuk a képletet).
4. Kattintson az Adatok fülre
5. Kattintson a Szűrő ikonra. Ez szűrőt alkalmaz az adatkészlet összes fejlécére
6. Kattintson a Szűrő ikonra a HelperColumn cellában.
7. Törölje az IGAZ opció kijelölését (tehát csak a HAMIS opció van kiválasztva)
8. Kattintson az OK gombra. Ez kiszűri az adatokat, és csak azokat a rekordokat jeleníti meg, ahol a HelperColumn értéke HAMIS.
9. Jelölje ki a segítő oszlop összes celláját
10. Kattintson a jobb gombbal a kijelölt cellák bármelyikére, majd kattintson a Sor törlése gombra
11. A megnyíló párbeszédpanelen kattintson az OK gombra. Ezzel törli az összes látható rekordot, és csak a fejléc sort fogja látni.
12. Kattintson az Adatok fülre, majd a Szűrő ikonra. Ezzel eltávolítja a szűrőt, és látni fogja az összes fennmaradó rekordot.

A fenti lépések minden harmadik sort törölnek az adatkészletből, és a kapott adatokat az alábbiak szerint kapja meg.

Ebben a szakaszban ne aggódjon a segítő oszlop értékei miatt. Most törölheti a segítő oszlopot.

A 2. lépésben használt képlet a MOD funkciót használja - ez adja meg a maradékot, amikor az egyik számot elosztják a másikkal. Itt a ROW függvényt használtam a sorszám lekéréséhez, és osztva 3 -mal (mert minden harmadik sort törölni szeretnénk).

Mivel az adatkészletünk a második sortól kezdődik (azaz a 2. sor tartalmazza az első rekordot), a következő képletet használom:= MOD (SOR (), 3) = 1

Az 1 -gyel egyenlítem ki, és minden harmadik sorban a MOD képlet a maradékot 1 -nek adja.

Ennek megfelelően módosíthatja a képletet. Például, ha az adatkészlet első rekordja a harmadik sortól kezdődik, a képlet az lenne = MOD (SOR (), 3) = 2

Minden más sor (vagy az 9. sor) automatikus törlése a VBA makróval (gyors módszer)

Ha minden második sort (vagy minden n. Sort) elég gyakran törölnie kell, használhat egy VBA -kódot, és elérhetővé teheti a Gyorselérési eszköztárban. Ez lehetővé teszi az alternatív sorok gyors törlését egyetlen kattintással.

Az alábbiakban látható a kód, amely először arra kéri, hogy válassza ki azt a tartományt, amelyben törölni szeretné az alternatív sorokat, majd törölje a kiválasztott adatkészlet minden második sorát.

Sub Delete_Every_Other_Row () Dim Rng mint tartománykészlet Rng = Application.InputBox ("Válassza ki a tartományt (fejlécek nélkül)", "Tartományválasztás", Típus: = 8) I = Rng.Rows.Count to 1 Step -2 If i Mod 2 = 0 Ezután Rng. Sorok (i). Törölje a végét, ha a következő i End Sub

Amikor futtatja a fenti kódot, először megkéri, hogy válassza ki a cellatartományt. A kiválasztás után minden sorban végigmegy, és minden második sort törli.

Ha helyette minden harmadik sort szeretne törölni, akkor használja az alábbi kódot:

Sub Delete_Every_Third_Row () Dim Rng mint tartománykészlet Rng = Application.InputBox ("Válassza ki a tartományt (fejlécek nélkül)", "Tartományválasztás", Típus: = 8) I = Rng.Rows.Count to 1 Step -3 If i Mod 3 = 0 Ezután Rng. Sorok (i). Törölje a végét, ha a következő i End Sub

Hová tegye ezt a VBA makrókódot?

Ezt a kódot el kell helyeznie egy normál modulba az Excel VB szerkesztőjében.

Az alábbiakban bemutatjuk a lépéseket a Vb szerkesztő megnyitásához, egy modul hozzáadásához és a kód elhelyezéséhez:

1. Másolja a fenti VBA kódot.
2. Lépjen a Fejlesztő fülre.
3. Kattintson a Visual Basic elemre.
4. A VB szerkesztőben kattintson a jobb gombbal a munkafüzet bármelyik objektumára.
5. Lépjen a Beszúrás elemre, és kattintson a Modul elemre.
6. A modulba illessze be a fenti VBA kódot.
7. Zárja be a VB szerkesztőt.

Miután megtalálta a kódot a VB szerkesztőben, a következő módszerekkel futtathatja a kódot:

• Futtasson makrót a VB szerkesztőből (kattintson a zöld lejátszás gombra a VB Editor eszköztárában)
• Ha a kurzort a kód bármely sorára helyezi, és az F5 billentyűt használja
• A makró gombhoz vagy alakzathoz rendelésével
• A makró hozzáadásával a gyorselérési eszköztárhoz

Itt található egy részletes bemutató a makró futtatásáról Excelben.

Ha ezt gyakran kell tennie, fontolja meg a VBA -kód hozzáadását a Személyes makró munkafüzethez. Így mindig elérhető lesz az összes munkafüzetben való használatra.

Ha van VBA-kódja a munkafüzetben, akkor azt makró-engedélyezettként kell mentenie (a .XLSM kiterjesztéssel)

Megjegyzés: Mivel a VBA-kód által végrehajtott módosítások visszafordíthatatlanok, célszerű először biztonsági másolatot készíteni a munkafüzetről/munkalapról, majd futtatni ezt a kódot.

Minden más oszlop (vagy minden n. Oszlop) törlése

Minden alternatív sor vagy minden harmadik/negyedik sor törlése egyszerű, mivel használhatja a szűrő opciót. Mindössze annyit kell tennie, hogy olyan képletet használ, amely azonosítja az alternatív sorokat (vagy minden harmadik/negyedik sort), és kiszűri ezeket a sorokat.

Sajnos ugyanez a módszer nem működik az oszlopokkal - mivel nem tudja úgy szűrni az oszlopokat, ahogyan a sorokat.

Tehát, ha minden más oszlopot (vagy minden harmadik/negyedik/n. Oszlopot) törölnie kell, akkor kicsit kreatívabbnak kell lennie.

Ebben a részben két módszert mutatok be, amelyekkel törölheti az Excel összes többi oszlopát (és ugyanezzel a módszerrel törölheti minden harmadik/negyedik/n. Oszlopot, ha szeretné).

Alternatív oszlopok törlése képletek és rendezési módszer segítségével

Tegyük fel, hogy rendelkezik az alább látható adatkészlettel, és minden más oszlopot törölni szeretne (kivéve az A fejléc oszlopot)

A trükk itt az lenne, ha egy képlet segítségével azonosítaná az alternatív oszlopokat, majd az oszlopokat a képlet alapján rendezné. Miután összeállította a rendezett oszlopokat, manuálisan kiválaszthatja és törölheti ezt.

Az alábbiakban bemutatjuk az Excel összes többi oszlopának törlésére vonatkozó lépéseket:

1. Szúrjon be egy sort a fejlécsor fölé (kattintson jobb gombbal a fejléc bármely cellájára, kattintson a Beszúrás gombra, majd kattintson a Teljes sor opcióra)
2. Írja be a következő képletet az adatkészlet bal szélső oszlopa feletti cellába, és másolja az összes cellára: = MOD (OSZLOP (), 2)
3. A képlet értékeit alakítsa át számokká. Ehhez másolja ki a cellákat, kattintson a jobb egérgombbal, és lépjen a Speciális beillesztés -> Értékek beillesztése lehetőségre.
4. Válassza ki a teljes adatkészletet (kivéve az oszlop fejléceit). Ebben a példában a B1: G14 (és NEM A oszlop)
5. Kattintson az Adatok fülre
6. Kattintson a Rendezés ikonra
7. A Rendezés párbeszédpanelen hajtsa végre a következő módosításokat:
   • Kattintson a „Beállítások” gombra, és a megnyíló párbeszédpanelen kattintson a „Rendezés balról jobbra”, majd az OK gombra
   • A Rendezés szerint legördülő menüben válassza az 1. sort. Ez a sor tartalmazza a képlet eredményeit
   • A Rendelés legördülő menüben válassza a legkisebbtől a legnagyobbig lehetőséget.
8. Kattintson az OK gombra

A fenti lépések rendezik az összes oszlopot, és összehozzák az összes alternatív oszlopot egy helyre (a végén).

Most kiválaszthatja ezeket az oszlopokat (amelyek képletértéke 1), és törölheti ezeket.

Bár ez nem a legjobb megoldás, mégis elvégzi a munkát.

Abban az esetben, ha minden harmadik vagy negyedik oszlopot törölni szeretne, ennek megfelelően kell módosítani a képletet.

Kapcsolódó oktatóanyag: RENDELÉS Excelben (sorok, oszlopok, színek, dátumok és számok szerint)

Alternatív oszlopok törlése a VBA használatával

Az alternatív oszlopok törlésének másik gyors módja az alábbi VBA -kód használata:

Sub Delete_Every_Other_Column () Dim Rng, mint tartománykészlet Rng = Application.InputBox ("Válassza ki a tartományt (fejlécek nélkül)", "Tartományválasztás", Típus: = 8) I = Rng.Oszlopok.Számlálás az 1. lépéshez -2 Ha i Mod 2 = 0 Ezután Rng. Oszlopok (i). Törölje a végét, ha a következő i End Sub

A fenti kód arra kéri, hogy válasszon ki egy oszlopokkal rendelkező cellatartományt. Itt ki kell választania az oszlopokat, kivéve a fejlécet tartalmazó oszlopokat.

Miután megadta az adatok celláinak tartományát, a For Loop funkciót használja, és minden más oszlopot töröl.

Ha minden harmadik oszlopot törölni szeretne, használhatja az alábbi kódot (és ennek megfelelően módosíthatja az N. Oszlop törlését)

Sub Delete_Every_Third_Column () Dim Rng mint tartománykészlet Rng = Application.InputBox ("Válassza ki a tartományt (fejlécek nélkül)", "Tartományválasztás", Típus: = 8) I = Rng.Oszlopok esetén. Számoljon 1 lépésig -3 Ha i Mod 3 = 0 Ezután Rng. Oszlopok (i). Törölje a végét, ha a következő i End Sub

A fenti VBA -kód elhelyezésének és használatának lépéseit a fenti szakasz tartalmazza - „Minden más sor (vagy az 9. sor) automatikus törlése VBA makróval (gyors módszer)”

Remélem, hasznosnak találta ezt az Excel oktatóanyagot.