Kako izbrisati svaki drugi redak u Excelu (ili svaki Nti redak)

Gledajte video - izbrišite svaki drugi redak u Excelu

Ponekad ćete možda morati izbrisati svaki drugi redak (tj. Zamjenske retke) ili svaki treći/četvrti/peti red u Excelu.

Jedan od primjera toga može biti kada imate tjedne podatke, a podatke želite samo za parne ili neparne tjedne. Drugo bi moglo biti kada dobijete ispis podataka iz baze podataka, a svi korisni podaci nalaze se samo u svakom drugom ili trećem retku.

Iako uvijek imate mogućnost ručnog odabira i brisanja redaka, to je neučinkovito u slučaju da imate veliki skup podataka.

Postoje bolji načini za to.

U ovom vodiču pokazat ću vam nekoliko načina za brisanje svakog drugog retka u Excelu pomoću jednostavne tehnike filtriranja. A ako se ne slažete s korištenjem VBA makro koda, dao sam i kratki VBA kôd koji to čini jednim klikom. Metode su prikazane u ovom vodiču za sve verzije programa Excel (2007, 2010, 2013 i 2016)

Iako brisanje svakog drugog retka u Excelu može biti prilično jednostavno, brisanje svakog drugog stupca moglo bi biti izazov. To je zato što ne možete filtrirati stupce u Excelu (način na koji možete filtrirati retke). U posljednjem odjeljku ovog vodiča pokazat ću vam i neke načine brisanja zamjenskih stupaca (ili svakog N -tog stupca) u Excelu.

Izbrišite svaki drugi redak filtriranjem skupa podataka (pomoću formule)

Kad biste nekako mogli filtrirati sve parne retke ili neparne redove, bilo bi super lako izbrisati te retke/zapise.

Iako ne postoji ugrađena značajka za to, možete upotrijebiti pomoćni stupac za prvo dijeljenje redaka na neparne i parne, a zatim filtriranje na temelju vrijednosti stupca pomoćnika.

Pretpostavimo da imate skup podataka kao što je prikazano u nastavku, koji sadrži podatke o prodaji za svakog prodajnog predstavnika za dvije regije (SAD i Kanada), a želite izbrisati podatke za Kanadu.

U nastavku su navedeni koraci za prvo filtriranje, a zatim brisanje svakog drugog retka (koji ima podatke za Kanadu):

1. U ćeliju uz zaglavlje zadnjeg stupca unesite tekst HelperColumn (ili bilo koji tekst zaglavlja za koji želite da ima pomoćni stupac)
2. U ćeliju ispod zaglavlja stupca pomoćnika unesite sljedeću formulu: = ISEVEN (ROW ()). Kopirajte ovu formulu za sve ćelije. Ova formula vraća TRUE za sve parne retke i FALSE za sve ODD retke
3. Odaberite cijeli skup podataka (uključujući ćelije u koje smo unijeli formulu u gornjem koraku).
4. Kliknite karticu Podaci
5. Pritisnite ikonu Filter. To će primijeniti filtar na sva zaglavlja u skupu podataka
6. Kliknite ikonu Filter u ćeliji HelperColumn.
7. Poništite odabir opcije TRUE (tako da je odabrana samo FALSE opcija)
8. Pritisnite U redu. To će filtrirati podatke i prikazati samo one zapise gdje je vrijednost HelperColumn FALSE.
9. Odaberite sve filtrirane ćelije u pomoćnom stupcu (isključujući zaglavlje)
10. Desnom tipkom miša kliknite bilo koju od odabranih ćelija i kliknite "Izbriši redak"
11. U dijaloškom okviru koji se otvori kliknite U redu. Time ćete izbrisati sve vidljive zapise, a od sada ćete vidjeti samo red zaglavlja.
12. Kliknite karticu Podaci, a zatim ikonu Filtriraj. Time ćete ukloniti filtar i moći ćete vidjeti sve preostale zapise.

Gore navedeni koraci filtriraju svaki drugi redak u skupu podataka, a zatim brišu te retke.

