Ga naar hoofdinhoud

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 for 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! Snap het nu


Verwijder rijen op basis van meerdere celwaarden met Kutools for 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 - Geef Excel een boost met meer dan 300 essentiële tools. Geniet van een GRATIS proefperiode van 30 dagen zonder creditcard! 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: Ruim 300 handige tools binnen handbereik! Start vandaag nog uw gratis proefperiode van 30 dagen zonder functiebeperkingen. Nu downloaden!

Beste Office-productiviteitstools

Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup    VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk    Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen    Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

Geef uw Excel-vaardigheden een boost met Kutools for Excelen ervaar efficiëntie als nooit tevoren. Kutools for Excel Biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen.  Klik hier om de functie te krijgen die u het meest nodig heeft...

kte tabblad 201905


Office Tab 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!
Comments (39)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In given range, if any cell contains defined text the entire row gets deleted.

Pls share code
This comment was minimized by the moderator on the site
Hi Yogesh,
On this webpage, the second method is to delete rows by cell values with VBA code. You can go to there and copy the code directly!
https://www.extendoffice.com/documents/excel/815-excel-remove-rows-based-on-cell-value.html#vba
This comment was minimized by the moderator on the site
There are two issues with the code posted as of this date. 1) the variable xTitleId is not declared, which causes a compilation error if Option Explicit is in use. 2) With Excel 2016, it appears that a range is limited to 129 areas. Each discontiguous matching cell found in the loop creates another area in the DeleteRng variable. Unfortunately, the Union method does not raise an error if that number of areas is exceeded; it just ignores the remaining cells. When the loop is finished, DeleteRng will have no more than 129 areas.
This comment was minimized by the moderator on the site
Hi TomTheToolman,
Thank you so much for your feedback. I've already updated the new code in the article. If you have any other questions, please don't hesitate to let me know.
Amanda
This comment was minimized by the moderator on the site
very well. Thank you!
This comment was minimized by the moderator on the site
Can someone help me...If 3rd column has value 0, then delete all values of corresponding column 1st. In this case answer should be the last line only.... Check MenuName ID 3149 VNLA MILFLLE 2 3149 TURKEY PNN 0 3149 R. BEEF PNN 0 3149 MIX MOCHA 38 3150 M.G.R 1/2 0 3150 THE PEPPE L 0 3150 MIX SLD 0 3150 EGGPLANT 0 3150 STILL WATER 7 3151 MIX MOCHA 38
This comment was minimized by the moderator on the site
Thanks for sharing. I am actually looking for a code that doesn't ask user for range but instead selects a specific column say column "A" and runs till the last row of that column. Can you please help..
This comment was minimized by the moderator on the site
Hi everybody, I am wondering what can we do to delete the following (According to the example shown in this page): Soe appears at several date (sept, October... etc). What I would like is to delete the line where Soe is but to keep the line with last date she appeared. In addition, some lines could be in double but I still want to keep it. So for example, you have the lines: - July 3 /Soe - Sep 4 / Soe - Sep 4 / Soe - Oct 19/ Soe - Nov 13 / Soe - Nov 13 / Soe and what I want to keep is: - Nov 13 / Soe - Nov 13 / Soe My real case is: I have different EAN code and version 1, 2, 3 or 4 and I want to keep the line where the version is the higher. e.g.: I have: - EAN 1 / Version 1 - EAN 1 / Version 1 - EAN 1 / Version 2 - EAN 1 / Version 2 - EAN 2 / Version 2 - EAN 2 / Version 3 - EAN 2 / Version 3 and I want to keep: - EAN 1 / Version 2 - EAN 1 / Version 2 - EAN 2 / Version 3 - EAN 2 / Version 3 I am searching since hours and I am completely blocked on this issue. Many thanks in advance for your brain and help. Best, Marion
This comment was minimized by the moderator on the site
Hi, Thank you this was really helpful. However, there's an error that pops up when I run the codes it says "Object variable or with block variable not set" and it points to " the line DeleteRNG.EntireRow.Delete". Could you please help me with debugging this. Thanks.
This comment was minimized by the moderator on the site
I am trying to use this macro in order to delete unused formulas, because excel views blank formula cells as a zero value and will print extra pages. I was hoping when I deleted the unused formulas, when I printed it would only print the pages that had information. This is not the case and I really need help to find a solution. I have tried using this formula and it is not working and prints three extra pages that I do not need even with the extra formulas being deleted. Sub selectonly() ' ' selectonly Macro ' Range("A1").Select Range(Selection, Selection.End(xlToRight)).Select Range(Selection, Selection.End(xlDown)).Select ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)" End Sub
This comment was minimized by the moderator on the site
thank you so much. That save me a lot of time
This comment was minimized by the moderator on the site
Trying to find a delete Function that will delete entire designated rows automatically, based on certain values or certain text contained in other cell(s), using only automated formulas.
This comment was minimized by the moderator on the site
How can i delete selected cell that i want based on value that i entered for example : A1 B1 C1 D1 A2 B2 C2 D2 A3 B3 C3 D3 A4 B4 C4 D4 When i entered in some cell for example "2" then 2 row will be deleted from A3:D4. If i entered "1" then 1 row will be deleted from A4:D4. if i entered "3" then 3 row will be deleted from A2:D4
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations