Содержание
Удалить пустые строки
Очевидный способ удалить пустые строки из набора данных - просто отсортировать данные. Это перемещает пустые строки в конец данных и «удаляет» их. Но что, если вы хотите удалить пустые строки, но при этом не хотите сортировать данные? VBA.
Следующий макрос удалит пустые строки без сортировки (отключите обновление экрана, чтобы работать быстрее).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 Если WorksheetFunction.CountA (.Rows (x)) = 0, то ActiveSheet.Rows (x) .Delete End Если следующий конец заканчивается на конце подписки