Note: The other languages of the website are Google-translated. Back to English

Hoe verwijder je rijen op basis van celwaarde in Excel?

Als u in Excel snel meerdere rijen op basis van celwaarde wilt verwijderen of verwijderen, moet u mogelijk eerst die hele rijen selecteren die een specifieke celwaarde bevatten, en ze vervolgens verwijderen. Het lijkt erop dat er geen snelle manier is om rijen te verwijderen op basis van de celwaarde, maar met behulp van VBA-code. Hier zijn enkele snelle trucs om u te helpen.


Verwijder rijen op basis van celwaarde met de functie Zoeken en vervangen

In Excel kunt u de krachtige functie Zoeken en vervangen toepassen om eenvoudig rijen te verwijderen op basis van een bepaalde celwaarde. Ga als volgt te werk:

1. Selecteer het bereik waar u rijen wilt verwijderen op basis van een bepaalde celwaarde en open het dialoogvenster Zoeken en vervangen door op te drukken Ctrl + F toetsen tegelijk.

2. Typ in het dialoogvenster Zoeken en vervangen de bepaalde celwaarde (in ons geval voeren we het Soe) in de Find what in en klik op de Find All knop. Zie de eerste screenshot hieronder:

3. Selecteer alle zoekresultaten onder in het dialoogvenster Zoeken en vervangen en sluit dit dialoogvenster. (Opmerking:: U kunt een van de zoekresultaten selecteren en vervolgens Ctrl + A toetsen om alle gevonden resultaten te selecteren. Zie de tweede schermafbeelding hierboven.)
En dan kunt u zien dat alle cellen met de bepaalde waarde zijn geselecteerd.

4. Ga je gang om met de rechtermuisknop op geselecteerde cellen te klikken en selecteer het Delete vanuit het rechtsklikmenu. En controleer dan het Entire row optie in het pop-up dialoogvenster Verwijderen, en klik op het OK knop. Nu zul je zien dat alle cellen met de bepaalde waarde zijn verwijderd. Zie onderstaande screenshots:

En dan zijn hele rijen verwijderd op basis van de bepaalde waarde al.


Verwijder rijen op basis van celwaarde met VBA-code

Met de volgende VBA-code kunt u snel de rijen met een bepaalde celwaarde verwijderen, doe dit als volgt:

1. druk de Alt + F11 toetsen tegelijkertijd te openen Microsoft Visual Basic for applications venster,

2. Klikken Insert > Module, en voer de volgende code in de module in:

VBA: verwijder volledige rijen op basis van de celwaarde

Sub DeleteRows()
'Updateby20211217
Dim rng As Range
Dim InputRng As Range
Dim DeleteRng As Range
Dim DeleteStr As String
Dim xTitleId As String
Dim xArr
Dim xF As Integer
Dim xWSh As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set rng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, rng.Address, Type:=8)
If InputRng Is Nothing Then Exit Sub
DeleteStr = Application.InputBox("Delete Text", xTitleId, Type:=2)
Set xWSh = InputRng.Worksheet
For Each rng In InputRng
    If rng.Value = DeleteStr Then
        If DeleteRng Is Nothing Then
            Set DeleteRng = rng
        Else
            Set DeleteRng = Application.Union(DeleteRng, rng)
            Set DeleteRng = DeleteRng.EntireRow
        End If
    End If
Next
xArr = Split(DeleteRng.AddressLocal, ",")
DeleteRng.Select
DeleteRng.Delete
For xF = UBound(xArr) To 0 Step -1
    Set DeleteRng = xWSh.Range(xArr(xF))
    DeleteRng.Delete
Next
End Sub

3. Klik vervolgens op de Run knop om de code uit te voeren.

4. Selecteer in het pop-upvenster het bereik waar u rijen wilt verwijderen op basis van de bepaalde waarde en klik op de OK knop.

5. Typ in een ander dialoogvenster de bepaalde waarde waarop u rijen wilt verwijderen, en klik op de OK knop. Zie screenshot:

En dan zie je dat hele rijen al zijn verwijderd op basis van de opgegeven waarde.


Verwijder rijen op basis van een of twee celwaarden met Kutools voor Excel

Als je hebt geïnstalleerd Kutools for Excel, het is Select Specific Cells functie kan u helpen snel de rijen met een specifieke waarde te verwijderen. Ga als volgt te werk:

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie met volledige functionaliteit 30-dag, geen creditcard nodig! Snap het nu

1. Selecteer het bereik waarvoor u rijen wilt verwijderen op basis van de bepaalde waarde en klik op Kutools > Select > Select Specific Cells. Zie screenshot:

2. Controleer in het dialoogvenster Selecteer gespecificeerde cellen openen Entire row optie, selecteer Contains van Specific type vervolgkeuzelijst, voer de opgegeven waarde in het rechtervak ​​in en klik op het Ok knop (zie bovenstaande screenshot).
Nadat u deze functie hebt toegepast, verschijnt er een dialoogvenster waarin u kunt zien hoeveel cellen zijn gevonden op basis van de opgegeven criteria. Klik op het OK om het te sluiten.

