Kuidas Excelis iga teine ​​rida (või iga üheksas rida) kustutada

Vaadake videot - kustutage Excelis iga teine ​​rida

Mõnikord võib tekkida vajadus kustutada Excelis iga teine ​​rida (st alternatiivsed read) või iga kolmas/neljas/viies rida.

Selle üks juhtum võib olla siis, kui teil on iganädalased andmed ja soovite andmeid ainult paarinädalate või paaritute nädalate kohta. Teine võib olla see, kui saate andmebaasist andmete väljavõtte ja kõik kasulikud andmed on ainult igal teisel või kolmandal real.

Kuigi teil on alati võimalus ridu käsitsi valida ja kustutada, on see suure andmekogumi korral ebaefektiivne.

Selleks on paremaid viise.

Selles õpetuses näitan teile paari lihtsa filtreerimistehnika abil Excelis iga teise rea kustutamise võimalust. Ja kui teil on VBA makrokoodi kasutamisel lahe, olen andnud ka lühikese VBA -koodi, mis teeb seda ühe klõpsuga. Meetodid on näidatud selles juhenditöös kõigi Exceli versioonide jaoks (2007, 2010, 2013 ja 2016)

Kuigi Exceli iga teise rea kustutamine võib olla üsna lihtne, võib iga teise veeru kustutamine olla väljakutse. Seda seetõttu, et te ei saa Excelis veerge filtreerida (ridade filtreerimise viis). Selle õpetuse viimases osas näitan teile ka mõningaid viise alternatiivsete veergude (või iga n -nda veeru) kustutamiseks Excelis.

Kustutage iga teine ​​rida, filtreerides andmekogumit (kasutades valemit)

Kui saaksite kuidagi filtreerida kõik paaris- või paaritu read, oleks nende ridade/kirjete kustutamine ülilihtne.

Kuigi selleks pole sisseehitatud funktsiooni, saate abistajaveeru abil esmalt jaotada read paarituks ja paaris ning seejärel filtreerida abistajaveeru väärtuse alusel.

Oletame, et teil on allpool näidatud andmekogum, mis sisaldab müügiandmeid iga müügiesindaja kohta kahe piirkonna (USA ja Kanada) kohta ja soovite kustutada Kanada andmed.

Allpool on toodud sammud filtreerimiseks ja seejärel iga teise rea (millel on Kanada andmed) kustutamiseks.

1. Viimase veeru päise kõrval olevasse lahtrisse sisestage tekst HelperColumn (või mis tahes päise tekst, mida soovite abistajaveerus kasutada)
2. Sisestage abiveeru päise all olevasse lahtrisse järgmine valem: = ISEVEN (ROW ()). Kopeerige see valem kõigi lahtrite jaoks. See valem tagastab kõigi paarisarvuliste ridade puhul tõe ja kõigi ODD -ridade puhul vale
3. Valige kogu andmestik (sealhulgas lahtrid, kuhu sisestasime ülaltoodud sammu valemi).
4. Klõpsake vahekaarti Andmed
5. Klõpsake ikooni Filter. See rakendab filtri kõigile andmestiku päistele
6. Klõpsake lahtris HelperColumn filtriikooni.
7. Tühistage valik TRUE (seega on valitud ainult FALSE)
8. Klõpsake nuppu OK. See filtreerib andmed ja näitab ainult neid kirjeid, mille HelperColumn väärtus on VÄÄR.
9. Valige abistaja veerus kõik filtreeritud lahtrid (välja arvatud päis)
10. Paremklõpsake mõnda valitud lahtrit ja klõpsake nuppu „Kustuta rida”
11. Avanevas dialoogiboksis klõpsake nuppu OK. See kustutab kõik nähtavad kirjed ja näete praegu ainult päise rida.
12. Klõpsake vahekaarti Andmed ja seejärel ikooni Filter. See eemaldab filtri ja näete kõiki ülejäänud kirjeid.

Ülaltoodud sammud filtreerivad andmestiku iga teise rea ja kustutavad need read.

