Slik fjerner du alle tomme celler
Vil du slette alle cellene i den aktive tabellen som er tomme? Dette er ikke et problem med en makro. Følgende makro sletter alle tomme celler i den aktive tabellen:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Velg
Selection.Delete Shift: = xlUp
Slutt Sub
Makroen søker automatisk etter alle tomme celler i brukerområdet i den aktive tabellen og sletter disse cellene. Cellene under den forskyves oppover. Så du får et høyt komprimert bord.