Hoe verwijder je rijen op basis van achtergrondkleur in Excel?

Hoe kun je volledige rijen verwijderen op basis van achtergrondkleur? In dit voorbeeld moet ik alle rijen verwijderen waarvan de cellen gevuld zijn met een blauwe achtergrondkleur, zoals in de volgende schermafbeelding te zien is. Met dit artikel krijg je enkele codes om deze taak in Excel uit te voeren.

Rijen verwijderen met een specifieke achtergrondkleur op basis van elke cel

Rijen verwijderen met een specifieke achtergrondkleur op basis van één kolom

Rijen verwijderen met een specifieke achtergrondkleur op basis van elke cel

Als je een bereik aan gegevens hebt die willekeurig met enkele celkleuren zijn gevuld, en je moet de rijen verwijderen waarvan de celkleur blauw is, zoals in de volgende schermafbeelding te zien is:

Om dit soort rijen te verwijderen, kun je de volgende VBA-code gebruiken, doe het als volgt:

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Rijen verwijderen waarvan de cellen een specifieke vulkleur bevatten:

Sub DeleteRows()
'Updateby Extendoffice
    Dim rngCl As Range
    Dim xRows As Long
    Dim xCol As Long
    Dim colorLg As Long
    On Error Resume Next
    Set rngCl = Application.InputBox _
        (Prompt:="Select a cell with the background color to be deleted", _
        Title:="Kutools for Excel", Type:=8)
    On Error GoTo 0
    If rngCl Is Nothing Then
        MsgBox "User cancelled operation." & vbCrLf & _
        "Processing terminated", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    colorLg = rngCl.Interior.Color
    Application.ScreenUpdating = False
    With ActiveSheet.UsedRange
        For xRows = .Rows.Count To 1 Step -1
            For xCol = 1 To .Columns.Count
                           If .Cells(xRows, xCol).Interior.Color = colorLg Then
                    .Rows(xRows).Delete
                    Exit For
                End If
            Next xCol
        Next xRows
    End With
    Application.ScreenUpdating = True
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en er verschijnt een pop-upvenster dat je eraan herinnert een cel te selecteren met de vulkleur die je wilt verwijderen, zie onderstaande schermafbeelding:

4. Klik dan op OK, en alle rijen worden verwijderd als de cel een specifieke vulkleur heeft.

Rijen verwijderen met een specifieke achtergrondkleur op basis van één kolom

Als je de rijen met een specifieke kleur wilt verwijderen op basis van slechts één kolom, bijvoorbeeld de rijen met blauwe kleur in kolom A verwijderen en het onderstaande scherm krijgen, hier is ook een VBA-code die je kan helpen.

1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, en plak de volgende code in het Modulevenster.

VBA-code: Rijen verwijderen op basis van een kolom waarvan de cellen een specifieke vulkleur hebben:

Sub deleterow()
'UpdateBY Extendoffice
   Dim xRg As Range, rgDel As Range
    For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
        If xRg.Interior.ColorIndex = 20 Then
            If rgDel Is Nothing Then
                Set rgDel = xRg
            Else
                Set rgDel = Union(rgDel, xRg)
            End If
        End If
    Next xRg
    If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub

Opmerking: In de bovenstaande code is A2:A21 de kolom die de specifieke vulkleur bevat waarop je de rijen wilt verwijderen, het getal 20 in ColorIndex = 20 script is de kleurindex waarop je de rijen wilt verwijderen. Je kunt ze naar behoefte wijzigen.

3. Druk vervolgens op de F5-toets om deze code uit te voeren, en alle rijen waarvan de cellen de blauwe kleur in kolom A bevatten, worden tegelijk verwijderd.