Veel Excel-gebruikers verbergen rijen en kolommen wanneer ze gegevens hebben die ze niet zichtbaar hoeven te maken.
Het is een manier om alleen nuttige gegevens zichtbaar te houden en tegelijkertijd niet de gegevens te verwijderen die u niet zichtbaar hoeft te maken.
En als je veel van dergelijke verborgen rijen/kolommen hebt, kan het lastig zijn om deze verborgen rijen en kolommen te vinden en te verwijderen (in het geval dat je ze niet nodig hebt).
In deze tutorial laat ik je een aantal manieren zien om gemakkelijk verwijder verborgen rijen en kolommen in Excel.
Er is een ingebouwde methode waarmee u alle verborgen rijen en kolommen in één keer kunt verwijderen, en u kunt ook VBA-macrocodes gebruiken voor het geval u dit op ons geselecteerde cellenbereik wilt toepassen.
Dus laten we beginnen!
Verwijder alle verborgen rijen en kolommen in Excel
Als u alle verborgen rijen en kolommen in een volledige werkmap in Excel wilt verwijderen, kunt u de hier getoonde methode gebruiken.
Onthoud dat het deze verborgen rijen en kolommen uit de hele werkmap gaat verwijderen en niet alleen uit het actieve blad.
Hieronder vindt u de stappen om alle verborgen rijen en kolommen uit de werkmap in Excel te verwijderen:
- Klik op de optie Bestand
- Klik in de opties aan de linkerkant op 'Info'
- Klik op de optie 'Controleren op problemen'
- Klik op de optie 'Document inspecteren'. Hierdoor wordt het dialoogvenster Document Inspector geopend
- Klik in het dialoogvenster 'Documentinspecteur' op de knop 'Inspecteren'. Dit zal de hele werkmap inspecteren en u de informatie over de werkmap geven
- Scrol omlaag naar de optie 'Verborgen rijen en kolommen'. U zult zien dat het het totale aantal verborgen rijen en kolommen toont dat het in de werkmap heeft gevonden.
- Klik op de knop 'Alles verwijderen'
Met de bovenstaande stappen worden alle verborgen rijen en kolommen in de werkmap verwijderd.
Houd er rekening mee dat u deze werkmap moet opslaan voordat u de optie Documentinspecteur uitvoert. Als de werkmap nog niet is opgeslagen, dwingt Excel u eerst om deze op te slaan. Het zal u ook een waarschuwingsprompt tonen waarin u wordt gevraagd om het bestand één keer op te slaan, omdat de gegevens die door deze stappen zijn gewijzigd, niet kunnen worden hersteld.
Als er geen verborgen rijen en kolommen zijn, ziet u een groen vinkje voor de optie Verborgen en Rijen en kolommen (in het dialoogvenster Documentcontrole).
Afgezien van verborgen rijen en kolommen, geeft het dialoogvenster Document Inspector u ook veel andere nuttige informatie - zoals het aantal opmerkingen, of verborgen werkbladen, of ingesloten documenten, enz.
Opmerking: U kunt de wijzigingen die door de Documentcontrole zijn aangebracht niet ongedaan maken. Zorg er dus voor dat u een reservekopie van de originele gegevens hebt (voor het geval u deze in de toekomst nodig heeft)Dit is een geweldige methode als u alle verborgen kolommen en rijen voor de hele werkmap wilt verwijderen.
Maar als u het alleen in een specifiek blad of in een specifiek bereik wilt verwijderen, kunt u deze optie niet gebruiken.
In dat geval kunt u de hierna beschreven VBA-methode gebruiken.
Verwijder verborgen rijen en kolommen met VBA
Als je maar een paar verborgen rijen en kolommen hebt, is het mogelijk om deze handmatig zichtbaar te maken en vervolgens te verwijderen.
Maar als dit iets is dat u vaak moet doen, of als u een grote dataset heeft met een groot aantal rijen/kolommen die verborgen zijn, kunt u het beste VBA-macrocodes gebruiken om dit proces te automatiseren.
Laten we eens kijken naar verschillende scenario's waarin u VBA kunt gebruiken om deze verborgen rijen en kolommen te verwijderen.
Van een heel werkblad (gebruikt bereik)
Hoewel ik de VBA-code het hele werkblad kan laten controleren vanaf het laatste rijnummer en het laatste kolomnummer in het werkblad, zou dat een verspilling van middelen zijn.
Een betere methode zou zijn om te zien wat het gebruikte bereik is en dan alleen dat gebruikte bereik te controleren op verborgen rijen en kolommen.
Hieronder staat de VBA-code die alle verborgen rijen in het gebruikte bereik zou verwijderen:
Sub DeleteHiddenRows() Dim sht als werkblad 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 Dan Rijen (i). Gehele Rij. Verwijder Volgende Einde Sub
De bovenstaande VBA-code vindt eerst het laatste rijnummer in het gebruikte bereik en wijst dat rijnummer toe aan de variabele 'LastRow'.
Dit laatste rijnummer wordt vervolgens gebruikt in een For Next-lus, waar het begint bij de laatste rij en controleert of het verborgen is of niet.
In het geval dat het verborgen is, wordt die hele rij verwijderd. En in het geval dat het niet verborgen is, laat de code die rij zoals hij is en gaat hij naar de rij erboven. Deze lus controleert alle rijen en verwijdert elke verborgen rij die hij tijdens het proces tegenkomt.
Als u alle verborgen kolommen in het gebruikte bereik wilt verwijderen, gebruikt u de onderstaande VBA-code:
Sub DeleteHiddenColumns() Dim sht als werkblad Dim LastCol als geheel getal Set sht = ActiveSheet LastCol = sht.UsedRange.Columns(sht.UsedRange.Columns.Count).Column For i = LastCol To 1 Step -1 If Columns(i).Hidden = True Dan Columns(i).EntireColumn.Delete Next End Sub
Dit werkt weer op dezelfde manier, waarbij we in plaats van rijen controleren op kolommen.
Dus het vindt het laatste kolomnummer in het gebruikte bereik, wijst het toe aan een variabele en gebruikt vervolgens de lus om van de laatste kolom naar de eerste kolom te gaan en alle verborgen kolommen in het proces te verwijderen.
En als u een code wilt hebben die alle verborgen rijen en de verborgen kolommen zou verwijderen, gebruik dan de onderstaande VBA-code:
Sub DeleteHiddenRowsColumns() Dim sht As Worksheet Dim LastRow als Integer Dim LastCol als Integer Stel sht = ActiveSheet LastRow = sht.UsedRange.Rows(sht.UsedRange.Rows.Count).Row LastCol = sht.UsedUsedRanget.Count 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 Dan Columns(i).EntireColumn.Delete Next End Sub
Dit is slechts de gecombineerde code voor zowel rijen als kolommen en werkt op dezelfde manier.
In plaats van één lus gebruikt dit twee afzonderlijke lussen, waarbij het eerst door alle rijen gaat en vervolgens door alle kolommen. En tijdens het proces verwijdert het alle verborgen rijen en kolommen die het tegenkomt.
Merk op dat u deze VBA-code in een reguliere module in de Visual Basic Editor moet plaatsen. U kunt de code vervolgens rechtstreeks vanuit de VB-editor uitvoeren door het macrodialoogvenster te gebruiken of door deze macro toe te voegen aan de werkbalk voor snelle toegang.
Als dit iets is dat u vaak moet doen, kunt u deze code ook toevoegen aan de persoonlijke macrowerkmap, zodat u er toegang toe hebt vanuit alle werkmappen op uw systeem.
Uit een specifiek bereik van cellen
Als u een specifiek bereik heeft waaruit u verborgen rijen en kolommen wilt verwijderen, moet u dat in de code specificeren.
Dit zorgt ervoor dat de code alleen door de rijen en kolommen in dat opgegeven bereik cirkelt en de andere gebieden in het werkblad onaangeroerd laat
Hieronder de VBA-code die dit zou doen:
Sub DeleteHiddenRowsColumns() Dim sht Als werkblad 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 Stap -1 If Rows(i).Hidden = True Dan 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
In de bovenstaande code heb ik het bereik gespecificeerd als A1: K200.
Hierdoor gaat de code door alle rijen en kolommen in het opgegeven bereik en verwijdert alle verborgen rijen en kolommen die deze tegenkomt.
Als u rijen of kolommen buiten dit bereik heeft verborgen, blijven deze onaangetast.
Dus dit is hoe je kunt verwijderen verborgen rijen en kolommen in Excel.
Als u dit in de hele werkmap wilt doen, kunt u de optie Documentinspecteur gebruiken. En als u meer controle nodig heeft, kunt u de VBA-codes gebruiken zoals hierboven weergegeven.
Ik hoop dat je deze tutorial nuttig vond!
