Jak odstranit všechny prázdné buňky
Chcete odstranit všechny buňky v aktivní tabulce, které jsou prázdné? U makra to není problém. Následující makro odstraní všechny prázdné buňky v aktivní tabulce:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks). Vyberte
Selection.Delete Shift: = xlUp
End Sub
Makro automaticky vyhledá všechny prázdné buňky v uživatelské oblasti aktivní tabulky a tyto buňky odstraní. Buňky pod ním jsou posunuty nahoru. Získáte tedy vysoce komprimovaný stůl.