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
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:
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:
3. Derefter kan du kun se overskriftsrækken, og rækkerne, der ikke indeholder bestemt tekst, filtreres. Se skærmbillede :
4. Vælg dem alle undtagen overskriftsrækken, og højreklik for at vælge Slet række fra genvejsmenuen. Se skærmbillede:
5. Klik derefter på data > filtre igen, og derefter slettes alle rækkerne, der ikke indeholder en bestemt tekst. Se skærmbillede:
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:
4. Klik derefter på OK, og skriv den tekst, du vil fjerne rækkebaseret på, i en anden pop op-dialogboks. Se skærmbillede:
5. klik OK, og rækkerne, der ikke indeholder Apple, fjernes.
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:
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.
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:
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:
- Slet hele rækker, hvis celle ikke indeholder nul i Excel
- Slet rækker, der ikke matcher kriterierne på et andet ark
Bedste kontorproduktivitetsværktøjer
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...
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!