3. Nu zijn hele rijen met de bepaalde waarde geselecteerd. Klik met de rechtermuisknop op de geselecteerde rijen en klik op het Delete vanuit het rechtsklikmenu. Zie screenshot hieronder:

Opmerking:: Deze Select Specific Cells functie ondersteunt het verwijderen van rijen met een of twee bepaalde waarden. Voor het verwijderen van rijen op basis van twee opgegeven waarden, specificeert u een andere waarde in het Specific type sectie van het dialoogvenster Specifieke cellen selecteren zoals weergegeven in het volgende screenshot:

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie met volledige functionaliteit 30-dag, geen creditcard nodig! Snap het nu


Verwijder rijen op basis van meerdere celwaarden met Kutools voor Excel

In sommige gevallen moet u mogelijk rijen verwijderen op basis van meerdere celwaarden uit een andere kolom / lijst in Excel. Hier zal ik introduceren Kutools for Excel's Select Same & Different Cells functie om het snel en gemakkelijk op te lossen.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefversie met volledige functionaliteit 30-dag, geen creditcard nodig! Snap het nu

1. Klikken Kutools > Select > Select Same & Different Cells om het dialoogvenster Zelfde en verschillende cellen selecteren te openen.

2. In de opening Select Same & Different Cells dialoogvenster, doe dan als volgt (zie screenshot):

(1) In de Find values in vak, selecteer de kolom waarin u de bepaalde waarden zult vinden;
(2) In de According to vak, selecteer de kolom / lijst met meerdere waarden waarop u rijen wilt verwijderen op basis van;
(3) In de Based on sectie, controleer dan de Each row keuze;
(4) In de Find sectie, controleer dan de Same Values keuze;
(5) Controleer het Select entire rows optie onderaan het openingsdialoogvenster.
Opmerking:: Als twee opgegeven kolommen dezelfde koptekst bevatten, controleer dan de My data has headers optie.

3. Klik op de Ok knop om dit hulpprogramma toe te passen. En dan verschijnt er een dialoogvenster dat laat zien hoeveel rijen er zijn geselecteerd. Klik gewoon op het OK om het te sluiten.

En dan zijn alle rijen met waarden uit de opgegeven lijst geselecteerd.

4. Klikken Home > Delete > Delete Sheet Rows om alle geselecteerde rijen te verwijderen.


Demo: verwijder rijen op basis van een of meerdere celwaarden in Excel


