Przejdź do głównej zawartości

Jak szybko znaleźć i usunąć wszystkie wiersze z błędami w programie Excel?

W tym artykule przedstawimy metody szybkiego uzyskiwania listy ostatnio lub aktualnie otwartych plików Excela.


Znajdź i usuń wszystkie komórki z błędami, korzystając z opcji Przejdź do specjalnych

W programie Excel możesz zastosować funkcję Przejdź do specjalnego, aby znaleźć komórki z błędami, a następnie usunąć zawartość komórki.

1. Wybierz zakres lub cały arkusz, a następnie naciśnij Ctrl + G włączyć przejdź do dialog.

2. kliknij Specjalny do Przejdź do specjalnego następnie sprawdź Wzory opcja, pod Formuła opcja, sprawdź Błędy tylko pole wyboru.
doc znajdź usuń błędy 1

3. kliknij OKzaznaczono wszystkie komórki z błędami, naciśnij Usuń klucz, aby usunąć błędy.
doc znajdź usuń błędy 2


Znajdź i usuń wszystkie komórki z błędami za pomocą zaawansowanego narzędzia

Jeśli chcesz szybko znaleźć i usunąć wszystkie komórki z błędami, oto narzędzie w programie Kutools dla programu Excel może pomóc Ci rozwiązać tę pracę za pomocą kliknięć.

Uzupełnij swój Excel jednym kombinezonem Excela
Ponad 300 profesjonalnych i łatwych w użyciu narzędzi dla programu Excel 2019-2003

Po bezpłatna instalacja Kutools for Excel (60-dniowa bezpłatna wersja próbna), wykonaj poniższe czynności.

1. Wybierz zakres, w którym chcesz znaleźć komórki błędów, kliknij Kutools > Wybierz > Wybierz komórki z wartością błędu.
doc znajdź usuń błędy 3

2. Teraz wszystkie komórki błędów zostały zaznaczone, kliknij OK aby zamknąć wyskakujące ponownie okno dialogowe, a następnie naciśnij Usuń klucz, aby usunąć wartości błędów.
doc znajdź usuń błędy 4
doc znajdź usuń błędy 5


Usuń wszystkie wiersze z błędami w VBA

W programie Excel kod VBA może jednocześnie usunąć wszystkie wiersze z błędami.

1. naciśnij Alt + F11 klucz, aby włączyć Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł stworzyć nowy Moduł skrypt.

2. Skopiuj i wklej poniższy kod do skryptu.

VBA: Usuń wiersze błędów

Sub DeleteErrorRows()
Dim xWs As Worksheet
Dim xRg As Range
Dim xFNum As Integer

   Set xWs = Application.ActiveSheet
Application.ScreenUpdating = False
    On Error Resume Next
    With xWs
        Set xRg = .UsedRange
        xRg.Select
        For xFNum = 1 To xRg.Columns.count
            With .Columns(xFNum).SpecialCells(xlCellTypeFormulas, xlErrors)
                .EntireRow.Delete
            End With
        Next xFNum
    End With
Application.ScreenUpdating = True
End Sub

3. naciśnij F5 klawisz ,, to wszystkie wiersze błędów zostały usunięte.


Znajdź i usuń wszystkie wiersze z błędami za pomocą Superfiltra

Połączenia Super filtr użyteczność Kutools dla programu Excel możesz filtrować wiersze z błędami, a następnie możesz je usunąć.

Po bezpłatna instalacja Kutools for Excel (60-dniowa bezpłatna wersja próbna), wykonaj poniższe czynności.

1. Wybierz zakres danych, którego używasz, kliknij Kutools Plus > Super filtr umożliwić Okienko Super Filter.
doc znajdź usuń błędy 6

2. w Super filtr okienku, dodaj kryterium jak poniżej:

1) Wybierz nagłówek kolumny, którego używasz do filtrowania;

2) Wybierz Błąd z drugiej listy rozwijanej;

3) Wybierz Równa się z trzeciej rozwijanej listy;

4) Wybierz Cały błąd z ostatniej rozwijanej listy.
doc znajdź usuń błędy 7

3. kliknij Ok aby dodać kryterium, a następnie kliknij FILTRY do filtrowania wierszy z błędami.
doc znajdź usuń błędy 8

Teraz wiersze z błędami w kolumnie Dane zostały przefiltrowane.
doc znajdź usuń błędy 9

4. Następnie wybierz te wiersze jeden po drugim, kliknij prawym przyciskiem myszy, aby wyświetlić menu kontekstowe, wybierz Usuń wiersz.
doc znajdź usuń błędy 10

Teraz wiersze z błędami zostały usunięte. Kliknij Wyczyść przycisk w Super filtr aby wyświetlić inne wiersze.
doc znajdź usuń błędy 11

Wskazówka: Z Super filtr okienko, możesz również filtrować #NAZWA? błąd lub # DIV / 0 lub inny konkretny błąd.
doc znajdź usuń błędy 12

Super filtr to profesjonalne narzędzie filtrujące, które może filtrować wiersze według wielu kryteriów i udostępnia kryterium, którego program Excel nie obsługuje. Kliknij tutaj dla szczegółów.
doc znajdź usuń błędy


Inne operacje (artykuły) związane z filtrowaniem

Filtruj dane na podstawie listy
Ten samouczek zawiera porady dotyczące filtrowania danych na podstawie danych listy w programie Excel.

Dane filtru zawierają gwiazdkę
Jak wiemy, podczas filtrowania danych używamy maski gwiazdki, aby zatrzymać dowolne znaki, ale jak możesz to zrobić, jeśli chcesz filtrować dane, które zawierają maskę gwiazdki? Teraz w tym artykule przedstawiono metodę filtrowania danych, jeśli zawiera gwiazdkę lub inne znaki specjalne w programie Excel.

Filtruj dane za pomocą kryteriów lub symboli wieloznacznych
Jeśli chcesz filtrować dane według wielu kryteriów, jak możesz to zrobić? W tym samouczku omówiono, jak ustawić wiele kryteriów i filtrować dane w programie Excel.

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA module script just closed all of my excel workbooks and closed the program. Everything was recovered upon re-opening Excel but the function of the module was not achieved. (Unless you count completely closing the workbook as "removing the error lines".)
This comment was minimized by the moderator on the site
Hi, Guy, sorry for that, you can try this code
Sub DeleteErrorRows()
Dim xWs As Worksheet
Dim xRg As Range
Dim xFNum As Integer
Dim xRS As Integer

Set xWs = Application.ActiveSheet
Application.ScreenUpdating = False
On Error Resume Next

    Set xRg = xWs.UsedRange
    xRS = xRg.Row
    For xFNum = xRg.Rows.Count To 1 Step -1
        Set xxx = xWs.Rows(xFNum + xRS - 1).SpecialCells(xlCellTypeFormulas, xlErrors)
        If (xWs.Rows(xFNum + xRS - 1).EntireRow.SpecialCells(xlCellTypeFormulas, xlErrors) Is Nothing) Then
        Else
            xWs.Rows(xFNum + xRS - 1).EntireRow.Delete
        End If
    Next xFNum

Application.ScreenUpdating = True
End Sub
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations