4 простых способа быстро удалить несколько пустых или пустых строк в Excel

Удаление нескольких пустых или пустых строк в Excel необходимо при очистке данных перед анализом, составлением отчетов или презентацией. Пустые строки могут нарушить целостность данных, усложнить вычисления и затруднить понимание. В этом руководстве представлены четыре простых метода эффективного устранения этих пустых мест, гарантируя, что ваши данные останутся непрерывными и простыми в управлении.

• Удалите пустые строки с помощью команды «Перейти к специальному» (4 шага)
• Легко удалить пустые строки в диапазоне/листе/книге с помощью Kutools (1 шаг)
• Удалить пустые строки с помощью кода VBA (4 шага)
• Удалите пустые строки с помощью вспомогательного столбца и функции фильтра (7 шагов)
• Скачать образец файла

Теперь выполните следующие шаги, чтобы удалить пустые строки с помощью Перейти к специальным строкам:

1. Выберите диапазон, из которого вы хотите удалить пустые строки, щелкните Главная вкладка, затем в Редактирование группу, нажмите Найти и выбрать > Перейти к специальному.

2. в Перейти к специальному диалог, проверьте Пробелы опцию.

3. Нажмите OK, теперь все пустые ячейки в выделенном фрагменте выбраны.

4. Нажмите Главная в Клетки группу, нажмите Удалить > Удалить строки листов.

Теперь строки с пустыми ячейками удалены.

Если вам нужен быстрый и безошибочный метод удаления всех пустых строк из выделенного фрагмента, активного листа, выбранных листов или всей книги, рассмотрите возможность использования инструмента «Удалить пустые строки» из Kutools for Excel. Этот инструмент упрощает задачу, позволяя вам удалять пустые строки всего одним щелчком мыши, тем самым избегая использования более сложных методов.

Нажмите Кутулс > Удалить > Удалить пустые строки, затем в раскрывающемся списке выберите нужную операцию.

1. Нажмите Alt + F11 ключ для включения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули для создания нового Модули скрипт, скопируйте и вставьте в скрипт приведенный ниже код.

VBA: удалить пустые строки

Sub DeleteBlankRows()
'Update 20190107
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRows = WorkRng.Rows.Count
Application.ScreenUpdating = False
For I = xRows To 1 Step -1
    If Application.WorksheetFunction.CountA(WorkRng.Rows(I)) = 0 Then
        WorkRng.Rows(I).EntireRow.Delete XlDeleteShiftDirection.xlShiftUp
    End If
Next
Application.ScreenUpdating = True
End Sub

3. Нажмите F5 нажмите клавишу для запуска кода, затем выберите диапазон, который вы используете для удаления пустых строк в всплывающем KutoolsforExcel Диалог.

4. Нажмите OK. Теперь выбранные пустые строки удалены.

1. Вставьте один столбец перед диапазоном данных, вставьте столбец A как экземпляр, затем введите эту формулу. = B3, C3 и D3 в A3, чтобы объединить данные в row3, см. снимок экрана:

Функции: Если ваши данные находятся в столбце B3 и столбце N, измените формулу на = B3 & C3 & D3 & E3 &… & N3.

2. Затем заполните формулой ячейки, перетащив маркер автозаполнения вниз.

3. Затем нажмите Данные > ФИЛЬТР.

4. Затем нажмите Значок фильтра в столбце помощника отметьте Пробелы вариант только в раскрывающемся списке. Смотрите скриншот:

5. Нажмите OK, все пустые строки были отфильтрованы.

6. Выберите отфильтрованные строки, щелкните Главная > Удалить > Удалить строки листов чтобы удалить пустые строки.

7. Затем нажмите Данные > ФИЛЬТР снова отключить ФИЛЬТР функции.

Нажмите, чтобы загрузить образец файла