Kutools for Excel bevat meer dan 300 handige tools voor Excel, gratis en onbeperkt uit te proberen in 30 dagen. Download en gratis proef nu!

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!
officetab onderkant
Heb je vragen? Stel ze hier. (39)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Fantastisch! Dat werkte een traktatie, ik heb het een beetje aangepast aan wat ik nodig had, maar puur geniaal. Oh VBA-versie.
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de If (cell.Value) = "Apple" te wijzigen om meerdere waarden op te nemen?
Deze opmerking is gemaakt door de moderator op de site
Bobby, probeer dit, het zou moeten krijgen wat je wilt: If (cell.Value) = "Apple" OR (cell.Value) = "Monday"
Deze opmerking is gemaakt door de moderator op de site
Is er een manier om de waarde een waarde te laten herkennen, of het nu > of = is voor een bepaalde waarde?
Deze opmerking is gemaakt door de moderator op de site
Hé, heel erg bedankt voor het script. Ik vroeg me af of je jokertekens kunt gebruiken, zodat je alles in een cel kunt selecteren dat overeenkomt in plaats van een specifiek item? Ik heb geprobeerd ** jokertekens te gebruiken, maar het lijkt niets te doen. Dit is wat ik heb: Sub Delete_Rows() Dim rng As Range, cel As Range, del As Range Set rng = Intersect(Range("B6:B20"), ActiveSheet.UsedRange) For Each cell In rng If cell.Value Like "*WORDTODELETE*" _ Then If del Is Nothing Then Set del = cel Anders: Set del = Union(del, cell) End If End If Next cel On Error Hervat Next del.EntireRow.Delete End Sub
Deze opmerking is gemaakt door de moderator op de site
Hartelijk dank - het is altijd grappig als de marketingman code probeert te schrijven, en deze informatie was super nuttig. Ik kon de code niet over meerdere kolommen krijgen ("AA2:AA3000" werkt, "AB2:AB3000" werkt, maar "AA2:AB3000" werkt niet. Er is geen wereldschokkende Kaboom - het doet gewoon niets. Ik Ik heb het opgelost (amateuristisch, neem ik aan) door verschillende macro's achter elkaar uit te voeren, maar er is waarschijnlijk een elegantere manier. Nogmaals bedankt voor je hulp, Jim (Melville, NY)
Deze opmerking is gemaakt door de moderator op de site
Ik krijg: runtime-fout '13': Type komt niet overeen. Foutopsporing markeert de sectie If (cell.Value) = "FALSE" _ Then. Ik ben helemaal verdwaald in MVB, alle hulp wordt op prijs gesteld.
Deze opmerking is gemaakt door de moderator op de site
Laten we zeggen dat ik de onderstaande code heb ingevoerd om al mijn rijen die appel bevatten te verwijderen, maar dan wil ik dat het doorgaat zodra dat is gebeurd en alle rijen met banaan verwijder? Ik heb geprobeerd de code gewoon te dupliceren, maar het lijkt te stoppen na Apple. bedankt. Sub Delete_Rows() Dim rng As Range, cel As Range, del As Range Set rng = Intersect(Range("A1:C20"), ActiveSheet.UsedRange) For Each cell In rng If (cell.Value) = "Apple" _ Dan Als del Niets is, Stel dan del = cel in Anders: Stel del = Unie (del, cel) in End If End If Volgende cel Bij fout Hervat volgende del.EntireRow.Delete End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik wilde je alleen bedanken. Dit werkte als een tierelier.
Deze opmerking is gemaakt door de moderator op de site
Absoluut geweldig! Waardeer voor het delen!!!
Deze opmerking is gemaakt door de moderator op de site
Bedankt, dit is geweldig! Snelle opmerking, ik heb de zoek- en vervangfunctie in Excel 2010 geprobeerd. Om alle gevonden resultaten te selecteren, moest ik Ctrl + A gebruiken in plaats van Alt + A.
Deze opmerking is gemaakt door de moderator op de site
Hallo, wat is de gemakkelijkste manier om rijen te verwijderen die GEEN "Apple" bevatten? Bedankt
Deze opmerking is gemaakt door de moderator op de site
Hallo, Is er een manier om het te schrijven om een ​​rij te verwijderen, met een OR-uitzondering? Dwz- verwijder rijen die duplicaten zijn, maar negeer een bepaalde waarde. Ik wil duplicaten verwijderen, behalve als de kolom in kwestie een lege kolom bevat, omdat die kolom nog geen geldige gegevens bevat. Ik rende zoals je hebt gedaan, maar ik heb rijen met een spatie verwijderd in de betreffende kolom, dus ik kan het niet gebruiken zoals het is. Bedankt
Deze opmerking is gemaakt door de moderator op de site
Bedankt voor het VB-script. Ik kan niet wachten om dit te proberen. Vraag:Is er een manier om de kolommen te markeren voor verwijdering voordat ze worden verwijderd en/of kopiëren naar een apart tabblad in de werkmap? Is er bovendien een manier om dit script op meerdere werkmappen/bestanden tegelijk uit te voeren?
Deze opmerking is gemaakt door de moderator op de site
bedankt.. het helpt me veel...
Deze opmerking is gemaakt door de moderator op de site
Ik wil graag alle rijen verwijderen waarbij column1 = "Apple" AND column3 = "green". Alsjeblieft?
Deze opmerking is gemaakt door de moderator op de site
Ik weet niet zeker hoe ik dit moet doen met behulp van macro's of zo, maar een optie die zijn werk prima zou doen, is door een extra kolom toe te voegen die test of de ene kolom "appel" is en de andere "groen" en laat het geeft een eenvoudige "ja" of "nee" waarde. gebruik dan een van de bovenstaande opties om naar de waarde "ja" te zoeken en rijen op basis daarvan te verwijderen in plaats van 2 afzonderlijke waarden.
Deze opmerking is gemaakt door de moderator op de site
ik heb een lijst met winkels in één document. Ik heb een rapport dat duizenden regels retourneert. het winkelnummer staat altijd in kolom A. Is er een code/macro die het rapport doorzoekt en alle kolommen met winkelnummers uit de winkellijst verwijdert. denken dat een vlookup en "Do While" nodig zijn.
Deze opmerking is gemaakt door de moderator op de site
Hallo en heel erg bedankt voor de VBA-code. Ik heb een vraag. Is het mogelijk om de code zo te maken dat het mogelijk is om meerdere celwaarden te kiezen om tegelijkertijd te verwijderen? Bijvoorbeeld Apple en Emily tegelijk kiezen en verwijderen? Ik waardeer je werk en kijk uit naar je reactie. Joan K
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik het bereik A3:D3000 specificeren (dwz ik wil niet dat de gebruiker het bereik selecteert)? Hoe kan ik van de Delete String een celverwijzing maken, bijv. G1?
Deze opmerking is gemaakt door de moderator op de site
is het mogelijk om twee kolommen te vergelijken en vervolgens te verwijderen? is binnen bereik A3:D3000 als cel A=x en cel B=y dan rij verwijderen?
Deze opmerking is gemaakt door de moderator op de site
Wat een geweldige. heel erg bedankt allemaal. :)
Er zijn nog geen reacties geplaatst
Laad meer
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL