Kako izbrisati vsako drugo vrstico v Excelu (ali vsako Nto vrstico)

Oglejte si video - izbrišite vse druge vrstice v Excelu

Včasih boste morda morali izbrisati vsako drugo vrstico (to je nadomestne vrstice) ali vsako tretjo/četrto/peto vrstico v Excelu.

En primer tega je lahko, če imate tedenske podatke in jih želite le za parne ali neparne tedne. Druga možnost je, ko dobite izpis podatkov iz zbirke podatkov in so vsi uporabni podatki le v vsaki drugi ali tretji vrstici.

Čeprav imate vedno možnost ročnega izbiranja in brisanja vrstic, je to neučinkovito, če imate velik nabor podatkov.

Obstajajo boljši načini za to.

V tej vadnici vam bom pokazal nekaj načinov za brisanje vseh drugih vrstic v Excelu s preprosto tehniko filtriranja. In če vam ni všeč uporaba makro kode VBA, sem dal tudi kratko kodo VBA, ki to naredi z enim klikom. Metode so prikazane v tem tutorialnem delu za vse različice Excela (2007, 2010, 2013 in 2016)

Brisanje vsake druge vrstice v Excelu je lahko precej preprosto, vendar je brisanje vsakega drugega stolpca lahko izziv. To je zato, ker v Excelu ne morete filtrirati stolpcev (način filtriranja vrstic). V zadnjem razdelku te vadnice vam bom pokazal tudi nekaj načinov za brisanje nadomestnih stolpcev (ali vsakega N -ti stolpec) v Excelu.

Izbrišite vsako drugo vrstico s filtriranjem nabora podatkov (z uporabo formule)

Če bi lahko nekako filtrirali vse parne ali lihe vrstice, bi bilo zelo preprosto izbrisati te vrstice/zapise.

Čeprav za to ni vgrajene funkcije, lahko uporabite stolpec za pomoč, da vrstice najprej razdelite na lihe in sodo, nato pa filtrirate glede na vrednost stolpca pomočnika.

Recimo, da imate nabor podatkov, kot je prikazano spodaj, ki vsebuje podatke o prodaji za vsakega prodajnega predstavnika za dve regiji (ZDA in Kanado) in želite izbrisati podatke za Kanado.

Spodaj so navedeni koraki za prvo filtriranje in nato brisanje vsake druge vrstice (ki vsebuje podatke za Kanado):

1. V celico, ki meji na glavo zadnjega stolpca, vnesite besedilo HelperColumn (ali katero koli besedilo glave, ki ga želite imeti v stolpcu za pomoč)
2. V celico pod glavo stolpca pomočnika vnesite naslednjo formulo: = ISEVEN (ROW ()). Kopirajte to formulo za vse celice. Ta formula vrne TRUE za vse parne vrstice in FALSE za vse vrstice ODD
3. Izberite celoten nabor podatkov (vključno s celicami, v katere smo formulo vnesli v zgornjem koraku).
4. Kliknite zavihek Podatki
5. Kliknite ikono Filter. To bo uporabilo filter za vse glave v naboru podatkov
6. Kliknite ikono Filter v celici HelperColumn.
7. Prekličite izbiro možnosti TRUE (torej je izbrana samo možnost FALSE)
8. Kliknite V redu. To bo filtriralo podatke in prikazalo samo tiste zapise, pri katerih je vrednost HelperColumn FALSE.
9. Izberite vse filtrirane celice v stolpcu za pomoč (razen glave)
10. Z desno miškino tipko kliknite katero koli od izbranih celic in kliknite »Izbriši vrstico«
11. V pogovornem oknu, ki se odpre, kliknite V redu. S tem boste izbrisali vse vidne zapise, trenutno pa boste videli samo vrstico glave.
12. Kliknite zavihek Podatki in nato ikono Filter. S tem boste odstranili filter in videli boste vse preostale zapise.

Zgornji koraki filtrirajo vsako drugo vrstico v naboru podatkov in nato te vrstice izbrišejo.

