Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako izbrisati vrstice z negativnimi vrednostmi v Excelu?

Če imate, imate naslednje območje podatkov in želite izbrisati celotne vrstice, če je številka v stolpcu B negativna, ali obstajajo kakšni dobri načini za rešitev te težave v Excelu?

doc izbrisati z negativnim 1  2 doc izbrisati z negativnim 2

Z vrstico VBA izbrišite vrstice z negativnimi številkami

Izbrišite vrstice z negativnimi številkami, tako da uporabite Kutools for Excel


puščica modra desno mehurček Z vrstico VBA izbrišite vrstice z negativnimi številkami


Naslednja VBA koda vam lahko pomaga izbrisati celotne vrstice, če v določenem stolpcu obstajajo negativne številke, in sicer tako:

1. Drži dol ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. klik Vstavi > Moduli, in prilepite naslednjo kodo v Okno modula.

VBA koda: Brisanje vrstic z negativnimi številkami

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. In nato pritisnite F5 Če želite izvedeti to kodo, v pozivnem polju izberite stolpec s številkami, od katerih želite najti negativne številke, glejte sliko zaslona:

doc izbrisati z negativnim 3

4. Nato kliknite OK gumb, so bile vrstice z negativnimi številkami takoj izbrisane.


puščica modra desno mehurček Izbrišite vrstice z negativnimi številkami, tako da uporabite Kutools for Excel

Za obdelavo tega posla, Kutools za ExcelJe Izberite Specific Cells funkcija lahko naredi tudi uslugo, s tem pripomočkom lahko najprej izberete celotne vrstice, ki vsebujejo negativne vrednosti, nato pa izbrišete vse vrstice, kot jih potrebujete.

Kutools za Excel : z več kot 300 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60.

Po namestitvi Kutools za Excel, storite naslednje:

1. Izberite stolpec vsebuje negativne številke, ki jih želite izbrisati.

2. Nato kliknite Kutools > Izberite > Izberite Specific Cells, si oglejte sliko zaslona:

doc izbrisati z negativnim 4

3. v Izberite Specific Cells pogovorno okno, izberite Celotna vrstica možnost v Vrsta izbire, nato pa izberite Manj kot Iz Poseben tip in vnesite 0 v besedilno polje poleg meril si oglejte posnetek zaslona:

doc izbrisati z negativnim 5

4. Nato kliknite Ok, so bile hkrati izbrane vrstice z negativnimi številkami in kliknite Domov > Brisanje > Brisanje listov vrstic če želite izbrisati izbrane vrstice, ki jih potrebujete, si oglejte posnetke zaslona:

doc izbrisati z negativnim 6  2 doc izbrisati z negativnim 7

nasveti: Prav tako lahko z desnim klikom izberete Brisanje iz kontekstnega menija, da izbrišete izbrane vrstice.


Priporočena orodja za produktivnost za Excel

zavihek kte 201905

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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 · 14 days 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 · 7 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 · 7 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