Удаление строк в таблице excel

[Казанский]

Ошибки можно выделить без автофильтра:

Sub DelErr()
On Error Resume Next
With Range("B:B")
    .SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
    .SpecialCells(xlCellTypeConstants, xlErrors).EntireRow.Delete
End With
End Sub

[lakmuss]

Спасибо, но оказалось всё несколько сложней:

Необходимо если в первом значении значение "k" проверить на ошибке один столбец,
а если значение не "k" то проверить на ошибки значения другого столбца.

Можете, пожалуйста, добавить такое условие.

EducatedFool И еще вот такой вопрос: использую Ваш макрос по удалению строки по нескольким условиям столбца - строк 2000, условий пока 15, но может быть добавлено еще. Проверка и удаление занимает порядка 5 минут, может даже больше. Это так и должно быть или у меня что-то не так?
Просто у меня дальше по результатам данной базы идет множество вычислений, но автоматический пересчет формул отключен, поэтому не могу понять то ли макрос так долго выполняется, то ли мои вычисления его тормозят.

Спасибо

[EducatedFool]

Можете, пожалуйста, добавить такое условие.

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

Проверка и удаление занимает порядка 5 минут, может даже больше. Это так и должно быть или у меня что-то не так?

Дело в том, что на сайте у меня выложено НЕСКОЛЬКО разных макросов удаления строк по условиям (см. комментарии к этой статье)

Который из макросов вы используете?

Если тот, который содержит строку

If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)

- то 5 минут это слишком долго (разве что в таблице тысячи столбцов)
Этот код должен отрабатывать за пару секунд.

Если же вы используете что-то вроде этого (цикл)

Sub УдалениеСтрокСОбъединённымиЯчейками()
    Application.ScreenUpdating = False    ' отключаем обновление экрана
   On Error Resume Next    ' отключаем остановку при ошибке

    ТекстДляПоиска = "Наименование ценности"    ' удаляем строки с таким текстом

    Do ' повторяем, пока есть ячейки с заданным текстом
       ActiveSheet.UsedRange.Find(ТекстДляПоиска, , xlValues, xlPart).MergeArea.EntireRow.Delete
    Loop Until Err ' если возникла ошибка (ячейка не найдена) - останавливаемся
End Sub

то 5 минут - это нормальный результат.

Задержка вызвана этим:

    ' перебираем все строки в используемом диапазоне листа
   For Each ra In ActiveSheet.UsedRange.Rows

Перебираются ВСЕ столбцы - а вам, скорее всего, проверку достаточно производить только в некоторых столбцах

[lakmuss]

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

Извините. Прикрепил файл с примером.

Макрос - УдалитьсОшибкой

Задержка вызвана этим:
Код:

' перебираем все строки в используемом диапазоне листа
For Each ra In ActiveSheet.UsedRange.Rows

Перебираются ВСЕ столбцы - а вам, скорее всего, проверку достаточно производить только в некоторых столбцах

Заменил на значение только одного столбца, но как мне кажется теперь оно проверяет весь столбец, аж до конца ВСЕХ ВСЕХ строк Excel поэтому и так долго.

Макрос - УдалениеСтрокПоНесколькимУсловиям

[lakmuss]

никто не знает?

[nilem]

Вот так попробуйте:

Sub ertert()
Application.ScreenUpdating = False
On Error Resume Next
With [a1].CurrentRegion
    .AutoFilter Field:=1, Criteria1:="k"
    With .Columns(6).SpecialCells(12)
        If .Count > 1 Then .SpecialCells(-4123, 16).EntireRow.Delete
    End With
    .AutoFilter Field:=1, Criteria1:="<>k"
    With .Columns(7).SpecialCells(12)
        If .Count > 1 Then .SpecialCells(-4123, 16).EntireRow.Delete
    End With
    .AutoFilter
End With
Application.ScreenUpdating = True
End Sub