Mnogi korisnici programa Excel skrivaju retke i stupce kada imaju neke podatke koji im nisu potrebni.
To je način da samo korisni podaci budu vidljivi, a istodobno ne morate izbrisati podatke koje ne morate vidjeti.
A ako imate puno takvih skrivenih redaka/stupaca, bilo bi mučno pronaći i izbrisati te skrivene retke i stupce (u slučaju kada vam ne trebaju).
U ovom vodiču pokazat ću vam nekoliko načina na koji to možete učiniti jednostavno izbrišite skrivene retke i stupce u Excelu.
Postoji ugrađena metoda koja vam omogućuje brisanje svih skrivenih redaka i stupaca u jednom potezu, a možete koristiti i VBA makro kodove u slučaju da to želite primijeniti na odabrani raspon ćelija.
Pa krenimo!
Izbrišite sve skrivene retke i stupce u Excelu
Ako želite izbrisati sve skrivene retke i stupce u cijeloj radnoj knjizi u Excelu, možete upotrijebiti ovdje prikazanu metodu.
Upamtite da će se ti skriveni retci i stupci ukloniti iz cijele radne knjige, a ne samo iz aktivnog lista.
U nastavku su navedeni koraci za brisanje svih skrivenih redaka i stupaca iz radne knjige u Excelu:
- Pritisnite opciju Datoteka
- U opcijama s lijeve strane kliknite "Info"
- Kliknite opciju "Provjeri probleme"
- Kliknite na opciju 'Pregledaj dokument'. Ovo će otvoriti dijaloški okvir Inspektor dokumenata
- U dijaloškom okviru "Inspektor dokumenata" kliknite gumb "Pregledaj". Ovo će pregledati cijelu radnu knjigu i dati vam podatke o radnoj knjižici
- Pomaknite se dolje do opcije "Skriveni redovi i stupci". Vidjet ćete da prikazuje ukupan broj skrivenih redaka i stupaca koje je pronašao u radnoj knjizi.
- Kliknite gumb ‘Ukloni sve’
Gore navedeni koraci izbrisali bi sve skrivene retke i stupce u radnoj knjizi.
Imajte na umu da morate spremiti ovu radnu knjigu prije nego pokrenete opciju Inspektor dokumenata. U slučaju da radna knjiga već nije spremljena, Excel bi vas prvo natjerao da je spremite. Također će vam pokazati upozorenje koje traži da jednom spremite datoteku jer se podaci promijenjeni ovim koracima ne mogu oporaviti.
U slučaju da nema skrivenih redaka i stupaca, vidjet ćete zelenu kvačicu ispred opcije Skriveno i redovi i stupci (u dijaloškom okviru Inspektor dokumenata).
Osim skrivenih redaka i stupaca, dijaloški okvir Inspektor dokumenata pruža vam i mnoge druge korisne informacije - poput broja komentara, skrivenih radnih listova ili ugrađenih dokumenata itd.
Napomena: Ne možete poništiti promjene koje je napravio Inspektor dokumenata. Stoga provjerite imate li sigurnosnu kopiju izvornih podataka (u slučaju da vam u budućnosti zatrebaju)Ovo je izvrsna metoda ako želite izbrisati sve skrivene stupce i retke za cijelu radnu knjigu.
No u slučaju da ga želite izbrisati samo na određenom listu ili u određenom rasponu, ne možete koristiti ovu opciju.
U tom slučaju možete koristiti sljedeću metodu VBA.
Izbrišite skrivene redove i stupce pomoću VBA
Ako imate samo nekoliko skrivenih redaka i stupaca, moguće ih je ručno otkriti, a zatim izbrisati.
No ako je to nešto što morate raditi prilično često ili ako imate veliki skup podataka s velikim brojem skrivenih redaka/stupaca, najbolje je upotrijebiti VBA makro kodove za automatiziranje ovog procesa.
Pogledajmo različite scenarije u kojima možete koristiti VBA za brisanje ovih skrivenih redaka i stupaca.
S cijelog radnog lista (rabljeni raspon)
Iako mogu natjerati VBA kôd da provjeri cijeli radni list počevši od zadnjeg broja retka i posljednjeg broja stupca na radnom listu, to bi bilo gubljenje resursa.
Bolja metoda bila bi vidjeti koji se raspon koristi, a zatim samo provjeriti taj raspon za sve skrivene retke i stupce.
Ispod je VBA kôd koji bi izbrisao sve skrivene retke u korištenom rasponu:
Sub DeleteHiddenRows () Dim sht Kao radni list Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row For i = LastRow do 1 korak -1 Ako su redovi (i) .Hidden = True Zatim Rows (i) .EntireRow.Delete Next End Sub
Gornji VBA kôd najprije otkriva posljednji broj retka u korištenom rasponu i dodjeljuje taj red retku varijabli 'LastRow'.
Ovaj posljednji broj retka tada se koristi u petlji For Next, gdje počinje od zadnjeg retka i provjerava je li skriven ili ne.
U slučaju da je skriven, cijeli se redak briše. A u slučaju da nije skriven, kôd ostavlja taj redak kakav jest i prelazi u redak iznad njega. Ova petlja provjerava sve retke i briše sve skrivene retke na koje naiđe u tom procesu.
U slučaju da želite izbrisati sve skrivene stupce u korištenom rasponu, upotrijebite donji VBA kôd:
Sub DeleteHiddenColumns () Dim sht Kao radni list Dim LastCol kao cijeli broj Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count). Stupac za i = LastCol do 1 korak -1 Ako su stupci (i). Skriveni = Tačno, a zatim stupci (i) .EntireColumn.Delete Next End Sub
Ovo opet radi na isti način, gdje umjesto redaka provjeravamo stupce.
Tako doznaje posljednji broj stupca u korištenom rasponu, dodjeljuje ga varijabli, a zatim koristi petlju za prelazak iz zadnjeg stupca u prvi stupac i brisanje svih skrivenih stupaca u tom procesu.
A u slučaju da želite imati kôd koji bi izbrisao sve skrivene retke, kao i skrivene stupce, upotrijebite donji VBA kôd:
Sub DeleteHiddenRowsColumns () Dim sht As Radni list Dim LastRow kao Integer Dim LastCol kao Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns. Stupci.Broj). Stupac Za i = LastRow do 1 korak -1 ako su redovi (i) .Hidden = True Zatim redovi (i) .EntireRow.Delete Next For i = LastCol do 1 korak -1 ako su stupci (i) .Skriveni = Tačno, a zatim stupci (i) .EntireColumn.Delete Next End Sub
Ovo je samo kombinirani kod za retke i stupce i radi na isti način.
Umjesto jedne petlje, ovo koristi dvije odvojene petlje, gdje prvo prolazi kroz sve retke, a zatim prolazi kroz sve stupce. Pritom briše sve skrivene retke i stupce na koje naiđe.
Imajte na umu da ovaj VBA kôd morate postaviti u običan modul u uređivaču Visual Basic. Zatim možete pokrenuti kôd izravno iz VB uređivača, pomoću dijaloškog okvira makronaredbe ili dodavanjem ove makronaredbe na alatnoj traci za brzi pristup.
Ako je to nešto što morate činiti prilično često, ovaj kôd možete dodati i u osobnu radnu knjigu makronaredbi kako biste joj imali pristup iz svih radnih knjiga na vašem sustavu.
Iz određenog raspona stanica
U slučaju da imate određeni raspon iz kojeg želite ukloniti skrivene retke i stupce, morate to navesti unutar koda.
Time se osigurava da kôd samo kruži kroz retke i stupce u navedenom rasponu, a ostala područja na radnom listu ostavlja netaknutima
Ispod VBA koda koji bi to učinio:
Sub DeleteHiddenRowsColumns () Dim sht Kao radni list Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Raspon ("A1: K200") RowCount = Rng.Rows.Count LastRow = Rng.Rows (Rng. Rows.Count) .Row ColCount = Rng.Columns.Count LastCol = Rng.Columns (Rng.Columns.Count) .Column For i = LastRow To LastRow - RowCount Step -1 If Rows (i) .Hidden = True then Rows ( i) .EntireRow.Delete Next For j = LastCol To LastCol - ColCount Step -1 If Columns (j) .Hidden = True then Columns (j) .EntireColumn.Delete Next End Sub
U gornjem kodu sam naveo raspon kao A1: K200.
Time kôd prolazi kroz sve retke i stupce u navedenom rasponu i uklanja sve skrivene retke i stupce na koje naiđe.
U slučaju da imate skrivene retke ili stupce izvan ovog raspona, to će ostati nepromijenjeno.
Dakle, ovo je način na koji možete izbrisati skrivene retke i stupce u Excelu.
Ako to želite učiniti u cijeloj radnoj knjizi, možete koristiti opciju Inspektor dokumenata. A u slučaju da vam je potrebna veća kontrola, možete upotrijebiti VBA kodove kako je gore prikazano.
Nadam se da vam je ovaj vodič bio koristan!