Na tej stopnji ne skrbite za vrednosti stolpcev pomočnikov. Dobljeni podatki imajo samo vrstice za ZDA, vse vrstice v Kanadi pa se izbrišejo. Stolpec za pomoč lahko zdaj izbrišete.

Če želite izbrisati vsako drugo vrstico od prve vrstice naprej, v koraku 7 izberite možnost TRUE in prekličite izbiro možnosti FALSE.

Opomba: Ko z zgornjo metodo izbrišete vrstice v Excelu, se izbrišejo tudi vsi podatki, ki jih morda imate v celoti (razen tistega v naboru podatkov). Ko uporabljate to metodo, se prepričajte, da nimate nič levo in desno od nabora podatkov, ki ga brišete.

Čeprav je zgornja metoda odlična, ima dve pomanjkljivosti:

1. Dodati morate nov stolpec ( HelperColumn v našem zgornjem primeru)
2. Če morate pogosto brisati nadomestne vrstice, lahko traja veliko časa

Sorodna vadnica: Brisanje vrstic na podlagi vrednosti celice (ali stanja) v Excelu

Brisanje vsake N -te vrstice s filtriranjem nabora podatkov (uporaba formule)

Pri zgornji metodi sem vam pokazal, kako izbrišete vsako drugo vrstico (nadomestno vrstico) v Excelu.

Z isto logiko lahko izbrišete tudi vsako tretjo ali četrto vrstico v Excelu.

Recimo, da imate nabor podatkov, kot je prikazano spodaj, in želite izbrisati vse vsako tretjo vrstico.

Koraki za brisanje vsake tretje vrstice so skoraj enaki kot v zgornjem razdelku (za brisanje nadomestnih vrstic). Edina razlika je v formuli, uporabljeni v 2. koraku.

Spodaj so navedeni koraki za to:

1. V celico, ki meji na glavo zadnjega stolpca, vnesite besedilo HelperColumn (ali katero koli besedilo glave, ki ga želite imeti v stolpcu za pomoč)
2. V celico pod glavo stolpca pomočnika vnesite naslednjo formulo: = MOD (ROW (), 3) = 1. Ta formula vrne TRUE za vsako tretjo vrstico in FALSE za vsako drugo vrstico.
3. Izberite celoten nabor podatkov (vključno s celicami, v katere smo formulo vnesli v zgornjem koraku).
4. Kliknite zavihek Podatki
5. Kliknite ikono Filter. To bo uporabilo filter za vse glave v naboru podatkov
6. Kliknite ikono Filter v celici HelperColumn.
7. Prekličite izbiro možnosti TRUE (torej je izbrana samo možnost FALSE)
8. Kliknite V redu. To bo filtriralo podatke in prikazalo samo tiste zapise, pri katerih je vrednost HelperColumn FALSE.
9. Izberite vse celice v stolpcu za pomoč
10. Z desno miškino tipko kliknite katero koli od izbranih celic in kliknite Izbriši vrstico
11. V pogovornem oknu, ki se odpre, kliknite V redu. S tem boste izbrisali vse vidne zapise in zaenkrat boste videli samo vrstico glave.
12. Kliknite zavihek Podatki in nato ikono Filter. S tem boste odstranili filter in videli boste vse preostale zapise.

Zgornji koraki bi izbrisali vsako tretjo vrstico iz nabora podatkov in dobili boste nastale podatke, kot je prikazano spodaj.

Ne skrbite za vrednosti stolpcev pomočnikov na tej stopnji. Stolpec za pomoč lahko zdaj izbrišete.

Formula, uporabljena v 2. koraku, uporablja funkcijo MOD - ki daje ostanek, ko je eno število deljeno z drugim. Tukaj sem uporabil funkcijo ROW, da dobim številko vrstice in je deljena s 3 (ker želimo izbrisati vsako tretjo vrstico).

Ker se naš nabor podatkov začne od druge vrstice naprej (tj. Vrstica št. 2 vsebuje prvi zapis), uporabljam naslednjo formulo:= MOD (ROW (), 3) = 1

Izenačujem ga z 1 in za vsako tretjo vrstico bo formula MOD dala preostanek kot 1.

