Hoe verwijder je rijen met negatieve waarden in Excel?
Stel dat u het volgende gegevensbereik hebt en u de gehele rij wilt verwijderen wanneer het getal in kolom B negatief is. Zijn er efficiënte methoden om dit probleem in Excel op te lossen?
 |  |  | Rijen verwijderen met negatieve getallen door VBA-code te gebruiken Rijen verwijderen met negatieve getallen door gebruik te maken van Kutools voor Excel |
Rijen verwijderen met negatieve getallen door VBA-code te gebruiken
De volgende VBA-code helpt u de gehele rij te verwijderen als er negatieve getallen voorkomen in een opgegeven kolom. Volg deze stappen:
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende code in het Modulevenster.
VBA-code: Rijen verwijderen 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. Druk vervolgens op de toets F5 om deze code uit te voeren. In het dialoogvenster geeft u de nummerkolom op waarin u negatieve getallen wilt zoeken; zie screenshot:
4. Klik daarna op de knop OK: de rijen met negatieve getallen worden direct verwijderd.
Rijen verwijderen met negatieve getallen door gebruik te maken van Kutools voor Excel
Om deze taak uit te voeren, kan de functie Kutools voor Excel’s Specifieke cellen selecteren u ook van dienst zijn. Met dit hulpprogramma kunt u eerst de gehele rij selecteren die negatieve waarden bevat en vervolgens de volledige rijen verwijderen, zoals gewenst.
| Kutools voor Excel:met meer dan 300 handige Excel-add-ins, gratis uitproberen zonder beperking gedurende 30 dagen. |
Na installatie van Kutools voor Excel, volgt u deze stappen:
1. Selecteer de kolom met negatieve getallen die u wilt verwijderen.
2. Klik vervolgens op Kutools > Selecteren > Specifieke cellen selecteren; zie screenshot:
3. In het dialoogvenster Specifieke cellen selecteren selecteert u de optie Gehele rij onder Selecteer type, kiest u vervolgens Minder dan in het veld Specificeer type en voert u 0 in het tekstvak naast de criteria in; zie screenshot:
4. Klik daarna op Ok: de rijen met negatieve getallen worden direct geselecteerd. Klik vervolgens op Start > Verwijderen > Werkbladrijen verwijderen om de geselecteerde rijen te verwijderen, zoals gewenst; zie screenshots:
 | |  |
Tips： U kunt de geselecteerde rijen ook verwijderen door met de rechtermuisknop te klikken en Verwijderen te kiezen in het contextmenu.
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins