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.
| Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
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.
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
