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 redak.
Postoje mnoge situacije kada ćete možda morati izbrisati alternativne retke u Excel radnim listovima. Na primjer, možda želite zadržati podatke za parne tjedne (retci 2, 4, 6, 8 itd.) i premjestiti sve neparne tjedne (retci 3, 5, 7 itd.) na drugi list.
Općenito, brisanje svakog drugog retka u Excelu svodi se na odabir alternativnih redaka. Nakon što su retci odabrani, dovoljan je samo jedan pritisak na gumb Delete . Dalje u ovom članku naučit ćete nekoliko tehnika za brzo odabiranje i brisanje svakog drugog ili svakog N-tog retka u Excelu.
Kako izbrisati svaki drugi redak u Excelu filtriranjem
U biti, uobičajeni način za brisanje svakog drugog retka u Excelu je sljedeći: prvo filtrirate alternativne retke, zatim ih odaberete i brišete sve odjednom. Detaljni koraci slijede u nastavku:
- U prazan stupac pored vaših izvornih podataka unesite niz nula i jedinica. To možete brzo učiniti tako da upišete 0 u prvu ćeliju i 1 u drugu ćeliju, zatim kopirate prve dvije ćelije i zalijepite ih niz stupac do zadnje ćelije s podacima.
Alternativno, možete upotrijebiti ovu formulu:
=MOD(ROW(),2)Vidi također: Excel XMATCH funkcija s primjerima formulaLogika formule je vrlo jednostavna: funkcija ROW vraća trenutni broj retka, funkcija MODdijeli ga s 2 i vraća ostatak zaokružen na cijeli broj.
Kao rezultat, imate 0 u svim parnim redovima (jer su podijeljeni s 2 ravnomjerno bez ostatka) i 1 u svim neparnim redovima:
- Ovisno o tome želite li izbrisati parne ili neparne retke, filtrirajte jedinice ili nule.
Da biste to učinili, odaberite bilo koju ćeliju u stupcu Helper, idite na karticu Podaci > Sortiraj i filtriraj grupu i kliknite Filtar dugme. Strelice padajućeg filtra pojavit će se u svim ćelijama zaglavlja. Kliknite gumb sa strelicom u stupcu Helper i potvrdite jedan od okvira:
- 0 za brisanje parnih redaka
- 1 za brisanje neparnih redaka
U ovom primjeru ćemo ukloniti retke s vrijednostima "0", pa ćemo ih filtrirati:
- Sada kada su svi retci "1" skriveni, odaberite sve vidljive retke "0", desnom tipkom miša kliknite odabir i kliknite Izbriši red :
- Gornji korak vam je ostavio praznu tablicu , ali ne brinite, redovi "1" su još uvijek tu. Kako biste ih ponovno učinili vidljivima, jednostavno uklonite automatski filtar ponovnim klikom na gumb Filtar :
- Formula u stupcu C ponovno izračunava preostale retke, ali ti više ne treba. Sada možete sigurno izbrisati stupac Helper:
Kao rezultat toga, samo su parni tjedni ostali u našem radnom listu, neparni tjedni su nestali!
Savjet. Ako se želite seliti svakidrugi redak na neko drugo mjesto umjesto da ih potpuno izbrišete, prvo kopirajte filtrirane retke i zalijepite ih na novo mjesto, a zatim izbrišite filtrirane retke.
Kako izbrisati alternativne retke u Excelu s VBA
Ako niste voljni gubiti vrijeme na trivijalan zadatak kao što je brisanje svakog drugog retka u vašim Excel radnim listovima, sljedeća VBA makronaredba može automatizirati proces umjesto vas:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count >= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For 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 = True End If End SubKako izbrisati svaki drugi red u Excelu pomoću makronaredbe
I umetnite makronaredbu u svoj radni list na uobičajeni način putem uređivača Visual Basic:
- Pritisnite Alt + F11 za otvaranje prozora Visual Basic for Applications.
- Na gornjoj traci izbornika, kliknite Insert > Module i zalijepite gornju makronaredbu u Module
- Pritisnite tipku F5 za pokretanje makronaredbe.
- Pojavit će se dijaloški okvir i tražiti da odaberete raspon. Odaberite svoju tablicu i klikniteOK:
Gotovo! Svaki drugi redak u odabranom rasponu se briše:
Kako izbrisati svaki N-ti redak u Excelu
Za ovaj zadatak, proširit ćemo filtriranje tehnika koju smo koristili za uklanjanje svakog drugog retka. Razlika je u formuli na kojoj se temelji filtriranje:
MOD(ROW()- m, n)Gdje je:
- m je broj retka prve ćelije s podacima minus 1
- n je N-ti redak koji želite izbrisati
Recimo da vaši podaci počinju u retku 2 i želite izbrisati svaki treći red. Dakle, u vašoj formuli n je jednako 3, a m je jednako 1 (redak 2 minus 1):
=MOD(ROW() - 1, 3)
Ako su naši podaci počeli u redak 3, tada bi m bilo jednako 2 (redak 3 minus 1), i tako dalje. Ova korekcija je potrebna za redoslijed numeriranja redaka, počevši od broja 1.
Ono što formula radi je dijeljenje relativnog broja retka s 3 i vraćanje ostatka nakon dijeljenja. U našem slučaju, daje nulu za svaki treći red jer se svaki treći broj dijeli s 3 bez ostatka (3,6,9, itd.):
A sada, vi izvršite već poznate korake za filtriranje redaka "0":
- Odaberite bilo koju ćeliju u tablici i kliknite gumb Filtriraj na Podacima
- Filtrirajte pomoćni stupac da prikazuje samo vrijednosti "0".
- Odaberite sve vidljive retke "0", desnom tipkom miša kliknite i odaberite Izbriši redak iz kontekstnog izbornika.
- Uklonite filter iizbrišite stupac Helper.
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 retke s nevažnim podacima, sljedeći vodič će vam biti od pomoći: Kako izbrisati retke na temelju vrijednosti ćelije.
Zahvaljujem vam na čitanju i nadam se da se ponovno vidimo na našem blogu sljedeći tjedan .