Ärge muretsege selles etapis abistajaveeru väärtuste pärast. Saadud andmetes on ainult USA read ja kõik Kanada read kustutatakse. Saate nüüd abistajaveeru kustutada.

Kui soovite kustutada iga teise rea, alustades esimesest reast, valige sammus 7 tõsi ja tühistage valik FALSE.

Märkus. Kui kustutate Excelis ridad ülaltoodud meetodil, kustutab see ka kõik andmed, mis teil kogu ulatuses võivad olla (välja arvatud andmestiku andmed). Seda meetodit kasutades veenduge, et kustutatava andmestiku vasakul ja paremal poleks midagi.

Kuigi ülaltoodud meetod on suurepärane, on sellel kaks puudust:

1. See peab lisama uue veeru ( HelperColumn meie ülaltoodud näites)
2. See võib võtta palju aega, kui peate alternatiivseid ridu sageli kustutama

Seotud õpetus: ridade kustutamine Exceli lahtri väärtuse (või tingimuse) alusel

Kustutage iga üheksas rida, filtreerides andmekogumit (kasutades valemit)

Ülaltoodud meetodil näitasin teile, kuidas Excelis iga teine ​​rida (alternatiivne rida) kustutada.

Sama loogika abil saate kustutada ka kolmanda või neljanda rea ​​Excelis.

Oletame, et teil on allpool näidatud andmekogum ja soovite kustutada kõik kolmanda rea.

Iga kolmanda rea ​​kustutamise sammud on peaaegu samad, mis ülaltoodud osas (alternatiivsete ridade kustutamiseks). Ainus erinevus on 2. etapis kasutatud valemis.

Allpool on toodud sammud selle tegemiseks.

1. Viimase veeru päise kõrval olevasse lahtrisse sisestage tekst HelperColumn (või mis tahes päise tekst, mida soovite abistajaveerus kasutada)
2. Sisestage abiveeru päise all olevasse lahtrisse järgmine valem: = MOD (RIDA (), 3) = 1. See valem tagastab iga kolmanda rea ​​puhul tõe ja iga teise rea puhul vale.
3. Valige kogu andmestik (sealhulgas lahtrid, kuhu sisestasime ülaltoodud sammu valemi).
4. Klõpsake vahekaarti Andmed
5. Klõpsake ikooni Filter. See rakendab filtri kõigile andmestiku päistele
6. Klõpsake lahtris HelperColumn filtriikooni.
7. Tühistage valik TRUE (seega on valitud ainult FALSE)
8. Klõpsake nuppu OK. See filtreerib andmed ja näitab ainult neid kirjeid, mille HelperColumn väärtus on VÄÄR.
9. Valige kõik abistajaveeru lahtrid
10. Paremklõpsake mõnda valitud lahtrit ja klõpsake nuppu Kustuta rida
11. Avanevas dialoogiboksis klõpsake nuppu OK. See kustutab kõik nähtavad kirjed ja näete praegu ainult päise rida.
12. Klõpsake vahekaarti Andmed ja seejärel ikooni Filter. See eemaldab filtri ja näete kõiki ülejäänud kirjeid.

Ülaltoodud sammud kustutaksid andmekogumist iga kolmanda rea ​​ja saaksite saadud andmed, nagu allpool näidatud.

Ärge muretsege selles etapis abistajaveeru väärtuste pärast. Saate nüüd abistajaveeru kustutada.

2. etapis kasutatav valem kasutab funktsiooni MOD - mis annab ülejäänud, kui üks number jagatakse teisega. Siin olen rea numbri saamiseks kasutanud funktsiooni ROW ja see on jagatud 3 -ga (kuna tahame kustutada iga kolmanda rea).

Kuna meie andmekogum algab teisest reast (st rida nr 2 sisaldab esimest kirjet), kasutan järgmist valemit:= MOD (RIDA (), 3) = 1

Ma võrdsustan selle 1 -ga ja iga kolmanda rea ​​korral annab MOD valem ülejäänud 1.

Valemit saate vastavalt kohandada. Näiteks kui teie andmekogumi esimene kirje algab kolmandast reast, oleks valem järgmine = MOD (RIDA (), 3) = 2

