Sadržaj
Ovaj kratki vodič objašnjava kako izbrisati svaki drugi red u Excelu filtriranjem ili pomoću VBA koda. Također ćete naučiti kako ukloniti svaki 3., 4. ili bilo koji drugi N-ti red.
Postoje mnoge situacije kada ćete možda morati izbrisati alternativne redove u Excel radnim listovima. Na primjer, možda želite zadržati podatke parne sedmice (redovi 2, 4, 6, 8, itd.) i premjestiti sve neparne sedmice (redovi 3, 5, 7 itd.) na drugi list.
Općenito, brisanje svakog drugog reda u Excelu svodi se na odabir alternativnih redova. Nakon što su redovi odabrani, dovoljan je samo jedan potez na tipku Delete . Dalje u ovom članku naučit ćete nekoliko tehnika za brzo odabiranje i brisanje svakog drugog ili svakog N-tog reda u Excelu.
Kako izbrisati svaki drugi red u Excelu filtriranjem
U suštini, uobičajen način brisanja svakog drugog reda u Excelu je sljedeći: prvo filtrirate alternativne redove, zatim ih odaberete i izbrišete sve odjednom. Detaljni koraci slijede u nastavku:
- U praznu kolonu pored originalnih podataka unesite niz nula i jedinica. To možete brzo učiniti tako što ćete u prvu ćeliju upisati 0 i u drugu ćeliju 1, a zatim kopirati prve dvije ćelije i zalijepiti ih niz kolonu do posljednje ćelije s podacima.
Alternativno, možete koristiti ovu formulu:
=MOD(ROW(),2)Logika formule je vrlo jednostavna: funkcija ROW vraća trenutni broj reda, funkcija MODdijeli ga sa 2 i vraća ostatak zaokružen na cijeli broj.
Kao rezultat, imate 0 u svim parnim redovima (jer su ravnomjerno podijeljeni sa 2 bez ostatka) i 1 u svim neparnim redovima:
- U zavisnosti od toga da li želite da izbrišete parne ili neparne redove, filtrirajte jedinice ili nule.
Da biste to učinili, odaberite bilo koju ćeliju u stupcu pomoćnika, idite na karticu Podaci > Sortiraj i filtriraj grupu i kliknite na Filter dugme. Strelice padajućeg filtera će se pojaviti u svim ćelijama zaglavlja. Kliknete na dugme sa strelicom u koloni Helper i označite jedan od okvira:
- 0 za brisanje parnih redova
- 1 za brisanje neparnih redova
U ovom primjeru ćemo ukloniti redove sa "0" vrijednostima, pa ćemo ih filtrirati:
- Sada kada su svi redovi "1" skriveni, odaberite sve vidljive "0" redove, kliknite desnim tasterom miša na odabir i kliknite na Izbriši red :
- U gornjem koraku ste ostavili praznu tabelu , ali ne brinite, redovi "1" su još uvijek tu. Da biste ih ponovo učinili vidljivima, jednostavno uklonite automatski filter tako što ćete ponovo kliknuti na dugme Filter :
- Formula u koloni C ponovo se izračunava za preostale redove, ali ti to više ne treba. Sada možete bezbedno izbrisati kolonu Helper:
Kao rezultat, na našem radnom listu su ostale samo parne sedmice, a neparne su nestale!
Savjet. Ako želite da premestite svakidrugi red na neko drugo mjesto umjesto da ih potpuno izbrišete, prvo kopirajte filtrirane redove i zalijepite ih na novu lokaciju, a zatim izbrišite filtrirane redove.
Kako izbrisati alternativne redove u Excelu pomoću VBA
Ako niste voljni gubiti vrijeme na trivijalni zadatak kao što je brisanje svakog drugog reda u vašim Excel radnim listovima, sljedeći VBA makro može automatizirati proces za vas:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Postavite SourceRange = Application.Selection Postavi SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) Ako SourceRange.Rows.Count >= 2 Tada zatamni FirstCell kao opseg Zatamni indeks reda kao cijeli broj Application.ScreenUpdating = False za RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) na 1 korak -2 Postavite FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating End If End SubKako izbrisati svaki drugi red u Excelu koristeći makro
I umetnite makro u svoj radni list na uobičajen način preko Visual Basic Editor-a:
- Pritisnite Alt + F11 da otvorite prozor Visual Basica za aplikacije.
- Na gornjoj traci menija, kliknite Insert > Module i zalijepite gornji makro u Module
- Pritisnite tipku F5 da pokrenete makro.
- Pojavit će se dijaloški okvir i tražiti da odaberete raspon. Odaberite svoju tablicu i klikniteOK:
Gotovo! Svaki drugi red u odabranom rasponu se briše:
Kako izbrisati svaki N-ti red u Excelu
Za ovaj zadatak ćemo proširiti filtriranje tehnika koju smo koristili za uklanjanje svakog drugog reda. Razlika je u formuli na kojoj se filtriranje zasniva:
MOD(ROW()- m, n)Gdje:
- m je broj reda prve ćelije sa podacima minus 1
- n je N-ti red koji želite obrisati
Recimo da vaši podaci počinju u redu 2 i da želite da obrišete svaki treći red. Dakle, u vašoj formuli n je jednako 3, a m je jednako 1 (red 2 minus 1):
=MOD(ROW() - 1, 3)
Ako su naši podaci počeli u red 3, onda bi m bio jednak 2 (red 3 minus 1), i tako dalje. Ova korekcija je potrebna za sekvencijalno numerisanje redova, počevši od broja 1.
Ono što formula radi je podijeliti relativni broj reda sa 3 i vratiti ostatak nakon dijeljenja. U našem slučaju, daje nulu za svaki treći red jer se svaki treći broj dijeli sa 3 bez ostatka (3,6,9, itd.):
A sada, vi izvršite već poznate korake za filtriranje "0" redova:
- Odaberite bilo koju ćeliju u vašoj tablici i kliknite na Filtriraj dugme na Podaci
- Filtrirajte kolonu pomoćnika da prikažete samo vrijednosti "0".
- Odaberite sve vidljive redove "0", kliknite desnim tasterom miša i odaberite Izbriši red iz kontekstnog menija.
- Uklonite filter iizbrišite pomoćni stupac.
Na sličan način možete izbrisati svaki 4., 5. ili bilo koji drugi N-ti red u Excelu.
Savjet. U slučaju da trebate ukloniti redove s nebitnim podacima, sljedeći vodič će vam pomoći: Kako izbrisati redove na osnovu vrijednosti ćelije.
Zahvaljujem vam na čitanju i nadam se da ćemo se sljedeće sedmice ponovo vidjeti na našem blogu .
