Jak odstranit řádky se zápornými hodnotami v aplikaci Excel?

Předpokládejme, že máte následující rozsah dat a chcete odstranit celé řádky, pokud je číslo ve sloupci B záporné, existují nějaké dobré metody k vyřešení tohoto problému v aplikaci Excel?

Odstraňte řádky se zápornými čísly pomocí kódu VBA Odstraňte řádky se zápornými čísly pomocí programu Kutools pro Excel

Odstraňte řádky se zápornými čísly pomocí kódu VBA

Následující kód VBA vám může pomoci odstranit celé řádky, pokud jsou v určitém sloupci záporná čísla, postupujte takto:

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. klikněte Vložit > Modula vložte následující kód do Okno modulu.

Kód VBA: Smažte řádky se zápornými čísly

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. A pak stiskněte F5 klíč k provedení tohoto kódu, v poli s výzvou vyberte sloupec s číslem, ze kterého chcete najít záporná čísla, viz screenshot:

4. Pak klikněte na tlačítko OK tlačítko, řádky se zápornými čísly byly smazány najednou.

Odstraňte řádky se zápornými čísly pomocí programu Kutools pro Excel

Za zvládnutí této práce Kutools pro ExcelJe Vyberte konkrétní buňky Funkce vám také udělá laskavost, pomocí tohoto nástroje můžete nejprve vybrat celé řádky obsahující záporné hodnoty a poté podle potřeby odstranit celé řádky.

Po instalaci Kutools pro Excel, postupujte následovně:

1. Vyberte sloupec obsahující záporná čísla, která chcete odstranit.

2. Pak klikněte na tlačítko Kutools > vybrat > Vyberte konkrétní buňky, viz screenshot:

3. V Vyberte konkrétní buňky dialogové okno vyberte Celá řada možnost v Typ výběru, a pak vyberte Méně než z Specifický typ a zadejte 0 do textového pole vedle kritérií, viz screenshot:

4. Pak klikněte na tlačítko Ok, byly vybrány řádky obsahující záporná čísla najednou a poté klikněte Domů > Vymazat > Odstranit řádky listů chcete-li odstranit vybrané řádky, jak potřebujete, podívejte se na screenshoty:

Tipy： Můžete také kliknout pravým tlačítkem a vybrat Vymazat z kontextové nabídky odstraníte vybrané řádky.