Kaip ištrinti kiekvieną kitą „Excel“ eilutę (arba kiekvieną N eilutę)

Žiūrėkite vaizdo įrašą - ištrinkite kiekvieną kitą „Excel“ eilutę

Kartais gali tekti ištrinti kas antrą eilutę (t. Y. Alternatyvias eilutes) arba kas trečią/ketvirtą/penktą „Excel“ eilutes.

Vienas iš tokių atvejų gali būti tada, kai turite savaitės duomenų ir norite, kad duomenys būtų pateikti tik poroms ar nelyginėms savaitėms. Kitas dalykas gali būti tada, kai iš duomenų bazės gaunate duomenų išrašą ir visi naudingi duomenys yra tik kas antroje ar trečioje eilutėje.

Nors visada turite galimybę rankiniu būdu pasirinkti ir ištrinti eilutes, tai neveiksminga, jei turite didelį duomenų rinkinį.

Yra geresnių būdų tai padaryti.

Šioje pamokoje parodysiu keletą būdų, kaip ištrinti kas antrą „Excel“ eilutę, naudojant paprastą filtravimo techniką. Ir jei jums patinka naudoti VBA makro kodą, aš taip pat pateikiau trumpą VBA kodą, kuris tai daro vienu paspaudimu. Metodai pateikiami šiame vadovėlio darbe visoms „Excel“ versijoms (2007, 2010, 2013 ir 2016)

Nors ištrinti kiekvieną kitą „Excel“ eilutę gali būti gana paprasta, ištrinti kiekvieną kitą stulpelį gali būti sudėtinga. Taip yra todėl, kad negalite filtruoti stulpelių programoje „Excel“ (būdas filtruoti eilutes). Paskutiniame šios pamokos skyriuje taip pat parodysiu keletą būdų, kaip ištrinti alternatyvius stulpelius (arba kiekvieną N -ąjį stulpelį) „Excel“.

Ištrinkite kiekvieną kitą eilutę filtruodami duomenų rinkinį (naudodami formulę)

Jei galėtumėte kažkaip filtruoti visas lygias arba nelygines eilutes, būtų labai lengva ištrinti šias eilutes/įrašus.

Nors tam nėra integruotos funkcijos, galite naudoti pagalbinį stulpelį, kad pirmiausia padalytumėte eilutes į nelygines ir lygias, o tada filtruokite pagal pagalbinio stulpelio vertę.

Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, kuriame yra kiekvieno regiono (JAV ir Kanados) pardavimo atstovo duomenys ir norite ištrinti Kanados duomenis.

Toliau pateikiami veiksmai, kaip pirmiausia filtruoti ir ištrinti kas antrą eilutę (kurioje yra Kanados duomenų):

1. Ląstelėje, esančioje šalia paskutinio stulpelio antraštės, įveskite tekstą „HelperColumn“ (arba bet koks antraštės tekstas, kurį norite, kad pagalbinis stulpelis būtų)
2. Ląstelėje po pagalbinio stulpelio antrašte įveskite šią formulę: = ISEVEN (ROW ()). Nukopijuokite šią formulę visoms ląstelėms. Ši formulė grąžina TRUE visoms lyginėms eilutėms ir FALSE visoms ODD eilutėms
3. Pasirinkite visą duomenų rinkinį (įskaitant langelius, kuriuose aukščiau pateiktame žingsnyje įvedėme formulę).
4. Spustelėkite skirtuką Duomenys
5. Spustelėkite filtro piktogramą. Filtras bus taikomas visoms duomenų rinkinio antraštėms
6. Spustelėkite filtro piktogramą „HelperColumn“ langelyje.
7. Panaikinkite parinkties TRUE pasirinkimą (taigi pasirinkta tik FALSE parinktis)
8. Spustelėkite Gerai. Tai filtruos duomenis ir rodys tik tuos įrašus, kuriuose „HelperColumn“ vertė yra FALSE.
9. Pasirinkite visas pagalbinio stulpelio filtruotas ląsteles (išskyrus antraštę)
10. Dešiniuoju pelės mygtuku spustelėkite bet kurią pasirinktą langelį ir spustelėkite „Ištrinti eilutę“
11. Atsidariusiame dialogo lange spustelėkite Gerai. Tai ištrins visus matomus įrašus ir kol kas matysite tik antraštės eilutę.
12. Spustelėkite skirtuką Duomenys, tada spustelėkite filtro piktogramą. Tai pašalins filtrą ir galėsite matyti visus likusius įrašus.

Pirmiau nurodyti veiksmai filtruoja kas antrą duomenų rinkinio eilutę ir tada ištrina šias eilutes.

