Hoe verwijder je rijen op basis van de achtergrondkleur in Excel?
Hoe kunt u Gehele rij verwijderen op basis van Achtergrondkleur? In dit voorbeeld moet ik alle rijen verwijderen waarvan de cellen zijn gevuld met een blauwe Achtergrondkleur, zoals in de volgende schermafbeelding is weergegeven. Met dit artikel krijgt u enkele codes om deze taak uit te voeren in Excel.
Rijen verwijderen met specifieke Achtergrondkleur op basis van elke cel
Rijen verwijderen met specifieke Achtergrondkleur op basis van één kolom
Rijen verwijderen met specifieke Achtergrondkleur op basis van elke cel
Als u een gegevensbereik hebt dat willekeurig is gevuld met verschillende celkleuren en u de rijen wilt verwijderen waarvan de celkleur blauw is, zoals in de volgende schermafbeelding wordt weergegeven:
Om dit type rijen te verwijderen, gebruikt u de volgende VBA-code. Volg deze eenvoudige stappen:
1. Druk op ALT + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Module-venster.
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 toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u wordt gevraagd een cel te selecteren met de vullkleur die u wilt verwijderen; zie de schermafbeelding:
4. Klik daarna op OK, waarna alle rijen worden verwijderd waarvan de cel een specifieke vullkleur heeft.
Rijen verwijderen met specifieke Achtergrondkleur op basis van één kolom
Als u rijen wilt verwijderen die een specifieke kleur hebben in slechts één kolom – bijvoorbeeld rijen met een blauwe achtergrond in kolom A, zoals in de onderstaande schermafbeelding – dan helpt de volgende VBA-code u daarbij.
1. Houd de toetsen ALT + F11ingedrukt om het venster Microsoft Visual Basic for Applicationste openen.
2. Klik op Invoegen>Module, en plak de volgende code in het Module-venster.
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 vullkleur bevat op basis waarvan u rijen wilt verwijderen. Het getal 20 in ColorIndex = 20 is de kleurcode waarop u rijen wilt verwijderen. U kunt deze waarden aanpassen aan uw behoeften.
3. Druk vervolgens op de toets F5 om deze code uit te voeren. Alle rijen waarvan de cellen in kolom A de kleur blauw bevatten, worden dan in één keer verwijderd.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins