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
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:
 |
 |
 |
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:
3. Nato lahko vidite samo vrstico z glavo in vrstice, ki ne vsebujejo določenega besedila, so filtrirane. Oglejte si posnetek zaslona:
4. Izberite vse, razen vrstice z glavo, in z desno miškino tipko izberite Izbriši vrstico iz kontekstnega menija. Oglejte si posnetek zaslona:
5. Nato kliknite datum > filter in nato se izbrišejo vse vrstice, ki ne vsebujejo določenega besedila. Oglejte si posnetek zaslona:
 |
|
 |
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
4. Nato kliknite OKin v drugo pojavno pogovorno okno vnesite besedilo, na katerem želite odstraniti osnovo vrstic. Oglejte si posnetek zaslona:
5. klik OKin vrstice, ki ne vsebujejo Apple, bodo odstranjene.
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:
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.
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:
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:
- Če celica v Excelu ne vsebuje nič, izbrišite celotne vrstice
- Na drugem listu izbrišite vrstice, ki se ne ujemajo z merili
Najboljša pisarniška orodja za produktivnost
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...
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!
