Встречались в работе с ситуацией, когда исходные данные содержат пустые строки, мешающие дальнейшей, обработке информации, до их удаления?
Например, не строится Сводная таблица по всем данным или правильно не работает стандартный фильтр .
Исключая "ручной привод", максимально просто решает проблему, такой макрос:
Копируйте код и сохраните его в Личной книге макросов или создайте свою надстройку:
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
Открыть редактор VBA Alt +F11, вызвать меню для выполнения или изменения макросов Alt + F8.
Спасибо, что дочитали до конца!
Если Вам было интересно, ставьте лайк, пишите что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.
Еще готовые решения:
- Изменение стиля ссылок в таблицах Excel с A1 на R1C1
- Изменение стиля шрифта на листе Excel
- Сортировка ярлычков книги Excel по алфавиту
- Сохранение отдельным файлом текущий лист в новую папку
- Отображение скрытых листов в файлах Excel, выгруженных из 1С
- Отображение всех скрытых листов в книге Excel
- Макросы для преобразования формул в значения
- Макрос вставки в ячейку полного адреса хранения книги
- Макрос вывода списка файлов в папке
Интересное по теме Excel:
- Функции Excel: ВПР (вертикальный просмотр)
- Как переместить строку или столбец в Сводной таблице Excel
- Как напечатать заголовки таблицы Excel на каждой странице
- Как отобразить листы в файлах Excel, выгруженных из 1С
- "Умные" таблицы в Excel
- Мгновенное заполнение
- Быстрое перемещение строк и столбцов
