Ta bort alla tomma celler

Hur man tar bort alla tomma celler

Vill du ta bort alla celler i den aktiva tabellen som är tomma? Detta är inte ett problem med ett makro. Följande makro raderar alla tomma celler i den aktiva tabellen:

Sub EmptyDelete ()

ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Välj

Selection.Delete Shift: = xlUp

Avsluta Sub

Makrot söker automatiskt efter alla tomma celler i användarområdet i den aktiva tabellen och raderar dessa celler. Cellerna under den förskjuts uppåt. Så du får ett mycket komprimerat bord.