Как удалить все пустые ячейки
Хотите удалить все пустые ячейки в активной таблице? Это не проблема с макросом. Следующий макрос удаляет все пустые ячейки в активной таблице:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks) .Select
Выделение.Удалить сдвиг: = xlUp
Конец подписки
Макрос автоматически ищет все пустые ячейки в пользовательской области активной таблицы и удаляет эти ячейки. Ячейки под ним смещены вверх. Так вы получите сильно сжатую таблицу.