Salt la conținutul principal

Cum se șterg rânduri dacă celula este mai mare / mai mică decât o anumită valoare în Excel?

Uneori poate fi necesar să ștergeți rânduri dacă celulele dintr-o coloană specificată sunt mai mari sau mai mici decât o anumită valoare în Excel. Acest articol va recomanda mai multe metode pentru a rezolva această problemă.

Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu codul VBA
Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu Kutools pentru Excel
Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu Kutoos pentru Excel


Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu codul VBA

Presupunând că doriți să ștergeți rânduri întregi dacă celula din coloana D este mai mare sau mai mică decât o anumită valoare în Excel. Puteți rula următorul cod VBA pentru a-l realiza.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > modul. Apoi copiați și lipiți codul VBA de mai jos în fereastra Cod.

Cod VBA: ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare în Excel

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

notițe: În codul de mai sus,> 30000 înseamnă că veți șterge rânduri dacă celulele sunt mai mari de 30000 într-o coloană specificată. Dacă doriți să ștergeți rânduri dacă celulele sunt mai mici decât o anumită valoare, vă rugăm să schimbați semnul> la <și apoi să specificați valoarea.

3. presa F5 tasta pentru a rula codul, în fereastra pop-up Kutools pentru Excel caseta de dialog, selectați intervalul (coloană unică) pe care îl veți găsi dacă celulele din această coloană sunt mai mari sau mai mici decât o anumită valoare. Și apoi faceți clic pe OK buton. Vedeți captura de ecran:

Apoi, toate rândurile cu valoare de celulă mai mare de 30000 în coloana D sunt șterse imediat.


Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu Kutools pentru Excel

Selectați celule specifice utilitatea Kutools pentru Excel vă poate ajuta să selectați toate rândurile cu celule mai mari sau mai mici decât o anumită valoare într-o coloană specificată, iar apoi puteți șterge manual toate rândurile selectate simultan.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați coloana pe care doriți să ștergeți rândurile, apoi faceți clic pe Kutools > Selectați > Selectați celule specifice. Vedeți captura de ecran:

2. În Selectați celule specifice caseta de dialog, selectați Întregul rând în Tipul de selecție secțiune. În Tipul specific secțiune, selectați Mai mare ca or Mai puţin de din prima listă derulantă, introduceți valoarea anumită în următoarea casetă text, apoi faceți clic pe OK butonul.

3. Apoi apare o casetă de dialog pentru a vă spune câte rânduri sunt selectate, faceți clic pe OK buton. Și puteți vedea toate rândurile cu o valoare mai mare de 30000 în coloana D sunt selectate imediat.

4. Faceți clic dreapta pe unul dintre rândurile selectate, apoi faceți clic pe Șterge din meniul cu clic dreapta. Și toate rândurile selectate sunt șterse.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu Kutoos pentru Excel

În plus față de cele două metode de mai sus, puteți filtra toate rândurile cu celule mai mari sau mai mici decât o anumită valoare într-o coloană specificată, apoi puteți elimina toate rândurile filtrate cu Ștergeți rândurile și coloana ascunse (vizibile) utilitatea Kutools pentru Excel.

Înainte de a aplica Kutools pentru Excel, Vă rugăm să descărcați-l și instalați-l mai întâi.

1. Selectați antetul coloanei, apoi faceți clic pe Date > Filtru. Vedeți captura de ecran:

2. Faceți clic pe săgeata derulantă din coloana pe care veți șterge rândurile, apoi faceți clic pe Filtre numerice > Mai mare ca or Mai puțin decât ca în imaginea de mai jos:

3. În Filtru automat personalizat caseta de dialog, introduceți un anumit număr după caseta este mai mare sau mai mică decât, apoi faceți clic pe OK butonul.

4. Apoi toate rândurile cu anumite celule care sunt mai mari sau mai mici decât o anumită valoare din coloana D sunt toate filtrate. Puteți șterge toate rândurile filtrate selectând datele filtrate și apoi faceți clic pe Kutools > Șterge > Ștergeți rândurile și coloanele ascunse (vizibile). Vedeți captura de ecran:

5. În Ștergeți rândurile și coloanele ascunse (vizibile) caseta de dialog, asigurați-vă că În gama selectată opțiunea este selectată în Uită-te în lista derulantă, selectați Rânduri în Ștergeți tipul , specificați opțiunea Rânduri vizibile în Tipul detaliat , apoi faceți clic pe OK butonul.

6. Apoi toate rândurile vizibile din intervalul selectat sunt șterse imediat, puteți anula filtrul făcând clic Date > Filtru.

  Dacă doriți să aveți o perioadă de încercare gratuită (30 de zile) a acestui utilitar, vă rugăm să faceți clic pentru a-l descărca, și apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Ștergeți rândurile dacă celula este mai mare / mai mică decât o anumită valoare cu Kutools pentru Excel


Legate de articole:

Cele mai bune instrumente de productivitate de birou

Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

fila kte 201905


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
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