Hoe wis je celinhoud op basis van een voorwaarde in Excel?
Soms moet u mogelijk Celinhoud wissen op basis van voorwaarden in Excel, zoals de celinhoud wissen als de cel een specifieke waarde bevat, de celinhoud wissen als er lege cellen zijn in een andere kolom, of Celinhoud wissen met specifieke Achtergrondkleur, enz. In dit artikel worden enkele handige trucs beschreven om deze taken snel en eenvoudig uit te voeren.
Celinhoud wissen Op basis van celwaarde met VBA-code
Wis Gehele rij als de waarde groter of kleiner is dan een specifieke waarde met VBA-code
Wis cel- of rijinhoud op basis van celwaarde met een handige functie
Wis Gehele rij als een andere cel leeg is met VBA-code
Celinhoud wissen op basis van Achtergrondkleur met VBA-code
Celinhoud wissen Op basis van celwaarde met VBA-code
Stel dat u het volgende gegevensbereik heeft en de celinhoud „Hoodie” wilt wissen. De onderstaande VBA-code helpt u daarbij.
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: Celinhoud wissen als cel gelijk is aan een specifieke waarde
Sub ClearContents()
'Updateby ExtendOffice
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("A2:A12")
xText = "Hoodie" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
xCell.clearContents
End If
Next xCell
End Sub
3. Druk vervolgens op F5 om deze code uit te voeren. Alle cellen met de tekst „Hoodie” worden tegelijkertijd gewist. Zie screenshot:
Ontgrendel de magie van Excel met KUTOOLS AI
- Slimme uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak grafieken — allemaal met eenvoudige opdrachten.
- aangepaste formules: Genereer op maat gemaakte formules om uw workflows te stroomlijnen.
- VBA-programmeren: Schrijf en implementeer VBA-code moeiteloos.
- Formule-uitleg: Begrijp complexe formules moeiteloos.
- Tekstvertaling: Doorbreek taalbarrières in uw spreadsheets.
Wis Gehele rij als de waarde groter of kleiner is dan een specifieke waarde met VBA-code
Stel dat u het onderstaande gegevensbereik heeft en u de inhoud van de gehele rij wilt wissen wanneer de waarde in kolom D groter of kleiner is dan 300. Hieronder vindt u een VBA-code om dit uit te voeren.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen>Module, en plak de volgende code in het modulevenster.
VBA-code: Wis Gehele rij als de celwaarde groter of kleiner is dan een specifieke waarde
Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
Set xRowRg = xRg.Rows.Item(xF)
xBol = False
For Each xCell In xRowRg.Cells
If Application.IsNumber(xCell.Value) Then
If xCell.Value > xStrValue Then
xBol = True
Exit For
End If
End If
Next
If xBol Then
xRowRg.EntireRow.clearContents
End If
Next
End Sub
3. Druk vervolgens op F5 om deze code uit te voeren. Alle rijinhoud wordt gewist als de waarde in kolom D groter is dan 300. Zie screenshot:
Wis cel- of rijinhoud op basis van celwaarde met een handige functie
Als u Kutools voor Excel hebt, kunt u met de Specifieke cellen selecteren-functie eenvoudig cellen of rijen selecteren op basis van een specifieke waarde en de celinhoud in één keer verwijderen.
Na installatie van Kutools voor Excel, gaat u als volgt te werk:
1. Selecteer het gegevensbereik met de waarden waarvan u de cel- of rijinhoud wilt wissen en klik vervolgens op Kutools > Selecteren > Specifieke cellen selecteren. Zie screenshot:
2. Voer in het geopende Specifieke cellen selecteren-dialoogvenster de volgende handelingen uit:
- Klik op Celof Gehele rijdie u wilt selecteren;
- Geef de criteria op in het gedeelte Specificeer type, zoals u dat nodig heeft. Hier wil ik de rijen selecteren waarvan de waarde in kolom D groter is dan 300.
3. Klik vervolgens op OK en alle rijen met een waarde groter dan 300 worden geselecteerd. Druk nu gewoon op de Delete-toets van uw toetsenbord om de celinhoud te verwijderen. Zie screenshot:
Wis rijen Gegevens binnen selectie als deze een lege cel bevatten met VBA-code
In dit geval wilt u de rijgegevens wissen wanneer de cel in het gegevensbereik leeg is, zoals in de onderstaande screenshot wordt weergegeven.
Om deze taak uit te voeren, past u de volgende VBA-code toe:
1. Houd de toetsen ALT + F11 ingedrukt om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik op Invoegen > Module en plak daarna de volgende code in het Module-venster.
VBA-code: Wis rijgegevens als deze een lege cel bevatten
Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
3. Druk vervolgens op F5 om deze code uit te voeren. De rijgegevens met lege cellen worden in het opgegeven bereik tegelijkertijd gewist.
Celinhoud wissen op basis van Achtergrondkleur met VBA-code
Om cellen met een specifieke achtergrondkleur te wissen, gebruikt u de volgende VBA-code.
1. Houd de ALT + F11toetsen ingedrukt om het Microsoft Visual Basic for Applicationsvenster te openen.
2Klik op Invoegen>Module, en plak vervolgens de volgende code in het Modulevenster.
VBA-code: Celinhoud wissen op basis van Achtergrondkleur
Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Interior.Color = RGB(252, 228, 214) Then
xcell.Clearcontents
End If
Next
End Sub
3. Druk vervolgens op F5 om deze code uit te voeren. De celinhoud met de opgegeven achtergrondkleur wordt onmiddellijk gewist. Zie screenshot:
De beste kantoorproductiviteitstools
Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80 %
- Super Formulebalk (bewerk eenvoudig meerdere regels tekst en formules); Leeslay-out (lees en bewerk gemakkelijk grote aantallen cellen); Plakken naar Filterbereik...
- Samengevoegde cellen/rijen/kolommen en bijbehorende gegevens behouden; inhoud van cellen splitsen; Dubbele rijen combineren en som/gemiddelde berekenen... Voorkom dubbele invoer in cellen; Bereiken vergelijken...
- Selecteer dubbele of unieke rijen; selecteer lege rijen (alle cellen zijn leeg); superzoeken en fuzzy zoeken in meerdere werkmappen; willekeurig selecteren...
- Exacte kopie van meerdere cellen zonder dat u de formuleverwijzing hoeft te wijzigen; automatisch verwijzingen maken naar meerdere werkbladen; opsommingstekens invoegen, selectievakjes en meer...
- Favoriete formules, berekeningen, grafieken en afbeeldingen snel invoegen;Cellen met wachtwoord versleutelen;Mailinglijst maken en e-mails verzenden...
- Tekst extraheren, tekst toevoegen, tekens verwijderen op een bepaalde positie, spaties verwijderen; gegevensbladstatistieken maken en afdrukken; converteren tussen celinhoud en opmerkingen...
- Superfilter (sla filterinstellingen op en pas ze toe op andere werkbladen); Geavanceerd sorteren per maand, week, dag, frequentie en meer; Speciaal filter op vet, cursief...
- Combineer werkmappen en werkbladen; voeg tabellen samen op basis van een sleutelkolom; splits gegevens op in meerdere werkbladen; batchconverteer xls-, xlsx- en PDF-bestanden...
- Groepeer draaitabel op weeknummer, dag van de week en meer...Toon niet-vergrendelde en vergrendelde selecties met verschillende kleuren;Markeer cellen met formules of namen...
- 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!
