Mange Excel -brukere gjemmer rader og kolonner når de har noen data de ikke trenger synlige.
Det er en måte å bare holde nyttige data synlige, og samtidig slippe å slette dataene du ikke trenger å være synlig.
Og hvis du har mange slike skjulte rader/kolonner, kan det være vondt å finne og slette disse skjulte radene og kolonnene (hvis du ikke trenger dem).
I denne opplæringen vil jeg vise deg et par måter å enkelt slett skjulte rader og kolonner i Excel.
Det er en innebygd metode som lar deg slette alle de skjulte radene og kolonnene på en gang, og du kan også bruke VBA -makrokoder i tilfelle du vil bruke dette på vårt utvalgte celleområde.
Så la oss komme i gang!
Slett alle skjulte rader og kolonner i Excel
Hvis du vil slette alle de skjulte radene og kolonnene i en hel arbeidsbok i Excel, kan du bruke metoden som vises her.
Husk at den kommer til å fjerne disse skjulte radene og kolonnene fra hele arbeidsboken og ikke bare fra det aktive arket.
Nedenfor er trinnene for å slette alle de skjulte radene og kolonnene fra arbeidsboken i Excel:
- Klikk på alternativet Fil
- Klikk på "Info" i alternativene til venstre
- Klikk på alternativet "Se etter problemer"
- Klikk på alternativet "Inspiser dokument". Dette åpner dialogboksen Document Inspector
- Klikk på "Inspiser" -knappen i dialogboksen "Dokumentinspektør". Dette vil inspisere hele arbeidsboken og gi deg informasjon om arbeidsboken
- Rull ned til alternativet "Skjulte rader og kolonner". Du vil se at den viser det totale antallet skjulte rader og kolonner som den har funnet i arbeidsboken.
- Klikk på knappen "Fjern alt"
Trinnene ovenfor vil slette alle de skjulte radene og kolonnene i arbeidsboken.
Vær oppmerksom på at du må lagre denne arbeidsboken før du kjører alternativet Document Inspector. Hvis arbeidsboken ikke allerede er lagret, vil Excel først tvinge deg til å lagre den. Det vil også vise deg en advarsel om å lagre filen en gang, siden dataene som er endret ved disse trinnene ikke kan gjenopprettes.
Hvis det ikke er noen skjulte rader og kolonner, vil du se et grønt kryss foran alternativet Skjulte og rader og kolonner (i dialogboksen Dokumentinspektør).
Bortsett fra skjulte rader og kolonner, gir dialogboksen Dokumentinspektør deg også mye annen nyttig informasjon - for eksempel antall kommentarer, skjulte regneark eller innebygde dokumenter, etc.
Merk: Du kan ikke angre endringene som er gjort av dokumentinspektøren. Så sørg for at du har en sikkerhetskopi av de originale dataene (hvis du trenger det i fremtiden)Dette er en flott metode hvis du vil slette alle de skjulte kolonnene og radene for hele arbeidsboken.
Men hvis du bare vil slette det i et bestemt ark eller i et bestemt område, kan du ikke bruke dette alternativet.
I så fall kan du bruke VBA -metoden som dekkes neste.
Slett skjulte rader og kolonner ved hjelp av VBA
Hvis du bare har noen få skjulte rader og kolonner, er det mulig å fjerne disse manuelt og deretter slette det.
Men hvis dette er noe du må gjøre ganske ofte, eller hvis du har et stort datasett med et stort antall rader/kolonner som er skjult, er det best å bruke VBA -makrokoder for å automatisere denne prosessen.
La oss se på forskjellige scenarier der du kan bruke VBA til å slette disse skjulte radene og kolonnene.
Fra et helt regneark (brukt område)
Selv om jeg kan få VBA -koden til å sjekke hele regnearket fra det siste radnummeret og det siste kolonnetallet i regnearket, ville det være sløsing med ressurser.
En bedre metode ville være å se hva som er det brukte området og deretter bare kontrollere det brukte området for alle skjulte rader og kolonner.
Nedenfor er VBA -koden som vil slette alle de skjulte radene i det brukte området:
Sub DeleteHiddenRows () Dim sht As Worksheet Dim LastRow Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row For i = LastRow To 1 Step -1 If Rows (i) .Hidden = True Deretter rader (i) .EntireRow.Delete Next End Sub
Den ovennevnte VBA -koden finner først ut det siste radnummeret i det brukte området og tilordner det radnummeret til variabelen 'LastRow'.
Dette siste radnummeret blir deretter brukt i en For Next loop, hvor det starter fra den siste raden og sjekker om det er skjult eller ikke.
Hvis den er skjult, blir hele raden slettet. Og hvis den ikke er skjult, forlater koden den raden som den er og flytter seg til raden over den. Denne løkken sjekker etter alle radene, og sletter alle skjulte rader den møter i prosessen.
Hvis du vil slette alle de skjulte kolonnene i det brukte området, bruker du VBA -koden nedenfor:
Sub DeleteHiddenColumns () Dim sht As Worksheet Dim LastCol as Integer Set sht = ActiveSheet LastCol = sht.UsedRange.Columns (sht.UsedRange.Columns.Count) .Column For i = LastCol To 1 Step -1 If Columns (i) .Hidden = True Then Columns (i) .EntireColumn.Delete Next End Sub
Dette fungerer igjen på samme måte, der vi i stedet for rader ser etter kolonner.
Så den finner ut det siste kolonnetallet i det brukte området, tilordner det til en variabel og bruker deretter løkken til å gå fra den siste kolonnen til den første kolonnen og slette alle de skjulte kolonnene i prosessen.
Og hvis du vil ha en kode som vil slette alle de skjulte radene, så vel som de skjulte kolonnene, bruker du VBA -koden nedenfor:
Sub DeleteHiddenRowsColumns () Dim sht As Worksheet Dim LastRow as Integer Dim LastCol as Integer Set sht = ActiveSheet LastRow = sht.UsedRange.Rows (sht.UsedRange.Rows.Count) .Row LastCol = sht.UsedRange.Columns (sht.UsedRange. Columns.Count) .Column For i = LastRow To 1 Step -1 If Rows (i) .Hidden = True Then Rows (i) .EntireRow.Delete Next For i = LastCol To 1 Step -1 If Columns (i) .Hidden = True Then Columns (i) .EntireColumn.Delete Next End Sub
Dette er bare den kombinerte koden for både rader og kolonner og fungerer på samme måte.
I stedet for en sløyfe bruker denne to separate løkker, hvor den først går gjennom alle radene, og deretter går den gjennom alle kolonnene. Og i prosessen sletter den alle de skjulte radene og kolonnene den møter.
Vær oppmerksom på at du må plassere denne VBA -koden i en vanlig modul i Visual Basic Editor. Du kan deretter kjøre koden direkte fra VB Editor, ved å bruke makrodialogboksen, eller ved å legge denne makroen til verktøylinjen for hurtig tilgang.
Hvis dette er noe du må gjøre ganske ofte, kan du også legge til denne koden i den personlige makro -arbeidsboken slik at du får tilgang til den fra alle arbeidsbøkene på systemet ditt.
Fra et spesifikt utvalg av celler
Hvis du har et bestemt område du vil fjerne skjulte rader og kolonner fra, må du spesifisere det i koden.
Dette sikrer at koden bare sirkler gjennom radene og kolonnene i det angitte området og lar de andre områdene i regnearket være uberørt
Under VBA -koden som ville gjøre dette:
Sub DeleteHiddenRowsColumns () Dim sht As Worksheet 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 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
I koden ovenfor har jeg spesifisert området som A1: K200.
Dette får koden til å gå gjennom alle radene og kolonnene i det angitte området og fjerne eventuelle skjulte rader og kolonner som den støter på.
Hvis du har skjulte rader eller kolonner utenfor dette området, forblir disse upåvirket.
Så dette er hvordan du kan slette skjulte rader og kolonner i Excel.
Hvis du vil gjøre det på tvers av hele arbeidsboken, kan du bruke alternativet Document Inspector. Og hvis du trenger mer kontroll, kan du bruke VBA -kodene som vist ovenfor.
Jeg håper du synes denne opplæringen var nyttig!
