Salt la conținutul principal

Cum să ștergeți rânduri care nu conțin anumite texte în Excel?

Poate că unii dintre voi știți cum să ștergeți întregul rând atunci când conțin anumite texte în Excel, dar dacă doriți să completați rândul atunci când nu conțin anumite texte, cum ați putea face? Acum, urmați acest tutorial, este posibil să găsiți modalitatea de a rezolva această problemă în Excel.

Ștergeți rândurile care nu conțin anumite texte cu Filtru

Ștergeți rândurile care nu conțin anumite texte cu VBA

Ștergeți rândurile care nu conțin anumite texte cu Kutools pentru Excel


săgeată albastru dreapta balon Ștergeți rândurile care nu conțin anumite texte cu Filtru

În Excel, funcția Filtrare vă poate ajuta rapid să filtrați rândurile care nu conțin anumite texte, apoi le puteți selecta pentru a le șterge.

1. Selectați coloana care conține texte pe care le veți elimina pe rânduri și faceți clic Date > Filtru. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-1
doc-săgeată
doc-șterge-rândurile-nu-conține-2

2. În antetul coloanei, există un buton de filtrare și faceți clic pe acesta pentru a deschide lista derulantă, verificați toate, cu excepția anumitor text pe care doriți să vă bazați. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-3

3. Apoi, puteți vedea doar rândul de antet și rândurile care nu conțin anumite texte sunt filtrate. Vedeți captura de ecran :

doc-șterge-rândurile-nu-conține-4

4. Selectați-le pe toate, cu excepția rândului de antet, și faceți clic dreapta pentru a selecta Ștergeți rândul din meniul contextual. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-5

5. Apoi apasa Date > Filtru din nou, apoi toate șirurile care nu conțin anumite texte sunt șterse. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-6
doc-săgeată
doc-șterge-rândurile-nu-conține-7

săgeată albastru dreapta balon Ștergeți rândurile care nu conțin anumite texte cu VBA

VBA este foarte util pentru operațiuni oarecum dificile în Excel și urmați pașii de mai jos pentru a șterge rândurile care nu conțin anumite texte.

1. presa Alt + F11 pentru a afișa Microsoft Visual Basic pentru aplicații fereastră.

2. În fereastră, faceți clic pe Insera > Module pentru a afișa o nouă fereastră de modul, apoi copiați următorul cod VBA în fereastra modulului.

VBA: Ștergeți întregul rând dacă celula conține un anumit text.

Sub DeleteRowNoInclude()
'Update20140618
Dim xRow As Range
Dim rng As Range
Dim WorkRng As Range
Dim xStr As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
    If rng Is Nothing Then
       xRow.Delete
    End If
Next
Application.ScreenUpdating = True
End Sub
3. clic Alerga butonul și apare un dialog pentru a selecta un interval de lucru. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-8

4. Apoi apasa OK, și tastați textul pe care doriți să eliminați rândurile de bază într-un alt dialog pop-up. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-9

5. clic OK, iar rândurile care nu conțin Apple vor fi eliminate.


săgeată albastru dreapta balon Ștergeți rândurile care nu conțin anumite texte cu Kutools pentru Excel

Dacă credeți că metodele de mai sus nu vă sunt ușoare, puteți utiliza Kutools pentru Excel's Selectați celule specifice caracteristică.

Kutools pentru Excel include mai mult de 300 de instrumente Excel la îndemână. Încercare gratuită fără limitări în 30 de zile. Ia-l acum

1. Selectați coloana în care doriți să ștergeți rândurile care nu conțin textul și faceți clic Kutools > Selectați Instrumente > Selectați celule specifice. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-10

2. Și în Selectați celule specifice dialog, verificați Întregul rândȘi selectați Nu conține, și introduceți textul în caseta de text, de asemenea, puteți face clic pe butonul Range din Tipul specific pentru a selecta celula care conține un anumit text.

doc-șterge-rândurile-nu-conține-11

3. Apoi apasa Ok, apoi sunt selectate rândurile care nu conțin anumite texte, faceți clic dreapta pentru a selecta Șterge din meniul contextual. Vedeți captura de ecran:

doc-șterge-rândurile-nu-conține-12

4. Acum se elimină toate rândurile care nu conțin anumite texte din interval. Faceți clic pe ea pentru mai multe informații despre Selectați celule specifice.


Articole relative:

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 (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am trying to modify the VBA code to add an option like this,

Dim xOpt As Integer
xOpt = Application.InputBox("Rows Around Kept (0, 1, 2)", xTitleId, "", Type:=1)

where 0 is the same as your code above where it keeps only the row with specified word in it and deletes all other rows.
where 1 keeps the rows immediately above and below the rows with the specified word in it and deletes all other rows.
where 2 keeps the 2 rows above and below the rows with the specified words in it and deletes all other rows.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations