Kako izbrisati vrstice z negativnimi vrednostmi v Excelu?
Recimo, da imate naslednji obseg podatkov in želite izbrisati celotne vrstice, če je število v stolpcu B negativno, ali obstajajo kakšne dobre metode za rešitev te težave v Excelu?
Izbrišite vrstice z negativnimi številkami s pomočjo kode VBA Izbrišite vrstice z negativnimi številkami z uporabo Kutools za Excel |
Izbrišite vrstice z negativnimi številkami s pomočjo kode VBA
Naslednja koda VBA vam lahko pomaga izbrisati celotne vrstice, če so v določenem stolpcu negativne številke, storite naslednje:
1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.
2. klik Vstavi > Moduliin prilepite naslednjo kodo v Okno modula.
Koda VBA: izbrišite vrstice z negativnimi številkami
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. In nato pritisnite F5 tipko za izvajanje te kode, v pozivnem polju izberite stolpec številk, iz katerega želite najti negativne številke, glejte posnetek zaslona:
4. Nato kliknite OK gumba so vrstice z negativnimi številkami hkrati izbrisane.
Izbrišite vrstice z negativnimi številkami z uporabo Kutools za Excel
Za opravljanje tega dela, Kutools za ExcelJe Izberite Specific Cells funkcija vam lahko tudi naredi uslugo, s tem pripomočkom lahko najprej izberete celotne vrstice, ki vsebujejo negativne vrednosti, nato pa po potrebi izbrišete celotne vrstice.
Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. |
Po namestitvi Kutools za Excel, naredite naslednje:
1. Izberite stolpec z negativnimi številkami, ki jih želite izbrisati.
2. Nato kliknite Kutools > Izberite > Izberite Specific Cells, glej posnetek zaslona:
3. v Izberite Specific Cells pogovorno okno, izberite Cela vrstica možnost v Vrsta izbire, nato pa izberite Manj kot Iz Posebna vrsta in vnesite 0 v besedilno polje poleg meril si oglejte posnetek zaslona:
4. Nato kliknite Ok, so bile naenkrat izbrane vrstice, ki vsebujejo negativne številke, in nato kliknite Domov > Brisanje > Izbriši vrstice listov če želite izbrisati izbrane vrstice po potrebi, si oglejte posnetke zaslona:
nasveti: Za izbiro lahko tudi kliknete z desno miškino tipko Brisanje iz kontekstnega menija, da izbrišete izbrane vrstice.
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!