Jak usunąć wszystkie puste komórki?
Chcesz usunąć wszystkie komórki w aktywnej tabeli, które są puste? To nie jest problem z makro. Poniższe makro usuwa wszystkie puste komórki w aktywnej tabeli:
Sub Pusty Usuń ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Select
Wybór.Usuń Shift: = xlUp
Napis końcowy
Makro automatycznie wyszukuje wszystkie puste komórki w obszarze użytkownika aktywnej tabeli i usuwa te komórki. Komórki poniżej są przesunięte w górę. Więc otrzymujesz wysoce skompresowany stół.