Kustuta automaatselt iga teine ​​rida (või n -nda rida), kasutades VBA makro (kiirmeetod)

Kui peate iga teist rida (või iga n -d rida) üsna sageli kustutama, saate kasutada VBA -koodi ja lasta see kiire juurdepääsu tööriistaribal kättesaadavaks teha. See võimaldab teil ühe klõpsuga kiiresti alternatiivseid ridu kustutada.

Allpool on kood, mis palub teil kõigepealt valida vahemiku, milles soovite alternatiivseid ridu kustutada, ja seejärel kustutada valitud andmekogumi iga teine ​​rida.

Sub Delete_Every_Other_Row () Dim Rng kui vahemikukomplekt Rng = Application.InputBox ("Valige vahemik (välja arvatud päised)", "Vahemiku valik", tüüp: = 8) i = Rng.Rows.Count kuni 1 samm -2 Kui i Mod 2 = 0 Siis Rng. Ridad (i). Kustuta lõpp, kui järgmine i Lõpp alam

Ülaltoodud koodi käivitamisel palub see teil kõigepealt valida lahtrite vahemiku. Kui olete valiku teinud, läbib see iga rea ​​ja kustutab iga teise rea.

Kui soovite selle asemel kustutada iga kolmanda rea, võite kasutada järgmist koodi:

Sub Delete_Every_Third_Row () Dim Rng kui vahemikukomplekt Rng = Application.InputBox ("Valige vahemik (välja arvatud päised)", "Vahemiku valik", tüüp: = 8) I = Rng.Rows.Count to 1 Step -3 If i Mod 3 = 0 Siis Rng. Ridad (i). Kustuta lõpp, kui järgmine i Lõpp alam

Kuhu see VBA makrokood panna?

Peate selle koodi paigutama Exceli VB redaktori tavalisse moodulisse.

Allpool on toodud sammud Vb redaktori avamiseks, mooduli lisamiseks ja koodi sisestamiseks:

1. Kopeerige ülaltoodud VBA -kood.
2. Minge vahekaardile Arendaja.
3. Klõpsake Visual Basic.
4. VB-redaktoris paremklõpsake mõnda töövihiku objekti.
5. Minge sisesta ja klõpsake moodulit.
6. Kleepige moodulisse ülaltoodud VBA -kood.
7. Sulgege VB redaktor.

Kui olete koodi VB redaktorisse lisanud, saate koodi käivitamiseks kasutada järgmisi meetodeid.

• Käivitage makro VB -redaktorist (klõpsates rohelist esitusnuppu VB -redaktori tööriistaribal)
• Asetades kursori mis tahes koodi reale ja kasutades klahvi F5
• Määrates makro nupule/kujule
• Lisades makro kiire juurdepääsu tööriistaribale

Siin on üksikasjalik õpetus makro käivitamiseks Excelis.

Kui peate seda sageli tegema, võite kaaluda VBA -koodi lisamist isikliku makro töövihikusse. Nii on see teile alati kättesaadav kasutamiseks kõikides töövihikutes.

Kui teil on töövihikus VBA-kood, peate selle salvestama makroga lubatud failina (laiendiga .XLSM)

Märkus. Kuna kõik VBA koodi tehtud muudatused on pöördumatud, on parem kõigepealt teha töövihikust/töölehest varukoopia ja seejärel see kood käivitada.

Kustuta iga teine ​​veerg (või iga üheksas veerg)

Iga alternatiivse rea või iga kolmanda/neljanda rea ​​kustutamine on lihtne, kuna saate kasutada filtrivalikut. Kõik, mida peate tegema, on kasutada valemit, mis tuvastab alternatiivsed read (või iga kolmanda/neljanda rea) ja filtreerib need read.

Kahjuks ei tööta sama metoodika veergudega - kuna te ei saa veerge filtreerida nii, nagu ridu filtreerite.

Seega, kui peate kustutama iga teise veeru (või iga kolmanda/neljanda/n -nda veeru), peate olema veidi loovam.

Selles jaotises näitan teile kahte meetodit, mida saate kasutada Exceli iga teise veeru kustutamiseks (ja soovi korral saate sama meetodit kasutada iga kolmanda/neljanda/n -nda veeru kustutamiseks).