Ne brinite se o vrijednostima stupca pomoćnika u ovoj fazi. Dobiveni podaci imaju samo retke za SAD, a svi kanadski retci su izbrisani. Odmah možete izbrisati stupac pomoćnika.

U slučaju da želite izbrisati svaki drugi redak počevši od prvog reda nadalje, odaberite opciju TRUE u koraku 7 i poništite odabir opcije FALSE.

Napomena: Kada izbrišete retke u Excelu na gornji način, izbrisat će se i svi podaci koje možda imate u cijelosti (osim onih u skupu podataka). Kad koristite ovu metodu, pobrinite se da nemate ništa lijevo i desno od skupa podataka koji brišete.

Iako je gornja metoda odlična, ima dva nedostatka:

1. Morate dodati novi stupac ( HelperColumn u našem primjeru gore)
2. Može potrajati ako morate često brisati zamjenske redove

Povezani vodič: Brisanje redaka na temelju vrijednosti ćelije (ili uvjeta) u Excelu

Izbrišite svaki N -ti redak filtriranjem skupa podataka (pomoću formule)

U gornjoj metodi pokazao sam vam kako izbrisati svaki drugi redak (zamjenski redak) u Excelu.

Istu logiku možete koristiti za brisanje svakog trećeg ili četvrtog retka u Excelu.

Pretpostavimo da imate skup podataka kao što je prikazano u nastavku i želite izbrisati sve svaki treći redak.

Koraci za brisanje svakog trećeg retka gotovo su isti kao oni opisani u gornjem odjeljku (za brisanje zamjenskih redaka). Jedina razlika je u formuli koja se koristi u 2. koraku.

U nastavku su navedeni koraci za to:

1. U ćeliju uz zaglavlje zadnjeg stupca unesite tekst HelperColumn (ili bilo koji tekst zaglavlja za koji želite da ima pomoćni stupac)
2. U ćeliju ispod zaglavlja stupca pomoćnika unesite sljedeću formulu: = MOD (ROW (), 3) = 1. Ova formula vraća TRUE za svaki treći redak i FALSE za svaki drugi redak.
3. Odaberite cijeli skup podataka (uključujući ćelije u koje smo unijeli formulu u gornjem koraku).
4. Kliknite karticu Podaci
5. Pritisnite ikonu Filter. To će primijeniti filtar na sva zaglavlja u skupu podataka
6. Kliknite ikonu Filter u ćeliji HelperColumn.
7. Poništite odabir opcije TRUE (tako da je odabrana samo FALSE opcija)
8. Pritisnite U redu. To će filtrirati podatke i prikazati samo one zapise gdje je vrijednost HelperColumn FALSE.
9. Odaberite sve ćelije u pomoćnom stupcu
10. Desnom tipkom miša kliknite bilo koju od odabranih ćelija i kliknite Izbriši redak
11. U dijaloškom okviru koji se otvori kliknite U redu. Time ćete izbrisati sve vidljive zapise, a od sada ćete vidjeti samo red zaglavlja.
12. Kliknite karticu Podaci, a zatim ikonu Filtriraj. Time ćete ukloniti filtar i moći ćete vidjeti sve preostale zapise.

Gore navedeni koraci izbrisali bi svaki treći redak iz skupa podataka i dobili biste rezultirajuće podatke kao što je prikazano u nastavku.

Ne brinite se o vrijednostima stupca pomoćnika u ovoj fazi. Odmah možete izbrisati stupac pomoćnika.

Formula korištena u 2. koraku koristi funkciju MOD - koja daje ostatak kada se jedan broj podijeli s drugim. Ovdje sam upotrijebio funkciju ROW kako bih dobio broj retka i podijeljen je s 3 (jer želimo izbrisati svaki treći redak).