Šiame etape nesijaudinkite dėl pagalbinių stulpelių verčių. Gauti duomenys turi tik JAV eilutes, o visos Kanados eilutės ištrintos. Pagalbos stulpelį galite ištrinti dabar.

Jei norite ištrinti kas antrą eilutę, pradedant nuo pirmosios eilutės, 7 veiksme pasirinkite parinktį TRUE ir panaikinkite parinkties FALSE pasirinkimą.

Pastaba: kai ištrinate „Excel“ eilutes naudodami aukščiau pateiktą metodą, jis taip pat ištrina visus jūsų turimus duomenis (išskyrus tuos, kurie yra duomenų rinkinyje). Kai naudojate šį metodą, įsitikinkite, kad duomenų rinkinio kairėje ir dešinėje nėra nieko, ką norite ištrinti.

Nors aukščiau pateiktas metodas yra puikus, jis turi du trūkumus:

1. Jums reikia pridėti naują stulpelį ( „HelperColumn“ aukščiau pateiktame pavyzdyje)
2. Tai gali užtrukti, jei dažnai turite ištrinti alternatyvias eilutes

Susijusi pamoka: ištrinkite eilutes pagal langelio reikšmę (arba sąlygą) „Excel“

Ištrinkite kiekvieną N eilutę filtruodami duomenų rinkinį (naudodami formulę)

Pirmiau pateiktu metodu parodžiau, kaip ištrinti kas antrą „Excel“ eilutę (alternatyvią eilutę).

Ta pačia logika galite ištrinti ir kiekvieną trečią ar ketvirtą „Excel“ eilutę.

Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, ir norite ištrinti visas kas trečias eilutes.

Kiekvienos trečios eilutės ištrynimo veiksmai yra beveik tokie patys, kaip aprašyta aukščiau esančiame skyriuje (alternatyvių eilučių ištrynimui). Vienintelis skirtumas yra 2 žingsnyje naudojama formulė.

Žemiau pateikiami žingsniai, kaip tai padaryti:

1. Ląstelėje, esančioje šalia paskutinio stulpelio antraštės, įveskite tekstą „HelperColumn“ (arba bet koks antraštės tekstas, kurį norite, kad pagalbinis stulpelis būtų)
2. Ląstelėje po pagalbinio stulpelio antrašte įveskite šią formulę: = MOD (ROW (), 3) = 1. Ši formulė grąžina TRUE kas trečią eilutę ir FALSE kiekvieną kitą eilutę.
3. Pasirinkite visą duomenų rinkinį (įskaitant langelius, kuriuose aukščiau pateiktame žingsnyje įvedėme formulę).
4. Spustelėkite skirtuką Duomenys
5. Spustelėkite filtro piktogramą. Filtras bus taikomas visoms duomenų rinkinio antraštėms
6. Spustelėkite filtro piktogramą „HelperColumn“ langelyje.
7. Panaikinkite parinkties TRUE pasirinkimą (taigi pasirinkta tik FALSE parinktis)
8. Spustelėkite Gerai. Tai filtruos duomenis ir rodys tik tuos įrašus, kuriuose „HelperColumn“ vertė yra FALSE.
9. Pasirinkite visus pagalbinio stulpelio langelius
10. Dešiniuoju pelės mygtuku spustelėkite bet kurią pasirinktą langelį ir spustelėkite Ištrinti eilutę
11. Atsidariusiame dialogo lange spustelėkite Gerai. Tai ištrins visus matomus įrašus ir kol kas matysite tik antraštės eilutę.
12. Spustelėkite skirtuką Duomenys, tada spustelėkite filtro piktogramą. Tai pašalins filtrą ir galėsite matyti visus likusius įrašus.

Pirmiau minėti veiksmai ištrintų kas trečią duomenų rinkinio eilutę ir gautumėte gautus duomenis, kaip parodyta žemiau.

Šiame etape nesijaudinkite dėl pagalbinių stulpelių verčių. Pagalbos stulpelį galite ištrinti dabar.

2 veiksme naudojama formulė naudoja MOD funkciją - kuri suteikia likutį, kai vienas skaičius yra padalintas iš kito. Čia aš naudoju funkciją ROW, norėdamas gauti eilutės numerį ir jis padalintas iš 3 (nes norime ištrinti kas trečią eilutę).

Kadangi mūsų duomenų rinkinys prasideda nuo antrosios eilutės (t. Y. 2 eilutėje yra pirmasis įrašas), naudoju šią formulę:= MOD (ROW (), 3) = 1

Aš prilyginu jį 1 ir kiekvienai trečiai eilutei MOD formulė likusias duos kaip 1.

