Як видалити всі порожні клітинки
Хочете видалити всі порожні клітинки в активній таблиці? Це не проблема з макросом. Наступний макрос видаляє всі порожні клітинки в активній таблиці:
Sub EmptyDelete ()
ActiveSheet.UsedRange.SpecialCells (xlCellTypeBlanks).
Вибір. Видалити зрушення: = xlUp
End Sub
Макрос автоматично шукає всі порожні клітинки в області користувача активної таблиці та видаляє ці клітинки. Клітини під ним зміщені вгору. Таким чином, ви отримаєте сильно стиснуту таблицю.