Hoppa till huvudinnehåll

Hur tar jag bort rader som inte innehåller viss text i Excel?

Kanske vet några av er hur man tar bort hela raderna när de innehåller vissa texter i Excel, men om du vill hela raden när de inte innehåller vissa texter, hur skulle du kunna göra det? Följ nu den här guiden, du kan hitta sättet att lösa detta problem i Excel.

Ta bort rader som inte innehåller viss text med Filter

Ta bort rader som inte innehåller viss text med VBA

Ta bort rader som inte innehåller viss text med Kutools för Excel


pil blå höger bubbla Ta bort rader som inte innehåller viss text med Filter

I Excel kan filterfunktionen snabbt hjälpa dig att filtrera raderna som inte innehåller viss text, och sedan kan du välja dem att ta bort.

1. Markera den kolumn som innehåller texter som du tar bort rader baserat på och klicka på Data > Filter. Se skärmdump:

doc-radera-rader-inte-innehålla-1
doc-pil
doc-radera-rader-inte-innehålla-2

2. I kolumnrubriken finns en filterknapp och klicka på den för att öppna rullgardinsmenyn, markera alla utom den text du vill basera på. Se skärmdump:

doc-radera-rader-inte-innehålla-3

3. Då kan du bara se rubrikraden och raderna som inte innehåller viss text filtreras. Se skärmdump :

doc-radera-rader-inte-innehålla-4

4. Markera alla utom rubrikraden och högerklicka för att välja Radera rad från snabbmenyn. Se skärmdump:

doc-radera-rader-inte-innehålla-5

5. Klicka sedan Data > Filter igen, och sedan raderas alla rader som inte innehåller viss text. Se skärmdump:

doc-radera-rader-inte-innehålla-6
doc-pil
doc-radera-rader-inte-innehålla-7

pil blå höger bubbla Ta bort rader som inte innehåller viss text med VBA

VBA är mycket användbart för något svåra operationer i Excel, och följ stegen nedan för att radera raderna som inte innehåller viss text.

1. Tryck Alt + F11 för att visa Microsoft Visual Basic för applikationer fönster.

2. Klicka på i fönstret Insert > Modulerna för att visa ett nytt modulfönster och kopiera sedan följande VBA-kod till modulfönstret.

VBA: Radera hela raden om cellen innehåller viss 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. klick Körning knappen, och en dialogruta kommer ut där du kan välja ett intervall som ska fungera. Se skärmdump:

doc-radera-rader-inte-innehålla-8

4. Klicka sedan OK, och skriv in texten du vill ta bort rader baserar på i en annan popup-dialogruta. Se skärmdump:

doc-radera-rader-inte-innehålla-9

5. klick OK, och raderna som inte innehåller Apple tas bort.


pil blå höger bubbla Ta bort rader som inte innehåller viss text med Kutools för Excel

Om du tycker att ovanstående metoder inte är enkla för dig kan du använda Kutools för Excel's Välj specifika celler särdrag.

Kutools för Excel innehåller mer än 300 praktiska Excel-verktyg. Gratis att prova utan begränsning på 30 dagar. Hämta nu

1. Markera den kolumn där du vill ta bort raderna som inte innehåller viss text och klicka Kutools > Välj Verktyg > Välj specifika celler. Se skärmdump:

doc-radera-rader-inte-innehålla-10

2. Och i Välj specifika celler dialogrutan, kontrollera Hela raden, och välj Innehåller inte, och skriv in viss text i textrutan, du kan också klicka på intervalknappen i Specifik typ avsnitt för att välja cellen som innehåller viss text.

doc-radera-rader-inte-innehålla-11

3. Klicka sedan Ok, sedan väljs raderna som inte innehåller viss text, högerklicka för att välja Radera från snabbmenyn. Se skärmdump:

doc-radera-rader-inte-innehålla-12

4. Nu tas alla rader som inte innehåller viss text i intervallet bort. Klicka på henne för mer information om Välj specifika celler.


Relativa artiklar:

Bästa kontorsproduktivitetsverktyg

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid.  Klicka här för att få den funktion du behöver mest...

kte-flik 201905


Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje 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