Mnogi uporabniki Excela skrijejo vrstice in stolpce, če imajo na voljo nekaj podatkov, ki jih ne potrebujejo.
To je način, kako ohraniti vidne le uporabne podatke, hkrati pa vam ni treba izbrisati podatkov, za katere vam ni treba, da so vidni.
In če imate veliko takih skritih vrstic/stolpcev, bi bilo težko najti in izbrisati te skrite vrstice in stolpce (v primeru, ko jih ne potrebujete).
V tej vadnici vam bom pokazal nekaj načinov, kako enostavno izbrišite skrite vrstice in stolpce v Excelu.
Obstaja vgrajena metoda, ki vam omogoča, da naenkrat izbrišete vse skrite vrstice in stolpce, lahko pa uporabite tudi makro kode VBA, če želite to uporabiti za izbrano območje celic.
Pa začnimo!
Izbrišite vse skrite vrstice in stolpce v Excelu
Če želite izbrisati vse skrite vrstice in stolpce v celotnem delovnem zvezku v Excelu, lahko uporabite tukaj prikazano metodo.
Ne pozabite, da bodo te skrite vrstice in stolpci odstranjeni iz celotnega delovnega zvezka in ne samo iz aktivnega lista.
Spodaj so navedeni koraki za brisanje vseh skritih vrstic in stolpcev iz delovnega zvezka v Excelu:
- Kliknite možnost Datoteka
- V možnostih na levi kliknite »Info«
- Kliknite možnost »Preveri težave«
- Kliknite možnost »Preglej dokument«. S tem se odpre pogovorno okno Pregledovalnik dokumentov
- V pogovornem oknu »Pregled dokumentov« kliknite gumb »Preglej«. S tem boste pregledali celoten delovni zvezek in dobili podatke o delovnem zvezku
- Pomaknite se navzdol do možnosti »Skrite vrstice in stolpci«. Videli boste, da prikazuje skupno število skritih vrstic in stolpcev, ki jih je našlo v delovnem zvezku.
- Kliknite gumb »Odstrani vse«
Zgornji koraki bi izbrisali vse skrite vrstice in stolpce v delovnem zvezku.
Upoštevajte, da morate ta delovni zvezek shraniti, preden zaženete možnost Pregledovalnik dokumentov. Če delovni zvezek še ni shranjen, bi vas Excel najprej prisilil, da ga shranite. Prikazal vam bo tudi opozorilni poziv, ki zahteva, da datoteko enkrat shranite, saj podatkov, spremenjenih s temi koraki, ni mogoče obnoviti.
Če ni skritih vrstic in stolpcev, boste pred možnostjo Skriti in vrstice in stolpci (v pogovornem oknu Preglednik dokumentov) videli zeleno kljukico.
Poleg skritih vrstic in stolpcev vam pogovorno okno Pregledovalnik dokumentov ponuja tudi veliko drugih uporabnih informacij - na primer število komentarjev ali skritih delovnih listov ali vdelanih dokumentov itd.
Opomba: sprememb, ki jih je naredil inšpektor za dokumente, ni mogoče razveljaviti. Zato poskrbite, da imate varnostno kopijo izvirnih podatkov (če jih boste morda potrebovali v prihodnosti)To je odlična metoda, če želite izbrisati vse skrite stolpce in vrstice za celoten delovni zvezek.
Če pa ga želite izbrisati le na določenem listu ali v določenem obsegu, te možnosti ne morete uporabiti.
V tem primeru lahko uporabite naslednjo metodo VBA.
S pomočjo VBA izbrišite skrite vrstice in stolpce
Če imate le nekaj skritih vrstic in stolpcev, jih lahko ročno razkrijete in nato izbrišete.
Če pa je to nekaj, kar morate početi precej pogosto ali če imate velik nabor podatkov z velikim številom skritih vrstic/stolpcev, je najbolje, da za avtomatizacijo tega postopka uporabite kode makrov VBA.
Poglejmo različne scenarije, kjer lahko z VBA izbrišete te skrite vrstice in stolpce.
Iz celotnega delovnega lista (rabljeni obseg)
Čeprav lahko naredim, da koda VBA preveri celoten delovni list, od zadnje številke vrstice in zadnje številke stolpca na delovnem listu, bi to pomenilo izgubo sredstev.
Boljša metoda bi bila, da vidite, kakšen je uporabljeni obseg, in nato samo preverite uporabljeni obseg za vse skrite vrstice in stolpce.
Spodaj je koda VBA, ki bi izbrisala vse skrite vrstice v uporabljenem obsegu:
Sub DeleteHiddenRows () Dim sht Kot delovni list Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row For i = LastRow Do 1 Step -1 If Rows (i) .Hidden = True Nato vrstice (i) .EntireRow.Delete Next End Sub
Zgornja koda VBA najprej ugotovi zadnjo številko vrstice v uporabljenem obsegu in to številko vrstice dodeli spremenljivki „LastRow“.
Ta številka zadnje vrstice se nato uporabi v zanki For Next, kjer se začne od zadnje vrstice in preveri, ali je skrita ali ne.
Če je skrita, se celotna vrstica izbriše. In če ni skrita, koda pusti to vrstico takšno, kot je, in se premakne v vrstico nad njo. Ta zanka preveri vse vrstice in izbriše vse skrite vrstice, na katere naleti v procesu.
Če želite izbrisati vse skrite stolpce v uporabljenem obsegu, uporabite spodnjo kodo VBA:
Sub DeleteHiddenColumns () Dim sht As Worksheet Dim LastCol as Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count). = True Potem stolpci (i) .EntireColumn.Delete Next End Sub
To spet deluje na enak način, kjer namesto vrstic preverjamo stolpce.
Tako ugotovi zadnjo številko stolpca v uporabljenem obsegu, jo dodeli spremenljivki in nato uporabi zanko za prehod iz zadnjega stolpca v prvi stolpec in izbriše vse skrite stolpce v postopku.
Če želite imeti kodo, ki bi izbrisala vse skrite vrstice in skrite stolpce, uporabite spodnjo kodo VBA:
Sub DeleteHiddenRowsColumns () Dim sht Kot delovni list Dim LastRow kot Integer Dim LastCol kot Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns. Stolpci. Število). Stolpec za i = LastRow do 1 korak -1 Če vrstice (i). Hidden = True Potem vrstice (i) .EntireRow.Delete Next For i = LastCol do 1 korak -1 Če stolpci (i). = True Potem stolpci (i) .EntireColumn.Delete Next End Sub
To je samo kombinirana koda za vrstice in stolpce in deluje na enak način.
Namesto ene zanke ta uporablja dve ločeni zanki, kjer najprej gre skozi vse vrstice, nato pa skozi vse stolpce. Pri tem izbriše vse skrite vrstice in stolpce, na katere naleti.
Upoštevajte, da morate to kodo VBA postaviti v običajen modul v urejevalniku Visual Basic. Kodo lahko nato zaženete neposredno iz urejevalnika VB z uporabo pogovornega okna makra ali z dodajanjem tega makra v orodno vrstico za hitri dostop.
Če je to nekaj, kar morate početi precej pogosto, lahko to kodo dodate tudi v osebni delovni zvezek makra, da boste do nje imeli dostop iz vseh delovnih zvezkov v sistemu.
Iz določenega obsega celic
Če imate določeno območje, iz katerega želite odstraniti skrite vrstice in stolpce, morate to določiti v kodi.
To zagotavlja, da koda kroži samo po vrsticah in stolpcih v navedenem obsegu, druga področja na delovnem listu pa ostane nedotaknjena
Pod kodo VBA, ki bi to naredila:
Sub DeleteHiddenRowsColumns () Dim sht Kot delovni list Dim Rng As Range Dim LastRow As Integer Dim RowCount As Integer Set sht = ActiveSheet Set Rng = Range ("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 Če vrstice (i). Hidden = True Potem vrstice ( i) .EntireRow.Delete Next For j = LastCol To LastCol - ColCount Step -1 If Columns (j) .Hidden = True Then Columns (j) .EntireCoown.Delete Next End Sub
V zgornji kodi sem določil obseg kot A1: K200.
Tako bo koda prešla vse vrstice in stolpce v določenem obsegu in odstranila vse skrite vrstice in stolpce, na katere naleti.
Če imate skrite vrstice ali stolpce zunaj tega območja, to ne bo vplivalo.
Tako lahko izbrišete skrite vrstice in stolpci v Excelu.
Če želite to narediti v celotnem delovnem zvezku, lahko uporabite možnost Pregledovalnik dokumentov. Če potrebujete več nadzora, lahko uporabite kode VBA, kot je prikazano zgoraj.
Upam, da vam je bila ta vadnica koristna!
