Как удалить строки с отсутствующими / пустыми значениями в определенных столбцах в 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?
• Как удалить все строки, кроме первой строки заголовка в Excel?
• Как удалить все строки ниже определенной строки или активной ячейки в Excel?