Mange Excel -brugere skjuler rækker og kolonner, når de har nogle data, som de ikke har brug for synlige.
Det er en måde at kun holde nyttige data synlige og samtidig ikke behøver at slette de data, du ikke behøver at være synlige.
Og hvis du har masser af sådanne skjulte rækker/kolonner, kan det være en smerte at finde og slette disse skjulte rækker og kolonner (hvis du ikke har brug for dem).
I denne vejledning viser jeg dig et par måder til let slet skjulte rækker og kolonner i Excel.
Der er en indbygget metode, der giver dig mulighed for at slette alle de skjulte rækker og kolonner på én gang, og du kan også bruge VBA -makrokoder, hvis du vil anvende dette på vores udvalgte celleområde.
Så lad os komme i gang!
Slet alle skjulte rækker og kolonner i Excel
Hvis du vil slette alle de skjulte rækker og kolonner i en hel projektmappe i Excel, kan du bruge metoden vist her.
Husk, at det vil fjerne disse skjulte rækker og kolonner fra hele projektmappen og ikke kun fra det aktive ark.
Nedenfor er trinene til at slette alle de skjulte rækker og kolonner fra projektmappen i Excel:
- Klik på indstillingen File
- I indstillingerne til venstre skal du klikke på 'Info'
- Klik på "Check for Issues" -muligheden
- Klik på indstillingen 'Inspekter dokument'. Dette åbner dialogboksen Dokumentinspektør
- I dialogboksen 'Dokumentinspektør' skal du klikke på knappen 'Inspekter'. Dette vil inspicere hele projektmappen og give dig oplysninger om projektmappen
- Rul ned til 'Skjulte rækker og kolonner'. Du vil se, at det viser det samlede antal skjulte rækker og kolonner, som det har fundet i projektmappen.
- Klik på knappen 'Fjern alle'
Ovenstående trin ville slette alle de skjulte rækker og kolonner i projektmappen.
Bemærk, at du skal gemme denne projektmappe, før du kører indstillingen Document Inspector. Hvis projektmappen ikke allerede er gemt, vil Excel først tvinge dig til at gemme den. Det vil også vise dig en advarselsmeddelelse, der beder om at gemme filen en gang, da de data, der er ændret ved disse trin, ikke kan gendannes.
Hvis der ikke er skjulte rækker og kolonner, vil du se et grønt flueben før indstillingen Skjulte og rækker og kolonner (i dialogboksen Dokumentinspektør).
Bortset fra skjulte rækker og kolonner giver dialogboksen Dokumentinspektør dig også en masse andre nyttige oplysninger - f.eks. Antallet af kommentarer, skjulte regneark eller integrerede dokumenter osv.
Bemærk: Du kan ikke fortryde de ændringer, der er foretaget af dokumentinspektøren. Så sørg for at have en sikkerhedskopi af de originale data (hvis du måske har brug for dem i fremtiden)Dette er en fantastisk metode, hvis du vil slette alle de skjulte kolonner og rækker for hele projektmappen.
Men hvis du kun vil slette det i et bestemt ark eller i et specifikt område, kan du ikke bruge denne mulighed.
I så fald kan du bruge den næste VBA -metode, der er dækket.
Slet skjulte rækker og kolonner ved hjælp af VBA
Hvis du kun har et par skjulte rækker og kolonner, er det muligt at fjerne disse manuelt og derefter slette det.
Men hvis dette er noget, du skal gøre ganske ofte, eller hvis du har et stort datasæt med et stort antal rækker/kolonner, der er skjult, er det bedst at bruge VBA -makrokoder til at automatisere denne proces.
Lad os se på forskellige scenarier, hvor du kan bruge VBA til at slette disse skjulte rækker og kolonner.
Fra et helt regneark (brugt område)
Selvom jeg kan få VBA -koden til at kontrollere hele regnearket fra det sidste rækkenummer og det sidste kolonnenummer i regnearket, ville det være spild af ressourcer.
En bedre metode ville være at se, hvad det anvendte område er og derefter kun kontrollere det brugte område for skjulte rækker og kolonner.
Nedenfor er VBA -koden, der ville slette alle de skjulte rækker i det anvendte område:
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 Derefter rækker (i) .EntireRow.Delete Next End Sub
Ovennævnte VBA -kode finder først det sidste rækkenummer i det anvendte område og tildeler dette rækkenummer variablen 'LastRow'.
Dette sidste rækkenummer bruges derefter i en For Next loop, hvor det starter fra den sidste række og kontrollerer, om det er skjult eller ej.
Hvis det er skjult, slettes hele rækken. Og hvis det ikke er skjult, forlader koden den række som den er og flytter til rækken over den. Denne sløjfe kontrollerer alle rækker og sletter enhver skjult række, den støder på i processen.
Hvis du vil slette alle de skjulte kolonner i det anvendte område, skal du bruge VBA -koden herunder:
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 igen på samme måde, hvor vi i stedet for rækker søger efter kolonner.
Så den finder ud af det sidste kolonnenummer i det anvendte område, tildeler det til en variabel og bruger derefter sløjfen til at gå fra den sidste kolonne til den første kolonne og slette alle de skjulte kolonner i processen.
Og hvis du vil have en kode, der sletter alle de skjulte rækker samt de skjulte kolonner, skal du bruge VBA -koden herunder:
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 kombinerede kode for både rækker og kolonner og fungerer på samme måde.
I stedet for en loop bruger denne to separate loops, hvor den først går gennem alle rækker, og derefter går den gennem alle kolonnerne. Og i processen sletter den alle de skjulte rækker og kolonner, den støder på.
Bemærk, at du skal placere denne VBA -kode i et almindeligt modul i Visual Basic Editor. Du kan derefter køre koden direkte fra VB -editoren ved hjælp af makro -dialogboksen eller ved at tilføje denne makro til værktøjslinjen til hurtig adgang.
Hvis dette er noget, du skal gøre ganske ofte, kan du også tilføje denne kode til den personlige makro -projektmappe, så du ville have adgang til den fra alle projektmapper på dit system.
Fra en bestemt række celler
Hvis du har et specifikt område, hvorfra du vil fjerne skjulte rækker og kolonner, skal du angive det inden for koden.
Dette sikrer, at koden kun cirkler gennem rækker og kolonner i det angivne område og efterlader de andre områder i regnearket uberørt
Under VBA -koden, der ville gø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 ovenstående kode har jeg angivet intervallet som A1: K200.
Dette får koden til at gå gennem alle rækker og kolonner i det angivne område og fjerne eventuelle skjulte rækker og kolonner, som den støder på.
Hvis du har skjulte rækker eller kolonner uden for dette område, forbliver disse upåvirket.
Så sådan kan du slette skjulte rækker og kolonner i Excel.
Hvis du vil gøre det på tværs af hele projektmappen, kan du bruge indstillingen Document Inspector. Og hvis du har brug for mere kontrol, kan du bruge VBA -koderne som vist ovenfor.
Jeg håber, at du fandt denne vejledning nyttig!
