Lege regels verwijderen

Soms bij het invoeren sla je per ongeluk een regel over en dan volgt het elkaar niet allemaal lekker op, je hebt dan een lege regel.

Als je dan snel denkt te zijn met een sneltoets door de laatst actieve cel naar boven te selecteren in plaats van te scrollen (CTRL + pijltje omhoog, zie de sneltoetsen), dan kan dit nog steeds lang duren. Er staan immers overbodige wit regels tussen.

Met deze macro kan je ze met een druk op de knop alle lege regels verwijderen, makkelijk toch?

Vooraf is het handig om te weten hoe je het Ontwikkelaars tabblad krijgt en hoe je een macro toevoegt.

Lege regels verwijderen

Open de VB editor, ALT + F11, en maak een nieuwe Module aan.

Sub LegeRij()
Dim LaatsteRij As Long
LaatsteRij = Cells.SpecialCells(xlCellTypeLastCell).Row
For x = LaatsteRij To 1 Step -1
If Range("A" & x).Value = "" Then Range("A" & x).EntireRow.Delete
Next
End Sub

We maken voor het gemak even een ActiveX besturingselement aan.

Open op het lint het tabblad Ontwikkelaars, selecteer hier de optie Invoegen en kies voor knop.
Koppel hier de zojuist aangemaakte module aan.

Als je deze knop nu activeert zie je dat alle lege regels tussen de gebruikte regels worden verwijderd.