Atitinkamai galite pakoreguoti formulę. Pavyzdžiui, jei pirmasis jūsų duomenų rinkinio įrašas prasideda nuo trečios eilutės, formulė būtų tokia = MOD (ROW (), 3) = 2

Automatiškai ištrinti kiekvieną kitą eilutę (arba N eilutę) naudojant VBA makrokomandą (greitas metodas)

Jei kas antrą eilutę (arba kiekvieną n eilutę) turite ištrinti gana dažnai, galite naudoti VBA kodą ir jį rasti greitos prieigos įrankių juostoje. Tai leis greitai ištrinti alternatyvias eilutes vienu paspaudimu.

Žemiau yra kodas, kuris pirmiausia prašo pasirinkti diapazoną, kuriame norite ištrinti alternatyvias eilutes, o tada ištrinti kas antrą pasirinkto duomenų rinkinio eilutę.

Sub Delete_Every_Other_Row () Dim Rng As Range Set Rng = Application.InputBox ("Pasirinkite diapazoną (išskyrus antraštes)", "Diapazono pasirinkimas", tipas: = 8) Jei i = Rng.Rows.Count iki 1 veiksmas -2 Jei i 2 mod

Kai paleisite aukščiau pateiktą kodą, jis pirmiausia paprašys pasirinkti langelių diapazoną. Kai pasirinksite, jis eis per kiekvieną eilutę ir ištrins kas antrą eilutę.

Jei norite ištrinti kas trečią eilutę, galite naudoti žemiau esantį kodą:

Sub Delete_Every_Third_Row () Dim Rng As Range Set Rng = Application.InputBox ("Pasirinkite diapazoną (išskyrus antraštes)", "Diapazono pasirinkimas", tipas: = 8) Jei i = Rng.Rows.Count To 1 Step -3 If i 3 mod

Kur įdėti šį VBA makro kodą?

Šį kodą turite įdėti į įprastą „Excel“ VB redaktoriaus modulį.

Žemiau yra žingsniai, kaip atidaryti „Vb“ redaktorių, pridėti modulį ir įdėti į jį kodą:

1. Nukopijuokite aukščiau pateiktą VBA kodą.
2. Eikite į skirtuką Kūrėjas.
3. Spustelėkite „Visual Basic“.
4. VB redaktoriuje dešiniuoju pelės mygtuku spustelėkite bet kurį darbaknygės objektą.
5. Eikite į „Įterpti“ ir spustelėkite „Modulis“.
6. Į modulį įklijuokite aukščiau pateiktą VBA kodą.
7. Uždarykite VB redaktorių.

Kai turėsite kodą VB redaktoriuje, galite naudoti šiuos metodus, kad paleistumėte kodą:

• VB redaktoriuje paleiskite makrokomandą (VB redaktoriaus įrankių juostoje spustelėdami žalią atkūrimo mygtuką)
• Užvedus žymeklį ant bet kurios kodo eilutės ir naudojant klavišą F5
• Priskiriant makrokomandą mygtukui/formai
• Pridėję makrokomandą prie greitos prieigos įrankių juostos

Čia yra išsami pamoka, kaip paleisti makrokomandą „Excel“.

Jei tai turite padaryti dažnai, galite pridėti VBA kodą prie asmeninės makrokomandos darbaknygės. Tokiu būdu jis visada bus prieinamas naudoti visose darbaknygėse.

Kai darbaknygėje turite VBA kodą, turite jį išsaugoti kaip makrokomandą (su .XLSM plėtiniu)

Pastaba: kadangi bet kokie VBA kodo pakeitimai yra negrįžtami, geriausia pirmiausia pasidaryti atsarginę darbaknygės/darbalapio kopiją ir tada paleisti šį kodą.

Ištrinti kiekvieną kitą stulpelį (arba kiekvieną N -ąjį stulpelį)

Ištrinti kiekvieną alternatyvią eilutę arba kas trečią/ketvirtą eilutę yra paprasta, nes galite naudoti filtro parinktį. Viskas, ką jums reikia padaryti, tai naudoti formulę, kuri identifikuoja alternatyvias eilutes (arba kas trečią/ketvirtą eilutę) ir filtruoja šias eilutes.

Deja, ta pati metodika neveiks su stulpeliais, nes negalite filtruoti stulpelių taip, kaip filtruojate eilutes.

Taigi, jei turite ištrinti kas antrą stulpelį (arba kas trečią/ketvirtą/N -tą stulpelį), turite būti šiek tiek kūrybiškesni.

Šiame skyriuje parodysiu du metodus, kuriuos galite naudoti ištrindami kiekvieną kitą „Excel“ stulpelį (ir jei norite, galite tą patį metodą ištrinti kas trečią/ketvirtą/N -ą stulpelį).