Budući da naš skup podataka počinje od drugog retka nadalje (tj. Red #2 sadrži prvi zapis), koristim sljedeću formulu:= MOD (ROW (), 3) = 1

Izjednačavam to s 1 i za svaki treći redak formula MOD -a će dati ostatak kao 1.

Formulu možete prilagoditi u skladu s tim. Na primjer, ako prvi zapis vašeg skupa podataka počinje od trećeg reda nadalje, formula bi bila takva = MOD (ROW (), 3) = 2

Automatski izbrišite svaki drugi redak (ili N -ti redak) pomoću VBA makronaredbi (brza metoda)

Ako morate često brisati svaki drugi redak (ili svaki nti redak), možete upotrijebiti VBA kôd i učiniti ga dostupnim na Alatnoj traci za brzi pristup. To će vam omogućiti brzo brisanje zamjenskih redaka jednim klikom.

Ispod je kôd koji vas prvo pita da odaberete raspon u kojem želite izbrisati zamjenske retke, a zatim obrišete svaki drugi redak u odabranom skupu podataka.

Sub Delete_Every_Other_Row () Dim Rng As Range Set Rng = Application.InputBox ("Odaberite raspon (isključujući zaglavlja)", "Odabir raspona", Vrsta: = 8) Za i = Rng.Rows.Count to 1 Step -2 If i Mod 2 = 0 Zatim Rng.Rows (i) .Delete End If Next i End Sub

Kada pokrenete gornji kôd, od vas će se prvo tražiti da odaberete raspon ćelija. Nakon što odaberete, on će proći kroz svaki redak i izbrisati svaki drugi redak.

Ako umjesto toga želite izbrisati svaki treći redak, možete upotrijebiti donji kod:

Sub Delete_Every_Third_Row () Dim Rng As Range Set Rng = Application.InputBox ("Odaberite raspon (isključujući zaglavlja)", "Odabir raspona", Vrsta: = 8) Za i = Rng.Rows.Count to 1 Step -3 If i Mod 3 = 0 Zatim Rng.Rows (i) .Delete End If Next i End Sub

Gdje staviti ovaj VBA makro kôd?

Ovaj kôd morate postaviti u običan modul u VB uređivaču u Excelu.

U nastavku su navedeni koraci za otvaranje Vb Editor -a, dodavanje modula i postavljanje koda u njega:

1. Kopirajte gornji VBA kôd.
2. Idite na karticu Developer.
3. Kliknite na Visual Basic.
4. U uređivaču VB desnom tipkom miša kliknite bilo koji objekt radne knjige.
5. Idite na Umetni i kliknite na Modul.
6. U modul zalijepite gornji VBA kôd.
7. Zatvorite VB Editor.

Nakon što imate kôd u VB Editoru, možete koristiti sljedeće metode za pokretanje koda:

• Pokrenite makro iz VB uređivača (klikom na zeleni gumb za reprodukciju na alatnoj traci VB uređivača)
• Postavljanjem kursora na bilo koji redak koda i pomoću tipke F5
• Dodjeljivanjem makronaredbe gumbu/obliku
• Dodavanjem makronaredbe na alatnu traku za brzi pristup

Evo detaljnog vodiča o tome kako pokrenuti makronaredbu u Excelu.

Ako to morate često činiti, razmislite o dodavanju VBA koda u radnu knjigu Personal Macro. Na taj način uvijek će vam biti dostupan za korištenje u svim radnim bilježnicama.

Kad imate VBA kôd u radnoj knjizi, morate ga spremiti kao datoteku s omogućenim makroima (s nastavkom .XLSM)

Napomena: Budući da su sve promjene napravljene VBA kodom nepovratne, najbolje je prvo napraviti sigurnosnu kopiju radne knjige/radnog lista, a zatim pokrenuti ovaj kôd.

Izbriši svaki drugi stupac (ili svaki N -ti stupac)

Brisanje svakog zamjenskog retka ili svakog trećeg/četvrtog retka je jednostavno jer možete koristiti opciju filtriranja. Sve što trebate učiniti je koristiti formulu koja identificira zamjenske redove (ili svaki treći/četvrti red) i filtrira te retke.

Nažalost, ova ista metodologija neće funkcionirati sa stupcima - jer ne možete filtrirati stupce na način na koji filtrirate retke.

Dakle, ako morate izbrisati svaki drugi stupac (ili svaki treći/četvrti/N -ti stupac), morate biti malo kreativniji.

U ovom odjeljku pokazat ću vam dvije metode pomoću kojih možete izbrisati svaki drugi stupac u Excelu (a po želji možete izbrisati svaki treći/četvrti/N -ti stupac).

Brisanje zamjenskih stupaca pomoću formula i metode razvrstavanja

Pretpostavimo da imate skup podataka kao što je prikazano u nastavku i želite izbrisati svaki drugi stupac (isključujući stupac zaglavlja A)

Trik bi ovdje bio identificirati zamjenske stupce pomoću formule, a zatim ih sortirati na temelju te formule. Nakon što ste složili stupce zajedno, ovo možete ručno odabrati i izbrisati.

U nastavku su navedeni koraci za brisanje svakog drugog stupca u Excelu:

1. Umetnite redak iznad retka zaglavlja (desnom tipkom miša kliknite bilo koju ćeliju u zaglavlju, kliknite Umetni, a zatim opciju Cijeli redak)
2. Unesite sljedeću formulu u ćeliju iznad krajnjeg lijevog stupca u skupu podataka i kopirajte za sve ćelije: = MOD (COLUMN (), 2)
3. Pretvorite vrijednosti formule u brojeve. Da biste to učinili, kopirajte ćelije, desnom tipkom miša kliknite i idite na Posebno lijepljenje -> Zalijepi vrijednosti.
4. Odaberite cijeli skup podataka (isključujući zaglavlja u stupcu). U ovom primjeru odabrao sam B1: G14 (i NE stupac A)
5. Kliknite karticu Podaci
6. Pritisnite ikonu Sortiraj
7. U dijaloškom okviru Sortiranje unesite sljedeće promjene:
   • Pritisnite gumb "Opcije" i u dijaloškom okviru koji se otvori kliknite "Poredaj slijeva nadesno", a zatim kliknite U redu
   • Na padajućem izborniku Sortiraj prema odaberite 1. redak. Ovo je redak koji ima rezultate formule
   • Na padajućem izborniku Narudžba odaberite Od najmanjeg do najvećeg.
8. Pritisnite U redu

Gore navedeni koraci sortiraju sve stupce i okupljaju sve zamjenske stupce na jednom mjestu (na kraju).

Sada možete odabrati sve ove stupce (za koje je vrijednost formule 1) i izbrisati ih.

Iako ovo nije najbolje rješenje, ipak obavlja svoj posao.

U slučaju da želite izbrisati svaki treći stupac ili svaki četvrti stupac, morate prilagoditi formulu u skladu s tim.

Povezani vodič: Kako sortirati u Excelu (po redovima, stupcima, bojama, datumima i brojevima)

Brisanje zamjenskih stupaca pomoću VBA

Još jedan brz način za brisanje zamjenskih stupaca je korištenje dolje navedenog VBA koda:

Sub Delete_Every_Other_Column () Dim Rng As Range Set Rng = Application.InputBox ("Odaberite raspon (isključujući zaglavlja)", "Odabir raspona", Vrsta: = 8) Za i = Rng.Columns.Count to 1 Step -2 If i Mod 2 = 0 Zatim Rng. Stupci (i). Izbriši kraj ako je sljedeće i završi pod

Gornji kôd traži da odaberete raspon ćelija koji sadrži stupce. Ovdje morate odabrati stupce isključujući onaj koji ima zaglavlje.

Nakon što navedete raspon ćelija s podacima, upotrijebit će For Loop i izbrisati svaki drugi stupac.

U slučaju da želite izbrisati svaki treći stupac, možete upotrijebiti donji kod (i prilagoditi ga kako biste izbrisali N -ti stupac)

Sub Delete_Every_Third_Column () Dim Rng As Range Set Rng = Application.InputBox ("Odaberite raspon (isključujući zaglavlja)", "Odabir raspona", Vrsta: = 8) Za i = Rng.Columns.Count to 1 Step -3 If i Mod 3 = 0 Zatim Rng. Stupci (i). Izbriši kraj ako je sljedeće i završi pod

Koraci o tome gdje postaviti ovaj VBA kôd i kako ga koristiti opisani su u gornjem odjeljku pod naslovom - "Automatski izbrišite svaki drugi redak (ili N -ti redak) pomoću VBA makronaredbi (brza metoda)"

Nadam se da vam je ovaj Excel vodič bio koristan.