Formulo lahko ustrezno prilagodite. Na primer, če se prvi zapis vašega nabora podatkov začne od tretje vrstice naprej, bi bila formula naslednja = MOD (ROW (), 3) = 2

Samodejno izbriši vsako drugo vrstico (ali N -to vrstico) z uporabo makra VBA (hitra metoda)

Če morate pogosto brisati vsako drugo vrstico (ali vsako n -to vrstico), lahko uporabite kodo VBA in jo omogočite v orodni vrstici za hitri dostop. Tako boste lahko z enim klikom hitro izbrisali nadomestne vrstice.

Spodaj je koda, ki vas najprej vpraša, da izberete obseg, v katerem želite izbrisati nadomestne vrstice, nato pa izbrišete vsako drugo vrstico v izbranem naboru podatkov.

Sub Delete_Every_Other_Row () Dim Rng As Range Set Rng = Application.InputBox ("Izberite obseg (razen glav)", "Range Selection", Type: = 8) Za i = Rng.Rows.Count To 1 Step -2 Če i Mod 2 = 0 Potem Rng.Rows (i) .Delete End If Next i End Sub

Ko zaženete zgornjo kodo, vas bo najprej pozval, da izberete obseg celic. Ko izberete, bo šel skozi vsako vrstico in izbrisal vsako drugo vrstico.

Če želite namesto tega izbrisati vsako tretjo vrstico, lahko uporabite spodnjo kodo:

Sub Delete_Every_Third_Row () Dim Rng As Range Set Rng = Application.InputBox ("Izberite obseg (razen glav)", "Izbira obsega", Vrsta: = 8) Za i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Nato Rng.Rows (i) .Delete End If Next i End Sub

Kam postaviti to kodo makra VBA?

To kodo morate postaviti v običajen modul v urejevalniku VB v Excelu.

Spodaj so opisani koraki za odpiranje urejevalnika Vb, dodajanje modula in vnos kode vanj:

1. Kopirajte zgornjo kodo VBA.
2. Pojdite na zavihek Razvijalec.
3. Kliknite Visual Basic.
4. V urejevalniku VB z desno tipko miške kliknite kateri koli predmet delovnega zvezka.
5. Pojdite na Vstavi in ​​kliknite Modul.
6. V modul prilepite zgornjo kodo VBA.
7. Zaprite urejevalnik VB.

Ko imate kodo v urejevalniku VB, lahko uporabite te metode za zagon kode:

• Zaženite makro iz urejevalnika VB (s klikom na zeleni gumb za predvajanje v orodni vrstici urejevalnika VB)
• Tako, da kazalec postavite na katero koli vrstico kode in uporabite tipko F5
• Z dodelitvijo makra gumbu/obliki
• Z dodajanjem makra v orodno vrstico za hitri dostop

Tukaj je podrobna vadnica o tem, kako zagnati makro v Excelu.

Če morate to pogosto početi, lahko razmislite o dodajanju kode VBA v delovni zvezek Personal Macro. Tako vam bo vedno na voljo za uporabo v vseh delovnih zvezkih.

Ko imate kodo VBA v delovnem zvezku, jo morate shraniti kot mapo z omogočeno datoteko (z razširitvijo .XLSM)

Opomba: Ker so vse spremembe, ki jih naredi koda VBA, nepopravljive, je najbolje, da najprej naredite varnostno kopijo delovnega zvezka/delovnega lista in nato zaženete to kodo.

Izbriši vsak drugi stolpec (ali vsak N -ti stolpec)

Brisanje vsake nadomestne vrstice ali vsake tretje/četrte vrstice je preprosto, saj lahko uporabite možnost filtriranja. Vse kar morate storiti je, da uporabite formulo, ki identificira nadomestne vrstice (ali vsako tretjo/četrto vrstico) in filtrira te vrstice.

Na žalost ta ista metodologija ne bo delovala s stolpci - saj stolpcev ne morete filtrirati tako, kot filtrirate vrstice.

Torej, če morate izbrisati vsak drugi stolpec (ali vsak tretji/četrti/N -ti stolpec), morate biti nekoliko bolj ustvarjalni.

