Видалити порожні рядки - Приклади коду VBA

Видалити порожні рядки

Очевидний спосіб видалити порожні рядки з набору даних - це просто відсортувати дані. Це переміщує порожні рядки внизу даних і «видаляє» їх. Але що, якщо ви хочете, щоб порожні рядки були видалені, однак ви не хочете, щоб дані сортувалися? 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). Якщо наступний кінець із кінцевим суб

Ви допоможете розвитку сайту, поділившись сторінкою з друзями

wave wave wave wave wave