Проблемы с удалением строк (VBA)

[WennY]

Доброго времени суток. Есть книга со строками примерно такого вида:



Задача: полностью снести те строки, у которых рейтинг меньше одного процента. Делаю это так:

Книга1.Worksheets("Статистика").Range("A" + CStr(c.Row) + ":E" + CStr(c.Row)).EntireRow.Delete

но по непонятным причинам удаляются не все строки, а лишь часть, и чтобы отфильтровать все, нужно макрос раз эдак 15 запустить Условие срабатывает нормально, строки тоже проходит все до конца - проверял. Такое ощущение, что он просто не успевает доудалить. Буду благодарен за любые комментарии по этому поводу, спасибо

[Hugo121]

"До конца" - а нужно "до начала".
И можно покороче:

Книга1.Worksheets("Статистика").Rows(c.Row).EntireRow.Delete

И обычно в VBA для конкатенации строк пишут не +, а &

[Казанский]

Эта команда удаляет одну строку, причем тут много лишнего. А что такое с?

Задачу "полностью снести те строки, у которых рейтинг меньше одного процента" следует решать с помощью автофильтра: после того, как отфильтровали строки с рейтингом меньше одного процента, примерно такое действие:

With ActiveSheet.AutoFilter.Range
    .Rows(2).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

[WennY]

Немного не понял я вас..

[WennY]

Эта команда удаляет одну строку

Это, мягко говоря, немножко не полный код Разумеется, работает это в цикле

причем тут много лишнего

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

Hugo121, спс за наставление, так и чуял, что можно по-людски это как-то оформить.. Щас попробую

[Hugo121]

"До начала" - это значит, что строки (и столбцы) нужно удалять с конца к началу.
Т.е. снизу вверх и справа налево, и цикл пускать
for i = 100 to 1 step -1
Потому что после удаления строки сразу же сдвигаются.
Но лучше конечно как сказал Казанский - автофильтром. Техничнее и быстрее.

[WennY]

Потому что после удаления строки сразу же сдвигаются.

Блин, точно Теперь понятно все, спасибо, щас попробую с автофильтром разобраться спс

[WennY]

Казанский, а не подскажите, как фильтр заставить перестать воспринимать знак процента как часть аргумента при фильтрации чисел? Можно это как-то силами именно фильтра, или надо опять страдать циклами-реплейсами?

P.S. Разобрался, спасибо

[WennY]

Действительно, автофильтр - крайне удобная вещь, буду всегда иметь в виду, всем отписавшимся большое спасибо за проявленный интерес к моему топику, вопрос более не имею