Hoe rijen te verwijderen als een cel groter/kleiner is dan een bepaalde waarde in Excel?

Soms moet u mogelijk rijen verwijderen als cellen in een gespecificeerde kolom groter of kleiner zijn dan een bepaalde waarde in Excel. Dit artikel zal verschillende methoden aanbevelen om dit probleem op te lossen.

Rijen verwijderen als een cel groter/kleiner is dan een bepaalde waarde met VBA-code
Rijen verwijderen als een cel groter/kleiner is dan een bepaalde waarde met Kutools voor Excel
Rijen verwijderen als een cel groter/kleiner is dan een bepaalde waarde met Kutoos voor Excel

Rijen verwijderen als een cel groter/kleiner is dan een bepaalde waarde met VBA-code

Stel dat u alle rijen wilt verwijderen als een 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 gelijktijdig op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > module. Kopieer en plak vervolgens de onderstaande VBA-code in het Code-venster.

VBA-code: Rijen verwijderen als een 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

Opmerking: In bovenstaande code betekent >30000 dat u rijen zult verwijderen als cellen groter zijn dan 30000 in een gespecificeerde kolom. Als u rijen wilt verwijderen als cellen kleiner zijn dan een bepaalde waarde, verandert u het teken > in < en specificeert u uw waarde.

3. Druk op de F5-toets om de code uit te voeren, in het pop-upvenster van Kutools voor Excel selecteert u het bereik (enkele kolom) waarin u controleert of cellen in deze kolom groter of kleiner zijn dan een bepaalde waarde. Klik vervolgens op de OK-knop. Zie screenshot:

Alle rijen met celwaarden groter dan 30000 in kolom D worden onmiddellijk verwijderd.

Rijen verwijderen als een cel groter/kleiner is dan een bepaalde waarde met Kutools voor Excel

De functie Specifieke Cellen Selecteren van Kutools voor Excel kan u helpen alle rijen te selecteren met cellen die groter of kleiner zijn dan een bepaalde waarde in een gespecificeerde kolom, waarna u alle geselecteerde rijen tegelijk handmatig kunt verwijderen.

1. Selecteer de kolom waarop u rijen wilt verwijderen, klik vervolgens op Kutools > Selecteren > Specifieke Cellen Selecteren. Zie screenshot:

2. Selecteer Volledige rij in het sectie Selecteer type in het dialoogvenster Specifieke Cellen Selecteren. Selecteer Groter dan of Kleiner dan in de sectie Specificeer type uit de eerste keuzelijst, voer de bepaalde waarde in het volgende tekstvak in en klik vervolgens op de OK-knop.

3. Er verschijnt een dialoogvenster dat u vertelt hoeveel rijen er zijn geselecteerd, klik op de OK-knop. U ziet dat alle rijen met een waarde groter dan 30000 in kolom D onmiddellijk zijn geselecteerd.

4. Klik met de rechtermuisknop op een van de geselecteerde rijen, klik vervolgens op Verwijderen in het rechtermuisknopmenu. Alle geselecteerde rijen worden verwijderd.

Rijen verwijderen als een cel groter/kleiner is dan een bepaalde waarde met Kutoos voor Excel

Naast de bovenstaande twee methoden kunt u alle rijen filteren met cellen die groter of kleiner zijn dan een bepaalde waarde in een gespecificeerde kolom, en vervolgens alle gefilterde rijen verwijderen met de functie Verborgen (Zichtbare) Rijen & Kolommen Verwijderen van Kutools voor Excel.

1. Selecteer de kolomkop, klik vervolgens op Gegevens > Filter. Zie screenshot:

2. Klik op de neerwaartse pijl in de kolom waarop u rijen wilt verwijderen, klik vervolgens op Nummerfilters > Groter dan of Kleiner dan zoals in onderstaande screenshot:

3. Voer het bepaalde getal in na de is groter dan of is kleiner dan box in het dialoogvenster Aangepast Autofilter, en klik vervolgens op de OK-knop.

4. Alle rijen met bepaalde cellen die groter of kleiner zijn dan een bepaalde waarde in kolom D worden nu gefilterd. U kunt alle gefilterde rijen verwijderen door de gefilterde gegevens te selecteren en vervolgens te klikken op Kutools > Verwijderen > Verborgen (Zichtbare) Rijen & Kolommen. Zie screenshot:

5. Zorg ervoor dat de optie In Geselecteerd Bereik is geselecteerd in de Zoeken in keuzelijst in het dialoogvenster Verborgen (Zichtbare) Rijen & Kolommen Verwijderen, selecteer Rijen in de sectie Verwijderingstype, specificeer de optie Zichtbare rijen in de sectie Gedetailleerd type, en klik ten slotte op de OK-knop.

6. Alle zichtbare rijen in het geselecteerde bereik worden onmiddellijk verwijderd, u kunt het filter annuleren door te klikken op Gegevens > Filter.

Gerelateerde artikelen:

• Hoe alle rijen onder een bepaalde rij of actieve cel te verwijderen in Excel?
• Hoe alle rijen te verwijderen behalve de eerste koptekstrij in Excel?