Hoe verwijder je rijen met negatieve waarden in Excel?

Stel dat je het volgende gegevensbereik hebt, en je wilt de volledige rijen verwijderen als het getal in kolom B negatief is. Zijn er goede methoden om dit probleem op te lossen in Excel?

Rijen met negatieve getallen verwijderen door VBA-code te gebruiken Rijen met negatieve getallen verwijderen door Kutools voor Excel te gebruiken

Rijen met negatieve getallen verwijderen door VBA-code te gebruiken

De volgende VBA-code kan je helpen om de volledige rijen te verwijderen als er negatieve getallen voorkomen in een specifieke kolom. Volg deze stappen:

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: Rijen met negatieve getallen verwijderen

Sub Deleter()
'updatebyExtendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    For I = xRg.Rows.Count To 1 Step -1
        If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
    Next
End Sub

3. Druk vervolgens op de F5-toets om deze code uit te voeren. Selecteer in het pop-upvenster de nummerkolom waarin je de negatieve getallen wilt zoeken, zie screenshot:

4. Klik daarna op de knop OK, de rijen met negatieve getallen worden onmiddellijk verwijderd.

Rijen met negatieve getallen verwijderen door Kutools voor Excel te gebruiken

Om deze taak uit te voeren, kan de functie Specifieke cellen selecteren van Kutools voor Excel je ook helpen. Met dit hulpprogramma kun je eerst de volledige rijen selecteren die negatieve waarden bevatten, en vervolgens de hele rijen verwijderen zoals nodig.

Na installatie van Kutools voor Excel, doe dan het volgende:

1. Selecteer de kolom die de negatieve getallen bevat die je wilt verwijderen.

2. Klik vervolgens op Kutools > Selecteren > Specifieke cellen selecteren, zie screenshot:

3. Selecteer in het dialoogvenster Specifieke cellen selecteren de optie Volledige rij in het Type selectie, en kies vervolgens Kleiner dan in het Specifiek type en voer 0 in het tekstvak naast de criteria in, zie screenshot:

4. Klik vervolgens op OK, de rijen die negatieve getallen bevatten zijn meteen geselecteerd, en klik vervolgens op Start > Verwijderen > Rijen werkblad verwijderen om de geselecteerde rijen te verwijderen zoals nodig, zie screenshots:

Tips： Je kunt ook met de rechtermuisknop klikken en Verwijderen selecteren in het contextmenu om de geselecteerde rijen te verwijderen.