Kustutage alternatiivsed veerud valemite ja sortimismeetodi abil

Oletame, et teil on allpool näidatud andmekogum ja soovite kustutada kõik muud veerud (välja arvatud päiseveerg A)

Trikk oleks siin valemi abil alternatiivsete veergude tuvastamine ja seejärel veergude sortimine selle valemi alusel. Kui olete veerud kokku sortinud, saate selle käsitsi valida ja kustutada.

Allpool on toodud sammud Excelis kõigi teiste veergude kustutamiseks.

1. Sisestage rida päise rea kohale (paremklõpsake päise mis tahes lahtrit, klõpsake nuppu Lisa ja seejärel valikut Kogu rida)
2. Sisestage andmestiku vasakpoolseima veeru kohal olevasse lahtrisse järgmine valem ja kopeerige kõik lahtrid: = MOD (VEERG (), 2)
3. Teisendage valemi väärtused numbriteks. Selleks kopeerige lahtrid, paremklõpsake ja minge jaotisse Kleebi spetsiaalselt -> Kleebi väärtused.
4. Valige kogu andmekogum (välja arvatud veeru päised). Selles näites olen valinud B1: G14 (ja MITTE veerg A)
5. Klõpsake vahekaarti Andmed
6. Klõpsake ikooni Sorteeri
7. Tehke dialoogiboksis Sortimine järgmised muudatused.
   • Klõpsake nuppu „Valikud” ja avanevas dialoogiboksis nuppu „Sorteeri vasakult paremale” ja seejärel nuppu OK
   • Valige rippmenüüst Sortimisalus rida 1. See rida sisaldab valemitulemusi
   • Valige rippmenüüst Tellimus väikseim kuni suurim.
8. Klõpsake nuppu OK

Ülaltoodud sammud sorteerivad kõik veerud ja koondavad kõik alternatiivsed veerud ühte kohta (lõpus).

Nüüd saate valida kõik need veerud (mille valemi väärtus on 1) ja need kustutada.

Kuigi see pole parim lahendus, saab see siiski töö tehtud.

Kui soovite kustutada iga kolmanda või iga neljanda veeru, peate valemit vastavalt kohandama.

Seotud õpetus: Kuidas Excelis sortida (ridade, veergude, värvide, kuupäevade ja numbrite järgi)

Kustutage alternatiivsed veerud VBA abil

Teine kiire viis alternatiivsete veergude kustutamiseks on kasutada allolevat VBA -koodi:

Alam Delete_Every_Other_Column () Dim Rng kui vahemikukomplekt Rng = Application.InputBox ("Valige vahemik (välja arvatud päised)", "Vahemiku valik", tüüp: = 8) i = Rng.Veergude jaoks. Loendage 1. etapini -2 Kui i Mod 2 = 0 Siis Rng. Veerud (i). Kustuta lõpp, kui järgmine i End Sub

Ülaltoodud kood palub teil valida lahtrite vahemiku, millel on veerud. Siin peate valima veerud, välja arvatud see, millel on päis.

Kui olete andmetega lahtrite vahemiku määranud, kasutab see silmuse jaoks ja kustutab kõik muud veerud.

Kui soovite kustutada iga kolmanda veeru, võite kasutada allolevat koodi (ja kohandada vastavalt, et kustutada N -i veerg)

Alam Delete_Every_Third_Column () Dim Rng kui vahemikukomplekt Rng = Application.InputBox ("Valige vahemik (välja arvatud päised)", "Vahemiku valik", tüüp: = 8) i = Rng.Veergude jaoks. Loendage 1 samm -3 Kui i Mod 3 = 0 Siis Rng. Veerud (i). Kustuta lõpp, kui järgmine i End Sub

Selle VBA koodi paigutamise ja kasutamise juhised on kirjeldatud ülaltoodud jaotises pealkirjaga - „Kustuta automaatselt iga teine ​​rida (või 9. rida), kasutades VBA makro (kiire meetod)”

Loodetavasti leidsite selle Exceli õpetuse kasulikuks.