Obsah
Ako odstrániť všetky prázdne bunky
Chcete odstrániť všetky bunky v aktívnej tabuľke, ktoré sú prázdne? S makrom to nie je problém. Nasledujúce makro vymaže všetky prázdne bunky v aktívnej tabuľke:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks). Vyberte
Selection.Delete Shift: = xlUp
Koniec pod
Makro automaticky vyhľadá všetky prázdne bunky v užívateľskej oblasti aktívnej tabuľky a tieto bunky odstráni. Bunky pod ňou sú posunuté nahor. Tak získate vysoko skomprimovaný stôl.