Jak usunąć wiersze z brakującymi / pustymi wartościami w niektórych kolumnach w programie Excel?

W niektórych przypadkach może być konieczne usunięcie całych wierszy z brakującą wartością lub pustą komórką w zakresie komórek w programie Excel. W tym artykule dowiesz się, jak rozwiązać ten problem.

Usuń wiersze z brakującymi / pustymi wartościami w niektórych kolumnach z kodem VBA

---

Usuń wiersze z brakującymi / pustymi wartościami w niektórych kolumnach z kodem VBA

Przypuśćmy, że chcesz usunąć wiersze, jeśli brakuje wartości w kolumnach B i D, jak pokazano poniżej. Aby to osiągnąć, możesz uruchomić następujący kod VBA.

1. naciśnij inny + F11 otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Code.

Kod VBA: Usuń wiersze z brakującymi / pustymi wartościami w niektórych kolumnach

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. naciśnij F5 klucz do uruchomienia kodu. Następnie Kutools dla programu Excel pojawi się okno dialogowe, wybierz zakres kolumn, które chcesz sprawdzić, czy brakuje wartości, a następnie kliknij OK przycisk.

Po kliknięciu OK przycisk, możesz zobaczyć, że wszystkie wiersze z brakującą wartością w kolumnie B i D są natychmiast usuwane. Zobacz zrzut ekranu:

Uwagi: Nie możesz wybrać wielu zakresów do jednoczesnego działania. Jeśli brakująca wartość istnieje w wielu kolumnach i chcesz usunąć wszystkie wiersze, możesz powtórzyć powyższy krok 3 z jednej kolumny do drugiej.

---

---

Powiązane artykuły:

• Jak usunąć wiersze, jeśli komórka jest większa / mniejsza niż określona wartość w programie Excel?
• Jak usunąć wszystkie wiersze z wyjątkiem pierwszego wiersza nagłówka w programie Excel?
• Jak usunąć wszystkie wiersze poniżej określonego wiersza lub aktywnej komórki w programie Excel?