Jak usunąć wiersze niezawierające określonego tekstu w programie Excel?
Może niektórzy z was wiedzą, jak usunąć całe wiersze, gdy zawierają określone teksty w programie Excel, ale jeśli chcesz, aby cały wiersz nie zawierał określonych tekstów, jak możesz to zrobić? Teraz postępuj zgodnie z tym samouczkiem, możesz znaleźć sposób na rozwiązanie tego problemu w programie Excel.
Usuń wiersze niezawierające określonego tekstu za pomocą filtru
Usuń wiersze niezawierające określonego tekstu za pomocą VBA
Usuń wiersze niezawierające określonego tekstu za pomocą Kutools for Excel
Usuń wiersze niezawierające określonego tekstu za pomocą filtru
W programie Excel funkcja filtru może szybko pomóc w filtrowaniu wierszy, które nie zawierają określonego tekstu, a następnie można je zaznaczyć do usunięcia.
1. Wybierz kolumnę zawierającą teksty, na podstawie których chcesz usunąć wiersze, i kliknij Dane > FILTRY. Zobacz zrzut ekranu:
 |
 |
 |
2. W nagłówku kolumny znajduje się przycisk filtru i kliknij go, aby otworzyć listę rozwijaną, zaznacz wszystko oprócz określonego tekstu, na którym chcesz się oprzeć. Zobacz zrzut ekranu:
3. Wtedy widać tylko wiersz nagłówka, a wiersze niezawierające określonego tekstu są filtrowane. Zobacz zrzut ekranu ：
4. Zaznacz je wszystkie z wyjątkiem wiersza nagłówka i kliknij prawym przyciskiem myszy, aby wybrać Usuń wiersz z menu kontekstowego. Zobacz zrzut ekranu:
5. Następnie kliknij Dane > FILTRY ponownie, a następnie wszystkie wiersze niezawierające określonego tekstu są usuwane. Zobacz zrzut ekranu:
 |
|
 |
Usuń wiersze niezawierające określonego tekstu za pomocą VBA
VBA jest bardzo przydatny w przypadku nieco trudnych operacji w programie Excel i wykonaj poniższe kroki, aby usunąć wiersze niezawierające określonego tekstu.
1. naciśnij Alt + F11 wyświetlić Microsoft Visual Basic for Applications okno.
2. W oknie kliknij wstawka > Moduł aby wyświetlić nowe okno modułu, a następnie skopiuj następujący kod VBA do okna modułu.
VBA: Usuń cały wiersz, jeśli komórka zawiera określony 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
4. Następnie kliknij OKi wpisz tekst, na podstawie którego chcesz usunąć wiersze, w innym wyskakującym oknie dialogowym. Zobacz zrzut ekranu:
5. kliknij OK, a wiersze niezawierające Apple zostaną usunięte.
Usuń wiersze niezawierające określonego tekstu za pomocą Kutools for Excel
Jeśli uważasz, że powyższe metody nie są dla Ciebie łatwe, możesz użyć Kutools dla programu Excel's Wybierz określone komórki cecha.
Kutools dla programu Excel zawiera ponad 300 przydatnych narzędzi programu Excel. Bezpłatne wypróbowanie bez ograniczeń w ciągu 30 dni. Pobierz teraz
1. Wybierz kolumnę, w której chcesz usunąć wiersze niezawierające określonego tekstu, i kliknij Kutools > Wybierz Narzędzia > Wybierz określone komórki. Zobacz zrzut ekranu:
2. A w Wybierz określone komórki okno dialogowe, sprawdź Cały rządi wybierz Nie zawierai wpisz określony tekst w polu tekstowym, możesz również kliknąć przycisk zakresu w Określony typ sekcja, aby zaznaczyć komórkę zawierającą określony tekst.
3. Następnie kliknij Ok, następnie wiersze niezawierające określonego tekstu są zaznaczone, kliknij prawym przyciskiem myszy, aby wybrać Usuń z menu kontekstowego. Zobacz zrzut ekranu:
4. Teraz wszystkie wiersze niezawierające określonego tekstu w zakresie zostaną usunięte. Kliknij ją, aby uzyskać więcej informacji na temat Wybierz określone komórki.
Względne artykuły:
- Usuń całe wiersze, jeśli komórka nie zawiera zera w programie Excel
- Usuń wiersze niespełniające kryteriów z innego arkusza
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
