Note: The other languages of the website are Google-translated. Back to English
Inloggen  \/ 
x
or
x
Registreer  \/ 
x

or

Hoe verwijder ik rijen met negatieve waarden in Excel?

Stel dat u het volgende gegevensbereik heeft en u de volledige rijen wilt verwijderen als het getal negatief is in kolom B, zijn er dan goede methoden om dit probleem in Excel op te lossen?

doc verwijderen met min 1 2 doc verwijderen met min 2

Verwijder rijen met negatieve getallen met behulp van VBA-code

Verwijder rijen met negatieve getallen met Kutools voor Excel


pijl blauw rechts bel Verwijder rijen met negatieve getallen met behulp van VBA-code

De volgende VBA-code kan u helpen om de volledige rijen te verwijderen als er negatieve getallen in een specifieke kolom staan, doe dit als volgt:

1. Houd de ALT + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. Klik Invoegen > Moduleen plak de volgende code in het Module Venster.

VBA-code: verwijder rijen met negatieve getallen

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. En druk vervolgens op F5 toets om deze code uit te voeren, selecteer in het promptvenster de cijferkolom waarvan u de negatieve getallen wilt vinden, zie screenshot:

doc verwijderen met min 3

4. Dan klikken OK knop, zijn de rijen met negatieve getallen in één keer verwijderd.


pijl blauw rechts bel Verwijder rijen met negatieve getallen met Kutools voor Excel

Om deze klus te klaren, Kutools for Excel's Selecteer specifieke cellen functie kan je ook een plezier doen, met dit hulpprogramma kun je eerst de hele rijen met de negatieve waarden selecteren en vervolgens de hele rijen verwijderen als je nodig hebt.

Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. 

Na het installeren van Kutools for Excelgaat u als volgt te werk:

1. Selecteer de kolom met negatieve getallen die u wilt verwijderen.

2. Dan klikken Kutools > kies > Selecteer specifieke cellen, zie screenshot:

3. In de Selecteer specifieke cellen dialoogvenster, selecteer Hele rij optie in het Selectie typeen kies vervolgens Minder dan van de Specifiek type en ga naar binnen 0 in het tekstvak naast de criteria, zie screenshot:

doc verwijderen met min 5

4. Dan klikken Ok, zijn de rijen met negatieve getallen in één keer geselecteerd en klikt u op Voorpagina > Delete > Verwijder bladrijen Zie screenshots om de geselecteerde rijen naar behoefte te verwijderen:

doc verwijderen met min 6 2 doc verwijderen met min 7

Tips: U kunt ook met de rechtermuisknop klikken om te selecteren Delete vanuit het contextmenu om de geselecteerde rijen te verwijderen.


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-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 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 elke dag honderden muisklikken voor u!
officetab onderkant
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    prakash · 2 years ago
    thanks for the delete function .. works great .. must be numeric field not just - regards
  • To post as a guest, your comment is unpublished.
    Jon White · 3 years ago
    Thanks for this!

    Is there a way of doing this with positive values too?
    • To post as a guest, your comment is unpublished.
      skyyang · 3 years ago
      Hi, Jon,
      To remove rows with positive values, you just need to apply the following code, please try.
      Sub Deleter()
      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