Зміст
Видалити порожні рядки
Очевидний спосіб видалити порожні рядки з набору даних - це просто відсортувати дані. Це переміщує порожні рядки внизу даних і «видаляє» їх. Але що, якщо ви хочете, щоб порожні рядки були видалені, однак ви не хочете, щоб дані сортувалися? VBA.
Наступний макрос видалить порожні рядки без будь -якого сортування (вимкніть оновлення екрана, щоб прискорити роботу).
Sub DeleteBlankRows () Dim x As Long With ActiveSheet For x = .Cells.SpecialCells (xlCellTypeLastCell) .Row To 1 Step -1 If WorksheetFunction.CountA (.Rows (x)) = 0 Тоді ActiveSheet.Rows (x). Якщо наступний кінець із кінцевим суб