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
Ș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:
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:
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 :
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:
5. Apoi apasa Date > Filtru din nou, apoi toate șirurile care nu conțin anumite texte sunt șterse. Vedeți captura de ecran:
Ș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:
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:
5. clic OK, iar rândurile care nu conțin Apple vor fi eliminate.
Ș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:
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.
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:
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:
- Ștergeți rânduri întregi dacă celula care nu conține zero în Excel
- Ștergeți rândurile care nu corespund criteriilor de pe altă foaie
Cele mai bune instrumente de productivitate de birou
Î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 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!