Перейти к основному содержанию

Как быстро найти и удалить все строки с ошибками в Excel?

Эта статья познакомит вас с методами быстрого получения списка последних или текущих открытых файлов Excel.


Найдите и удалите все ячейки с ошибками с помощью Go To Special

В Excel вы можете применить функцию «Перейти к специальной», чтобы найти ячейки с ошибками, а затем удалить их содержимое.

1. Выберите диапазон или весь лист, затем нажмите Ctrl + G для Перейти к Диалог.

2. Нажмите Особый до Перейти к специальному диалоговое окно, затем проверьте Формулы вариант, под Формула вариант, проверьте ошибки только флажок.
документ найти удалить ошибки 1

3. Нажмите OK, все ячейки с ошибками выделены, нажмите Удалить ключ для удаления ошибок.
документ найти удалить ошибки 2


Найдите и удалите все ячейки с ошибками с помощью расширенного инструмента

Если вы хотите быстро найти и удалить все ячейки с ошибками, вот инструмент в Kutools for Excel может помочь вам решить эту задачу одним щелчком мыши.

Загрузите свой Excel с помощью одного костюма Excel
Более 300 профессиональных и простых в использовании инструментов для Excel 2019-2003

После бесплатная установка Kutools for Excel (60-дневная бесплатная пробная версия), выполните следующие действия.

1. Выберите диапазон, в котором вы хотите найти ячейки с ошибками, нажмите Кутулс > Выберите > Выберите ячейки со значением ошибки.
документ найти удалить ошибки 3

2. Теперь все ячейки с ошибками выделены, щелкните OK чтобы закрыть всплывающее диалоговое окно с напоминанием, затем нажмите Удалить клавиша для удаления значений ошибок.
документ найти удалить ошибки 4
документ найти удалить ошибки 5


Удалите все строки с ошибками с помощью VBA

В Excel есть код VBA, позволяющий удалить сразу все строки с ошибками.

1. Нажмите Alt + F11 ключ для включения Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули для создания нового Модули скрипты.

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 клавиша ,, тогда все строки ошибок будут удалены.


Найдите и удалите все строки с ошибками с помощью Суперфильтра

Ассоциация Суперфильтр полезности Kutools for Excel может фильтровать строки с ошибками, а затем удалять их.

После бесплатная установка Kutools for Excel (60-дневная бесплатная пробная версия), выполните следующие действия.

1. Выберите используемый диапазон данных, нажмите Кутулс Плюс > Суперфильтр включить Панель суперфильтра.
документ найти удалить ошибки 6

2. в Суперфильтр панели добавьте критерий, как показано ниже:

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

2) Выбрать Ошибка из второго выпадающего списка;

3) Выбрать Равно из третьего выпадающего списка;

4) Выбрать Все ошибки из последнего выпадающего списка.
документ найти удалить ошибки 7

3. Нажмите Ok чтобы добавить критерий, затем нажмите ФИЛЬТР для фильтрации строк с ошибками.
документ найти удалить ошибки 8

Теперь отфильтрованы строки с ошибками в столбце Данные.
документ найти удалить ошибки 9

4. Затем выберите эти строки одну за другой, щелкните правой кнопкой мыши, чтобы отобразить контекстное меню, выберите Удалить строку.
документ найти удалить ошибки 10

Теперь строки с ошибками удалены. Нажмите Сбросить в Суперфильтр для отображения других строк.
документ найти удалить ошибки 11

Функции: С Суперфильтр панель, вы также можете фильтровать # ИМЯ? ошибка или # DIV / 0 или только другая конкретная ошибка.
документ найти удалить ошибки 12

Суперфильтр - это профессиональный инструмент фильтрации, который может фильтровать строки по нескольким критериям и обеспечивает критерий, который Excel не поддерживает. Нажмите здесь для получения информации.
документ найти удалить ошибки


Другие операции (статьи), связанные с фильтрацией

Фильтровать данные по списку
В этом руководстве представлены приемы фильтрации данных на основе данных заданного списка в Excel.

Данные фильтра содержат звездочку
Как мы знаем, мы используем маску звездочки для обозначения любых символов при фильтрации данных, но как это сделать, если вы хотите отфильтровать данные, содержащие маску звездочки? Теперь в этой статье представлен метод фильтрации данных, если они содержат звездочку или другие специальные символы в Excel.

Фильтровать данные с помощью критериев или подстановочных знаков
Если вы хотите фильтровать данные по нескольким критериям, как вы можете это сделать? В этом руководстве рассказывается, как установить несколько критериев и отфильтровать данные в Excel.

Лучшие инструменты для офисной работы

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

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 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