V tem razdelku vam bom pokazal dve metodi, ki ju lahko uporabite za brisanje vseh drugih stolpcev v Excelu (in če želite, lahko z isto metodo izbrišete vsak tretji/četrti/N -ti stolpec).

Brisanje nadomestnih stolpcev z uporabo formul in metode razvrščanja

Recimo, da imate nabor podatkov, kot je prikazano spodaj, in želite izbrisati vsak drugi stolpec (razen stolpca glave A)

Trik tukaj bi bil identificirati nadomestne stolpce s formulo in nato razvrstiti stolpce na podlagi te formule. Ko združite razvrščene stolpce, lahko to ročno izberete in izbrišete.

Spodaj so navedeni koraki za brisanje vseh drugih stolpcev v Excelu:

1. Vnesite vrstico nad vrstico glave (z desno miškino tipko kliknite katero koli celico v glavi, kliknite Vstavi in ​​nato možnost Cela vrstica)
2. V celico nad skrajnim levim stolpcem v naboru podatkov vnesite naslednjo formulo in kopirajte za vse celice: = MOD (STOLPEC (), 2)
3. Pretvorite vrednosti formule v številke. Če želite to narediti, kopirajte celice, z desno tipko miške kliknite in pojdite na Posebno lepljenje -> Prilepi vrednosti.
4. Izberite celoten nabor podatkov (razen vseh naslovov v stolpcu). V tem primeru sem izbral B1: G14 (in NE stolpec A)
5. Kliknite zavihek Podatki
6. Kliknite ikono Razvrsti
7. V pogovornem oknu Razvrsti naredite te spremembe:
   • Kliknite gumb »Možnosti« in v pogovornem oknu, ki se odpre, kliknite »Razvrsti od leve proti desni« in nato kliknite V redu
   • V spustnem meniju Razvrsti po izberite Vrstica 1. To je vrstica z rezultati formule
   • V spustnem meniju Naročilo izberite Najmanjši do Največji.
8. Kliknite V redu

Zgornji koraki razvrstijo vse stolpce in združijo vse nadomestne stolpce na enem mestu (na koncu).

Zdaj lahko izberete vse te stolpce (za katere je vrednost formule 1) in jih izbrišete.

Čeprav to ni najboljša rešitev, vseeno opravi delo.

Če želite izbrisati vsak tretji stolpec ali vsak četrti stolpec, morate ustrezno prilagoditi formulo.

Sorodne vaje: Kako razvrstiti v Excelu (po vrsticah, stolpcih, barvah, datumih in številkah)

Brisanje nadomestnih stolpcev z uporabo VBA

Drug hiter način za brisanje nadomestnih stolpcev je uporaba spodnje kode VBA:

Sub Delete_Every_Other_Column () Dim Rng As Range Set Rng = Application.InputBox ("Izberite obseg (razen glav)", "Range Selection", Type: = 8) Za i = Rng.Columns.Count to 1 Step -2 Če i Mod 2 = 0 Potem Rng. Stolpci (i). Izbriši konec, če je naslednji i konča pod

Zgornja koda vas prosi, da izberete obseg celic s stolpci. Tukaj morate izbrati stolpce, razen tistega, ki ima glavo.

Ko določite obseg celic s podatki, bo uporabil For Loop in izbrisal vsak drugi stolpec.

Če želite izbrisati vsak tretji stolpec, lahko uporabite spodnjo kodo (in ustrezno prilagodite, da izbrišete N -ti stolpec)

Sub Delete_Every_Third_Column () Dim Rng As Range Set Rng = Application.InputBox ("Izberite obseg (razen glav)", "Izbira obsega", Vrsta: = 8) Za i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Nato Rng. Stolpci (i). Izbriši konec, če je naslednji i konča pod

Koraki o tem, kje postaviti to kodo VBA in kako jo uporabljati, so zajeti v zgornjem razdelku z naslovom - "Samodejno izbriši vsako drugo vrstico (ali N -to vrstico) z uporabo makra VBA (hitra metoda)"

Upam, da vam je bila ta vadnica v Excelu uporabna.