Alle lege cellen verwijderen
Wilt u alle lege cellen in de actieve tabel verwijderen? Bij een macro is dit geen probleem. De volgende macro verwijdert alle lege cellen in de actieve tabel:
Sub LeegVerwijderen ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Select
Selectie.Verwijder Shift: = xlUp
Einde sub
De macro zoekt automatisch naar alle lege cellen in het gebruikersgebied van de actieve tabel en verwijdert deze cellen. De cellen eronder worden naar boven verschoven. U krijgt dus een sterk gecomprimeerde tabel.