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

---

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:

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:

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

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

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

---

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()
'Updateby Extendoffice
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:

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

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

---

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:

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.

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:

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:

• Ta bort hela rader om cellen inte innehåller noll i Excel
• Ta bort rader som inte matchar kriterier på ett annat ark