Перейти до основного матеріалу

Як швидко знайти та видалити всі рядки з помилками в Excel?

У цій статті представлені методи швидкого отримання списку останніх або поточних відкритих для вас файлів Excel.


Знайдіть і видаліть усі комірки з помилками за допомогою Go To Special

В Excel ви можете застосувати спеціальну функцію "Перейти до", щоб знайти комірки з помилками, а потім видалити вміст комірки.

1. Виберіть діапазон або цілий аркуш, а потім натисніть Ctrl + G щоб включити Перейти до діалог

2. клацання спеціальний до Перейти до спеціального діалогове вікно, потім перевірте Формули варіант, під Formula варіант, перевірити помилки лише прапорець.
doc find видалення помилок 1

3. клацання OK, вибрано всі комірки з помилками, натисніть видаляти ключ для видалення помилок.
doc find видалення помилок 2


Знайдіть і видаліть усі комірки з помилками за допомогою розширеного інструменту

Якщо ви хочете швидко знайти та видалити всі комірки з помилками, ось інструмент у Kutools для Excel може допомогти вам вирішити цю роботу за допомогою кліків.

Завантажте ваш Excel одним костюмом Excel
300+ професійних та простих у користуванні інструментів для Excel 2019-2003

після безкоштовне встановлення Kutools для Excel (60-денна безкоштовна пробна версія), будь ласка, виконайте кроки нижче.

1. Виберіть діапазон, в якому ви хочете знайти комірки помилок, натисніть Кутулс > Select > Виберіть Осередки зі значенням помилки.
doc find видалення помилок 3

2. Тепер усі клітинки помилок вибрано, натисніть OK щоб закрити діалогове вікно, що з'явилося, натисніть кнопку видаляти для видалення значень помилок.
doc find видалення помилок 4
doc find видалення помилок 5


Видаліть усі рядки з помилками за допомогою VBA

В Excel існує код VBA, який дозволяє видалити всі рядки з помилками одночасно.

1. прес Alt + F11 клавіша для ввімкнення Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі створити новий Модулі сценарій

2. Скопіюйте та вставте код нижче в скрипт.

VBA: Видаліть рядки помилок

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. прес F5 клавіша ,, тоді всі рядки помилок були видалені.


Знайдіть і видаліть усі рядки з помилками за допомогою Super Filter

Команда Супер фільтр корисність Kutools для Excel може фільтрувати рядки з помилками, тоді ви можете їх видалити.

після безкоштовне встановлення Kutools для Excel (60-денна безкоштовна пробна версія), будь ласка, виконайте кроки нижче.

1. Виберіть діапазон даних, який ви використовуєте, натисніть Kutools Plus > Супер фільтр для того, щоб Панель суперфільтра.
doc find видалення помилок 6

2 В Супер фільтр , додайте критерій, як показано нижче:

1) Виберіть заголовок стовпця, який ви використовуєте для фільтрування;

2) Виберіть помилка з другого випадаючого списку;

3) Виберіть Так само з третього випадаючого списку;

4) Виберіть Всі помилки з останнього випадаючого списку.
doc find видалення помилок 7

3. клацання Ok щоб додати критерій, натисніть фільтр фільтрувати рядки з помилками.
doc find видалення помилок 8

Тепер рядки з помилками у стовпці Дані відфільтровано.
doc find видалення помилок 9

4. Потім виділіть ці рядки по одному, клацніть правою кнопкою миші, щоб відобразилось контекстне меню, виберіть Видалити рядок.
doc find видалення помилок 10

Тепер рядки з помилками видалено. Клацніть Очистити кнопка в Супер фільтр для відображення інших рядків.
doc find видалення помилок 11

Чайові: З Супер фільтр Ви також можете фільтрувати # ІМ'Я? помилка або # DIV / 0 або лише інша конкретна помилка.
doc find видалення помилок 12

Супер фільтр це професійний інструмент фільтрації, який може фільтрувати рядки за кількома критеріями та забезпечує критерій, який Excel не може підтримувати. Клацніть тут for details.
doc find видалити помилки -


Інші операції (статті), пов’язані з фільтруванням

Фільтрувати дані на основі списку
Цей підручник містить трюки щодо фільтрації даних на основі даних списку в Excel.

Дані фільтра містять зірочку
Як ми знаємо, ми використовуємо маску зірочки, щоб витримувати будь-які символи, коли ви фільтруєте дані, але як ви можете це зробити, якщо ви хочете фільтрувати дані, що містять маску зірочки? Тепер ця стаття представляє метод фільтрації даних, якщо він містить зірочку або інші спеціальні символи в Excel.

Фільтруйте дані за критеріями або підстановкою
Якщо ви хочете фільтрувати дані за кількома критеріями, як ви можете це зробити? Цей підручник розповідає про те, як встановити кілька критеріїв та фільтрувати дані в Excel.

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
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