Preskoči na glavno vsebino

Kako izbrisati vrstice, če je celica večja / manjša od določene vrednosti v Excelu?

Včasih boste morda morali izbrisati vrstice, če so celice v določenem stolpcu večje ali manjše od določene vrednosti v Excelu. Ta članek bo priporočil več načinov za reševanje te težave.

Če je celica večja / manjša od določene vrednosti s kodo VBA, izbrišite vrstice
Z Kutools za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti
Z Kutoos za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti


Če je celica večja / manjša od določene vrednosti s kodo VBA, izbrišite vrstice

Recimo, da želite izbrisati celotne vrstice, če je celica v stolpcu D večja ali manjša od določene vrednosti v Excelu. Če jo želite doseči, lahko zaženete naslednjo kodo VBA.

1. Pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > modul. Nato kopirajte in prilepite spodnjo kodo VBA v okno Code.

Koda VBA: Izbrišite vrstice, če je celica večja / manjša od določene vrednosti v Excelu

Public Sub ProcessData()
    Dim xRg As Range
    Dim xTxt As String
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Areas.Count > 1) Or (xRg.Columns.Count > 1) Then
        MsgBox "You can only select one column per time", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    xRg.Range("A1").EntireRow.Insert
    Set xRg = xRg.Range("A1").Offset(-1).Resize(xRg.Rows.Count + 1)
    xRg.Range("A1") = "Temp"
    xRg.AutoFilter 1, ">30000"
    Set xRg = Application.Intersect(xRg, xRg.SpecialCells(xlCellTypeVisible))
    On Error GoTo 0
    If Not xRg Is Nothing Then xRg.EntireRow.Delete
End Sub

Opombe: V zgornji kodi> 30000 pomeni, da boste izbrisali vrstice, če so celice večje od 30000 v določenem stolpcu. Če želite izbrisati vrstice, če so celice manjše od določene vrednosti, spremenite znak> na <in nato določite svojo vrednost.

3. Pritisnite F5 tipko za zagon kode v pojavnem oknu Kutools za Excel v pogovornem oknu izberite obseg (en stolpec), ki ga boste našli, če so celice v tem stolpcu večje ali manjše od določene vrednosti. In nato kliknite OK . Oglejte si posnetek zaslona:

Nato se vse vrstice z vrednostjo celice nad 30000 v stolpcu D takoj izbrišejo.


Z Kutools za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti

O Izberite Specific Cells uporabnost Kutools za Excel vam lahko pomaga izbrati vse vrstice s celicami, večje ali manjše od določene vrednosti v določenem stolpcu, nato pa lahko vse izbrane vrstice hkrati izbrišete hkrati.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite stolpec, na podlagi katerega želite izbrisati vrstice, in kliknite Kutools > Izberite > Izberite Specific Cells. Oglejte si posnetek zaslona:

2. V Ljubljani Izberite Specific Cells pogovorno okno, izberite Cela vrstica v Vrsta izbire odsek. V Posebna vrsta izberite, izberite Večji kot or Manj kot s prvega spustnega seznama vnesite določeno vrednost v naslednje besedilno polje in kliknite na OK gumb.

3. Potem se prikaže pogovorno okno, ki vam pove, koliko vrstic je izbranih, kliknite OK . In vidite, da so vse vrstice z vrednostjo večjo od 30000 v stolpcu D izbrane takoj.

4. Z desno miškino tipko kliknite eno od izbranih vrstic in nato kliknite Brisanje v meniju z desnim klikom. In vse izbrane vrstice se izbrišejo.

  Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Z Kutoos za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti

Poleg zgornjih dveh metod lahko v določenem stolpcu filtrirate vse vrstice s celicami, ki so večje ali manjše od določene vrednosti, in nato odstranite vse filtrirane vrstice z Izbriši skrite (vidne) vrstice in stolpce uporabnost Kutools za Excel.

Pred vložitvijo vloge Kutools za ExcelProsim najprej ga prenesite in namestite.

1. Izberite glavo stolpca in kliknite datum > filter. Oglejte si posnetek zaslona:

2. Kliknite puščico spustnega menija v stolpcu, na podlagi katerega boste izbrisali vrstice, nato kliknite Številčni filtri > Večji kot or Manj kot kot spodaj:

3. V Ljubljani Samodejni filter po meri v pogovorno okno vnesite določeno številko, potem ko je polje večje ali manjše od polja, in nato kliknite OK gumb.

4. Nato se vse vrstice z določenimi celicami, ki so večje ali manjše od določene vrednosti v stolpcu D, filtrirajo. Vse filtrirane vrstice lahko izbrišete tako, da izberete filtrirane podatke in nato kliknete Kutools > Brisanje > Izbriši skrite (vidne) vrstice in stolpce. Oglejte si posnetek zaslona:

5. V Ljubljani Izbriši skrite (vidne) vrstice in stolpce pogovorno okno, se prepričajte, da V izbranem obsegu možnost je izbrana v Poglej v spustnega seznama izberite Vrstice v Izbriši vrsto v razdelku določite možnost Vidne vrstice Podroben tip in na koncu kliknite OK gumb.

6. Nato se vse vidne vrstice v izbranem obsegu takoj izbrišejo, filter lahko prekličete s klikom datum > filter.

  Če želite imeti brezplačno (30-dnevno) preskusno različico tega pripomočka, kliknite, če ga želite prenestiin nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Z Kutools za Excel izbrišite vrstice, če je celica večja / manjša od določene vrednosti


Sorodni članki:

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

zavihek kte 201905


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!
Comments (2)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Super. Thanks a lot.
Greetings from İstanbul
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hi! How can I change your code (Delete Rows If Cell Is Greater/Less Than A Certain Value With VBA Code) if I would like it to work in every sheet in a workbook? I need it to delete the rows if date in column A is
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations