Gå til hovedindhold

Hvordan slettes rækker, der ikke indeholder bestemt tekst i Excel?

Måske ved nogle af jer, hvordan man sletter hele rækkerne, når de indeholder nogle bestemte tekster i Excel, men hvis du vil hele rækken, når de ikke indeholder de bestemte tekster, hvordan kunne du gøre det? Følg nu denne vejledning, du finder muligvis vejen til at løse dette problem i Excel.

Slet rækker, der ikke indeholder bestemt tekst, med Filter

Slet rækker, der ikke indeholder bestemt tekst med VBA

Slet rækker, der ikke indeholder bestemt tekst med Kutools til Excel


pil blå højre boble Slet rækker, der ikke indeholder bestemt tekst, med Filter

I Excel kan filterfunktionen hurtigt hjælpe dig med at filtrere de rækker, der ikke indeholder bestemt tekst, og derefter kan du vælge dem, der skal slettes.

1. Vælg den kolonne, der indeholder tekster, som du vil fjerne rækker baseret på, og klik på data > filtre. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-1
doc-pil
doc-slet-rækker-ikke-indeholder-2

2. I kolonneoverskriften er der en filterknap, og klik på den for at åbne rullelisten, marker alt undtagen den bestemte tekst, du vil basere på. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-3

3. Derefter kan du kun se overskriftsrækken, og rækkerne, der ikke indeholder bestemt tekst, filtreres. Se skærmbillede :

doc-slet-rækker-ikke-indeholder-4

4. Vælg dem alle undtagen overskriftsrækken, og højreklik for at vælge Slet række fra genvejsmenuen. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-5

5. Klik derefter på data > filtre igen, og derefter slettes alle rækkerne, der ikke indeholder en bestemt tekst. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-6
doc-pil
doc-slet-rækker-ikke-indeholder-7

pil blå højre boble Slet rækker, der ikke indeholder bestemt tekst med VBA

VBA er meget nyttigt til noget vanskelige operationer i Excel, og følg nedenstående trin for at slette de rækker, der ikke indeholder bestemt tekst.

1. Trykke Alt + F11 for at vise Microsoft Visual Basic til applikationer vindue.

2. Klik på i vinduet indsatte > Moduler for at vise et nyt modulvindue, kopier derefter følgende VBA-kode til modulvinduet.

VBA: Slet hele rækken, hvis cellen indeholder bestemt tekst.

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 Kør knappen, og der vises en dialogboks, hvor du kan vælge et interval, du vil arbejde med. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-8

4. Klik derefter på OK, og skriv den tekst, du vil fjerne rækkebaseret på, i en anden pop op-dialogboks. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-9

5. klik OK, og rækkerne, der ikke indeholder Apple, fjernes.


pil blå højre boble Slet rækker, der ikke indeholder bestemt tekst med Kutools til Excel

Hvis du mener, at ovenstående metoder ikke er lette for dig, kan du bruge Kutools til Excel's Vælg specifikke celler funktion.

Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu

1. Vælg den kolonne, hvor du vil slette de rækker, der ikke indeholder den bestemte tekst, og klik på Kutools > Vælg Værktøjer > Vælg specifikke celler. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-10

2. Og i Vælg specifikke celler dialog, tjek Hele rækken, og vælg Indeholder ikke, og skriv den bestemte tekst i tekstboksen, du kan også klikke på områdeknappen i Specifik type sektion for at vælge den celle, der indeholder den bestemte tekst.

doc-slet-rækker-ikke-indeholder-11

3. Klik derefter på Ok, så vælges de rækker, der ikke indeholder bestemt tekst, højreklik for at vælge Slette fra genvejsmenuen. Se skærmbillede:

doc-slet-rækker-ikke-indeholder-12

4. Nu fjernes alle de rækker, der ikke indeholder bestemt tekst i området. Klik på hende for at få flere oplysninger om Vælg specifikke celler.


Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid.  Klik her for at få den funktion, du har mest brug for...

Beskrivelse


Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

  • Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
  • Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
  • Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
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