Hoe verwijder je rijen met ontbrekende/lege waarden in bepaalde kolommen in Excel?

In Excel kan het omgaan met ontbrekende of lege waarden essentieel zijn voor het opschonen en analyseren van gegevens. Deze handleiding laat zien hoe je volledige rijen kunt verwijderen als er lege cellen worden gevonden in specifieke kolommen met behulp van een VBA-script.

Verwijder rijen met ontbrekende/lege waarden in bepaalde kolommen met VBA-code

Verwijder rijen met ontbrekende/lege waarden in bepaalde kolommen met VBA-code

Stel dat je rijen wilt verwijderen als er een ontbrekende waarde bestaat in kolom B of D, zoals te zien is in de onderstaande schermafbeelding. Je kunt de volgende VBA-code uitvoeren om dit te bereiken.

1. Druk op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster.

VBA-code: Verwijder rijen met ontbrekende/lege waarden in bepaalde kolommen

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. Druk op de F5-toets om de code uit te voeren. Er verschijnt een Kutools voor Excel dialoogvenster, selecteer het kolombereik waarin je wilt controleren of er ontbrekende waarden zijn en klik vervolgens op de OK-knop.

Nadat je op de OK-knop hebt geklikt, worden alle rijen met ontbrekende waarden in kolom B of D onmiddellijk verwijderd. Zie onderstaande schermafbeelding:

Opmerking: Je kunt niet meerdere bereiken tegelijk selecteren om te bewerken. Als er ontbrekende waarden bestaan in meerdere kolommen en je wilt alle rijen verwijderen, herhaal dan stap 3 voor elke kolom afzonderlijk.

Gerelateerde artikelen:

• Hoe verwijder je rijen als een cel groter/kleiner is dan een bepaalde waarde in Excel?
• Hoe verwijder je alle rijen behalve de eerste koptekstrij in Excel?
• Hoe verwijder je alle rijen onder een bepaalde rij of actieve cel in Excel?