Ga naar hoofdinhoud

Hoe verwijder ik rijen als de cel groter / kleiner is dan een bepaalde waarde in Excel?

Soms moet u rijen verwijderen als cellen in een opgegeven kolom groter of kleiner zijn dan een bepaalde waarde in Excel. In dit artikel worden verschillende methoden aanbevolen om dit probleem op te lossen.

Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met VBA-code
Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met Kutools voor Excel
Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met Kutoos voor Excel


Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met VBA-code

Stel dat u hele rijen wilt verwijderen als de cel in kolom D groter of kleiner is dan een bepaalde waarde in Excel. U kunt de volgende VBA-code uitvoeren om dit te bereiken.

1. druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > module. Kopieer en plak vervolgens de onderstaande VBA-code in het codevenster.

VBA-code: verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde in Excel

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Note: In de bovenstaande code betekent> 30000 dat u rijen verwijdert als cellen groter zijn dan 30000 in een opgegeven kolom. Als u rijen wilt verwijderen als cellen kleiner zijn dan een bepaalde waarde, wijzigt u het teken> in <en specificeert u vervolgens uw waarde.

3. druk op F5 sleutel om de code uit te voeren, in de pop-up Kutools for Excel dialoogvenster, selecteert u het bereik (enkele kolom) dat u zult vinden als cellen in deze kolom groter of kleiner zijn dan een bepaalde waarde. En klik vervolgens op het OK knop. Zie screenshot:

Vervolgens worden alle rijen met een celwaarde groter dan 30000 in kolom D onmiddellijk verwijderd.


Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met Kutools voor Excel

De Selecteer specifieke cellen nut van Kutools for Excel kan u helpen bij het selecteren van alle rijen met cellen groter of kleiner dan een bepaalde waarde in een opgegeven kolom, en vervolgens kunt u alle geselecteerde rijen in 茅茅n keer handmatig verwijderen.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Selecteer de kolom waarop u rijen wilt verwijderen en klik op Kutools > kies > Selecteer specifieke cellen. Zie screenshot:

2. In de Selecteer specifieke cellen dialoogvenster, selecteer alstublieft Hele rij in de Selectie type sectie. In de Specifiek type sectie, selecteer Groter dan or Minder dan voer in de eerste vervolgkeuzelijst de bepaalde waarde in het volgende tekstvak in en klik op het OK knop.

3. Vervolgens verschijnt er een dialoogvenster waarin u kunt zien hoeveel rijen er zijn geselecteerd. Klik op OK knop. En u kunt zien dat alle rijen met een waarde groter dan 30000 in kolom D onmiddellijk worden geselecteerd.

4. Klik met de rechtermuisknop op een van de geselecteerde rijen en klik vervolgens Verwijder vanuit het rechtsklikmenu. En alle geselecteerde rijen worden verwijderd.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met Kutoos voor Excel

Naast de bovenstaande twee methoden kunt u alle rijen filteren met cellen groter of kleiner dan een bepaalde waarde in een opgegeven kolom, en vervolgens alle gefilterde rijen verwijderen met de Verwijder verborgen (zichtbare) rijen en kolommen nut van Kutools for Excel.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

1. Selecteer de kolomkop en klik op Data > FILTER. Zie screenshot:

2. Klik op de vervolgkeuzepijl in de kolom waarop u rijen wilt verwijderen, en klik vervolgens op Nummerfilters > Groter dan or Minder dan zoals onder screenshot:

3. In de Aangepast AutoFilter dialoogvenster, voer het bepaalde getal in nadat het is groter dan of is kleiner dan en klik vervolgens op het OK knop.

4. Vervolgens worden alle rijen met bepaalde cellen die groter of kleiner zijn dan een bepaalde waarde in kolom D, allemaal uitgefilterd. U kunt alle gefilterde rijen verwijderen door de gefilterde gegevens te selecteren en vervolgens op te klikken Kutools > Verwijder > Verwijder verborgen (zichtbare) rijen en kolommen. Zie screenshot:

5. In de Verwijder verborgen (zichtbare) rijen en kolommen dialoogvenster, zorg ervoor dat het In geselecteerd bereik optie is geselecteerd in het Kijk in vervolgkeuzelijst, selecteer Rijen in de Verwijder type sectie, specificeer de optie Zichtbare rijen in het Gedetailleerd type sectie, en klik ten slotte op het OK knop.

6. Vervolgens worden alle zichtbare rijen in het geselecteerde bereik onmiddellijk verwijderd, u kunt het filter annuleren door op te klikken Data > FILTER.

  Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.


Verwijder rijen als de cel groter / kleiner is dan een bepaalde waarde met Kutools voor Excel


Gerelateerde artikelen:

Beste Office-productiviteitstools

馃 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
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 voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor 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...

Omschrijving


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!
Comments (2)
Rated 5 out of 5 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from 陌stanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations