Preskoči na glavno vsebino

Kako v Excelu izbrisati vrstice, ki ne vsebujejo določenega besedila?

Mogoče nekateri od vas veste, kako izbrisati celotne vrstice, če vsebujejo nekatera besedila v Excelu, če pa želite celotno vrstico, ko ne vsebujejo določenih besedil, kako to storiti? Zdaj, sledite tej vadnici, boste morda našli način za rešitev te težave v Excelu.

S filtrom izbrišite vrstice, ki ne vsebujejo določenega besedila

Z VBA izbrišite vrstice, ki ne vsebujejo določenega besedila

Z Kutools za Excel izbrišite vrstice, ki ne vsebujejo določenega besedila


puščica modri desni mehurček S filtrom izbrišite vrstice, ki ne vsebujejo določenega besedila

V Excelu vam lahko funkcija filtriranja hitro pomaga filtrirati vrstice, ki ne vsebujejo določenega besedila, nato pa jih lahko izberete za brisanje.

1. Izberite stolpec, ki vsebuje besedila, na podlagi katerih boste odstranili vrstice, in kliknite datum > filter. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-1
doc-puščica
doc-delete-vrstice-ne-vsebujejo-2

2. V glavi stolpca je gumb za filter in kliknite nanj, da odprete spustni seznam, označite vse, razen določenega besedila, na katerem želite temeljiti. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-3

3. Nato lahko vidite samo vrstico z glavo in vrstice, ki ne vsebujejo določenega besedila, so filtrirane. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-4

4. Izberite vse, razen vrstice z glavo, in z desno miškino tipko izberite Izbriši vrstico iz kontekstnega menija. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-5

5. Nato kliknite datum > filter in nato se izbrišejo vse vrstice, ki ne vsebujejo določenega besedila. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-6
doc-puščica
doc-delete-vrstice-ne-vsebujejo-7

puščica modri desni mehurček Z VBA izbrišite vrstice, ki ne vsebujejo določenega besedila

VBA je zelo uporaben za nekoliko zahtevne operacije v Excelu in sledite spodnjim korakom, da izbrišete vrstice, ki ne vsebujejo določenega besedila.

1. Pritisnite Alt + F11 za prikaz Microsoft Visual Basic za aplikacije okno.

2. V oknu kliknite Vstavi > Moduli za prikaz novega okna modula, nato v okno modula kopirajte naslednjo kodo VBA.

VBA: Če celica vsebuje določeno besedilo, izbrišite celotno vrstico.

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. klik Run in odpre se pogovorno okno za izbiro obsega, ki bo deloval. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-8

4. Nato kliknite OKin v drugo pojavno pogovorno okno vnesite besedilo, na katerem želite odstraniti osnovo vrstic. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-9

5. klik OKin vrstice, ki ne vsebujejo Apple, bodo odstranjene.


puščica modri desni mehurček Z Kutools za Excel izbrišite vrstice, ki ne vsebujejo določenega besedila

Če menite, da zgornje metode za vas niso enostavne, lahko uporabite Kutools za Excel's Izberite Specific Cells lastnost.

Kutools za Excel vključuje več kot 300 priročnih orodij Excel. Brezplačno poskusite brez omejitev v 30 dneh. Get it now

1. Izberite stolpec, v katerem želite izbrisati vrstice, ki ne vsebujejo določenega besedila, in kliknite Kutools > Izberite Orodja > Izberite Specific Cells. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-10

2. In v Izberite Specific Cells pogovorno okno, preverite Cela vrsticain izberite Ne vsebujein vnesite določeno besedilo v besedilno polje, lahko pa tudi kliknete gumb obsega v Posebna vrsta , da izberete celico, ki vsebuje določeno besedilo.

doc-delete-vrstice-ne-vsebujejo-11

3. Nato kliknite Ok, nato so izbrane vrstice, ki ne vsebujejo določenega besedila, z desno miškino tipko izberite Brisanje iz kontekstnega menija. Oglejte si posnetek zaslona:

doc-delete-vrstice-ne-vsebujejo-12

4. Zdaj so odstranjene vse vrstice, ki v obsegu ne vsebujejo določenega besedila. Kliknite jo za več informacij o Select Specific Cells.


Relativni č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 (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