Макрос для удаления пустых строк в Excel⁠⁠

Встречались в работе с ситуацией, когда исходные данные содержат пустые строки, мешающие дальнейшей, обработке информации, до их удаления?

Например, не строится Сводная таблица по всем данным или правильно не работает стандартный фильтр .

Исключая "ручной привод", максимально просто решает проблему, такой макрос:

Копируйте код и сохраните его в Личной книге макросов или создайте свою надстройку:

Sub DelEmptyRows() 'Удаление пустых строк на активном листе

Dim i As Long

Dim rMay1 As Range

Dim rMay2 As Range

Set rMay1 = Application.Range(ActiveSheet.Range("A1"), _

ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell))

Application.ScreenUpdating = False

'удаляем пустые строки

For i = 1 To rMay1.Rows.Count

If WorksheetFunction.CountA(rMay1.Rows(i).EntireRow) = 0 Then

If rMay2 Is Nothing Then

Set rMay2 = rMay1.Rows(i).EntireRow

Else

Set rMay2 = Application.Union(rMay2, rMay1.Rows(i).EntireRow)

End If

End If

Next

If rMay2 Is Nothing Then

MsgBox "Пустых строк не найдено.", vbInformation, "Информация"

Else:

rMay2.[Delete]

End If

Application.ScreenUpdating = True

End Sub

В продолжение к посту  Макрос для удаления пустых столбцов в книгах Excel.