Ištrinkite alternatyvius stulpelius naudodami formules ir rūšiavimo metodą

Tarkime, kad turite duomenų rinkinį, kaip parodyta žemiau, ir norite ištrinti visus kitus stulpelius (išskyrus antraštės stulpelį A)

Apgaulė būtų nustatyti alternatyvius stulpelius naudojant formulę ir tada surūšiuoti stulpelius pagal tą formulę. Sujungę surūšiuotus stulpelius, galite rankiniu būdu pasirinkti ir ištrinti.

Toliau pateikiami veiksmai, kaip ištrinti visus kitus „Excel“ stulpelius:

1. Įterpkite eilutę virš antraštės eilutės (dešiniuoju pelės mygtuku spustelėkite bet kurią antraštės ląstelę, spustelėkite Įterpti ir tada spustelėkite Visos eilutės parinktį)
2. Įveskite šią formulę į langelį virš duomenų rinkinio kairiojo stulpelio ir nukopijuokite visas ląsteles: = MOD (SKILTIS (), 2)
3. Konvertuokite formulės reikšmes į skaičius. Norėdami tai padaryti, nukopijuokite langelius, dešiniuoju pelės mygtuku spustelėkite ir eikite į Įklijuoti specialų -> Įklijuoti reikšmes.
4. Pasirinkite visą duomenų rinkinį (išskyrus visas stulpelio antraštes). Šiame pavyzdyje pasirinkau B1: G14 (ir NE A skiltis)
5. Spustelėkite skirtuką Duomenys
6. Spustelėkite piktogramą Rūšiuoti
7. Dialogo lange Rūšiuoti atlikite šiuos pakeitimus:
   • Spustelėkite mygtuką „Parinktys“ ir atsidariusiame dialogo lange spustelėkite „Rūšiuoti iš kairės į dešinę“, tada spustelėkite Gerai
   • Išskleidžiamajame sąraše Rūšiuoti pagal pasirinkite 1 eilutę. Tai eilutė, kurioje pateikiami formulės rezultatai
   • Išskleidžiamajame meniu Užsakymas pasirinkite Mažiausias iki Didžiausias.
8. Spustelėkite Gerai

Pirmiau minėti veiksmai surūšiuoja visus stulpelius ir sujungia visus alternatyvius stulpelius į vieną vietą (pabaigoje).

Dabar galite pasirinkti visus šiuos stulpelius (kurių formulės vertė yra 1) ir juos ištrinti.

Nors tai nėra geriausias sprendimas, jis vis tiek atlieka darbą.

Jei norite ištrinti kas trečią arba ketvirtą stulpelį, turite atitinkamai pakoreguoti formulę.

Susijusi pamoka: Kaip rūšiuoti „Excel“ (pagal eilutes, stulpelius, spalvas, datas ir skaičius)

Ištrinkite alternatyvius stulpelius naudodami VBA

Kitas greitas būdas ištrinti alternatyvius stulpelius yra naudoti žemiau esantį VBA kodą:

Sub Delete_Every_Other_Column () Dim Rng kaip diapazono rinkinys Rng = Application.InputBox ("Pasirinkite diapazoną (išskyrus antraštes)", "Diapazono pasirinkimas", tipas: = 8) Jei i = Rng.Columns.Count To 1 Step -2 Jei i Mod 2 = 0 Tada Rng. Stulpeliai (i). Ištrinkite pabaigą, jei kitas i Pabaiga

Aukščiau pateiktas kodas prašo pasirinkti langelių diapazoną, kuriame yra stulpeliai. Čia turite pasirinkti stulpelius, išskyrus tą, kuriame yra antraštė.

Kai nurodysite langelių diapazoną su duomenimis, jis naudos ciklą ir ištrins kiekvieną kitą stulpelį.

Jei norite ištrinti kas trečią stulpelį, galite naudoti žemiau esantį kodą (ir atitinkamai koreguoti, kad ištrintumėte N -ąjį stulpelį)

Sub Delete_Every_Third_Column () Dim Rng kaip diapazono rinkinys Rng = Application.InputBox ("Pasirinkite diapazoną (išskyrus antraštes)", "Diapazono pasirinkimas", tipas: = 8) Jei i = Rng.Columns.Count to 1 Step -3 If i 3 mod

Veiksmai, kaip įdėti šį VBA kodą ir kaip jį naudoti, aprašyti aukščiau esančiame skyriuje pavadinimu - „Automatiškai ištrinti kiekvieną kitą eilutę (arba N eilutę) naudojant VBA makrokomandą (greitas metodas)“

Tikimės, kad ši „Excel“ pamoka jums buvo naudinga.