Перейти к основному содержанию

Как удалить строки с отсутствующими / пустыми значениями в определенных столбцах в Excel?

В некоторых случаях вам может потребоваться удалить целые строки с отсутствующим значением или пустой ячейкой в ​​диапазоне ячеек в Excel. Эта статья покажет вам, как справиться с этой проблемой.

Удалить строки с отсутствующими / пустыми значениями в определенных столбцах с кодом VBA


Удалить строки с отсутствующими / пустыми значениями в определенных столбцах с кодом VBA

Предположим, вы хотите удалить строки, если в столбцах B и D отсутствует значение, как показано ниже. Для этого вы можете запустить следующий код VBA.

1. Нажмите другой + F11 для открытия Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код VBA в окно кода.

Код VBA: удалить строки с отсутствующими / пустыми значениями в определенных столбцах

Sub DeleteRows()
    Dim I As Integer
    Dim xCount As Integer
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "You can’t select multiple ranges to operate", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xCount = xRg.Rows.Count
    For I = xCount To 1 Step -1
        If Application.WorksheetFunction.CountBlank(xRg.Rows(I)) > 0 Then
            xRg.Rows(I).EntireRow.Delete
        End If
    Next
End Sub

3. Нажмите F5 ключ для запуска кода. Потом Kutools for Excel появится диалоговое окно, выберите диапазон столбцов, в котором вы хотите проверить, существует ли отсутствующее значение, а затем щелкните значок OK .

После нажатия OK кнопку, вы увидите, что все строки с отсутствующим значением в столбцах B и D удаляются немедленно. Смотрите скриншот:

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


Легко заполнять все пустые ячейки определенным значением в Excel

Заполнить пустые ячейки полезности Kutools for Excel может помочь вам легко обрабатывать пустые ячейки в Excel. Например, вы можете заполнить все пустые ячейки в выбранном диапазоне фиксированным значением, заполнить пустые ячейки на основе значения в верхней, нижней, левой или правой ячейке или вы можете заполнить пустые ячейки линейными значениями. Смотрите скриншот:
Скачайте и попробуйте прямо сейчас! (30-дневный бесплатный пробный период)


Статьи по теме:

Лучшие инструменты для офисной работы

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

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

вкладка kte 201905


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations