Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe verwijder ik rijen met negatieve waarden in Excel?

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

doc verwijderen met negatieve 1  2 doc verwijderen met negatieve 2

Wis rijen met negatieve getallen met behulp van VBA-code

Verwijder rijen met negatieve getallen met behulp van Kutools voor Excel


pijl blauwe rechterbel Wis 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, gelieve als volgt te doen:

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

2. Klik op bijvoegsel > moduleen plak de volgende code in de Module venster.

VBA-code: verwijder rijen met negatieve cijfers

Sub Deleter()
'updatebyExtendoffice 20160303
    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 nummerkolom waarvan u de negatieve getallen wilt vinden, zie screenshot:

doc verwijderen met negatieve 3

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


pijl blauwe rechterbel Verwijder rijen met negatieve getallen met behulp van Kutools voor Excel

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

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

Na het installeren van Kutools for Excel, alsjeblieft als volgt doen:

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

2. Dan klikken Kutools > kiezen > Selecteer specifieke cellenzie screenshot:

doc verwijderen met negatieve 4

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 negatieve 5

4. Dan klikken Ok, de rijen met negatieve getallen zijn tegelijk geselecteerd en klik vervolgens op Home > Verwijder > Verwijder velrijen om de geselecteerde rijen te verwijderen zoals je nodig hebt, zie screenshots:

doc verwijderen met negatieve 6  2 doc verwijderen met negatieve 7

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


  • Super Formula Bar (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken op gefilterd bereik...
  • Cellen / rijen / kolommen samenvoegen en gegevens bewaren; Inhoud gesplitste cellen; Combineer dubbele rijen en som / gemiddelde... voorkomen dubbele cellen; Ranges vergelijken...
  • Selecteer Dupliceren of Uniek rijen; Selecteer Lege rijen (alle cellen zijn leeg); Super Find en Fuzzy Find in veel werkboeken; Willekeurig selecteren ...
  • Exacte kopie Meerdere cellen zonder formule-referentie te wijzigen; Automatisch referenties maken naar meerdere vellen; Voeg kogels toe, Selectievakjes en meer ...
  • Favoriete en snel formules invoegen, Bereiken, grafieken en afbeeldingen; Coderen van cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • extract Text, Tekst toevoegen, verwijderen op positie, Verwijder de spatie; Subtotalen voor paging maken en afdrukken; Converteren tussen cellen Inhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerde sortering 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...
  • Werkt met Office 2007-2019 en 365 en ondersteunt alle talen. Het is eenvoudig te implementeren in uw bedrijf. Volledige functionaliteit 60-daagse gratis proefversie.
kte-tab 201905
  • Bewerken en lezen met tabbladen inschakelen in Word, Excel, PowerPoint, 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 verlaagt dagelijks honderden muisklikken voor u!
Officetab onderaan
Say something here...
symbols left.
You are guest ( Sign Up? )
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 months 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 · 9 months 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 · 9 months 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