Макрос: удаление строк если в колонке А число 5

[Insainer]

не понятно почему я меняю параметр (что бы не стирать две первые строки) мне показывает ошибку

Потому что строки 0, и тем более -1 и -2 не существует, чтобы не стирать последние, надо вместо -1 нарисовать 4, тогда последней итерацией будет удаление строки 3.
Без массива так можно:

Sub DeleteEmptyRows()
    Set ws = ActiveSheet 
    On Error GoTo Error_Del
    For i = ws.UsedRange.Rows.Count To 4 Step -1
        If Cells(i, 1) = 5 Then ws.Rows(i).Delete
    Next i
Error_Del:
ws.Rows(i).Delete
Resume Next
End Sub

Насчет модуля 2 обращайтель к автору темы...

[jungo]

Insainer

Респект и уважуха! Всё получилось!

Может поможешь с проблемой вот тут?
http://www.programmersforum.ru/showthread.php?t=13893

[Leanna]

ну туда опубликовала

[Leanna]

опять не туда опубликовалось

[jungo]

Сообщение от Insainer

Потому что строки 0, и тем более -1 и -2 не существует, чтобы не стирать последние, надо вместо -1 нарисовать 4, тогда последней итерацией будет удаление строки 3.
Без массива так можно:

Sub DeleteEmptyRows()
    Set ws = ActiveSheet 
    On Error GoTo Error_Del
    For i = ws.UsedRange.Rows.Count To 4 Step -1
        If Cells(i, 1) = 5 Then ws.Rows(i).Delete
    Next i
Error_Del:
ws.Rows(i).Delete
Resume Next
End Sub

Это стирает мне 3-4-ую строку!!!

А я не хочу стирать ничего кроме строки с цифрой "5".

[Insainer]

Вернее будет выразиться, обрабатывает 3 строку... sorry:

[jungo]

Сообщение от Insainer

Вернее будет выразиться, обрабатывает 3 строку... sorry:

Включился чайник и я всё сам понял.

Пасибки, ГЫ ГЫ ГЫ

[SAS888]

Прошу прощенья, но ведь

ws.UsedRange.Rows.Count

вернет количество используемых строк, а в цикле перебор от этой цифры до строки 4. Если, например, вся таблица расположена со строки 100 до строки 102, то цикл получится "For 3 To 4 Step -1", что есть ошибка.
Почему бы не перебирать строки столбца "A" от последней заполненной до 4 с шагом -1? Ошибка (или неверные границы цикла) в таком случае исключена.
Или еще пример:
Если первая строка пустая, то Ваш код не обработает последнюю, если первые две пустые - две последние и т.д.

[Insainer]

On Error я использовал потому-что при удалении некоторых строк значение ячеек верхних, ссылавшихся на ячейку этой удаленной строки выдает #ССЫЛКА, а не 5, 0. Эти строки нужно тоже удалить. Конечно, можно спорить бесконечно по поводу оптимизации кода, и это хорошо. Если у вас есть более красивый вариант, я с удовольствием посмотрю его...

Если первая строка пустая, то Ваш код не обработает последнюю, если первые две пустые - две последние и т.д.

Тогда можно задать еще условие, при котором работа цикла завершается, если значение ячейки is Null, либо <>0, 5, Err, как-то так...

[SAS888]

Извени еще раз. Не хотел обидеть. Ваш код вполне приемлем. Более того, я бы сделал так же. Но Вы согласны с моей поправкой? Корректнее:

For i = ws.Cells(Columns("A").Rows.Count, "A").End(xlUp).Row To 4 Step -1