Как в удалить кучу строк, через одну?

[levohotnik]

For i = 1 To 5
Rows("i:i").Delete
Next

Господа, подскажите как в E2007 в VBA удалить множество строк через одну?
Заранее спасибо.

[VictorM]

может так?
For i = 1 To 5 Step 2

[EducatedFool]

Господа, подскажите как в E2007 в VBA удалить множество строк через одну?

Почти так, как вы написали: (немного в синтаксисе ошиблись)

Sub УдалитьСтрокиЧерезОдну()
    For i = 1 To 5
        Rows(i).Delete
    Next
End Sub

[levohotnik]

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

Почти так, как вы написали: (немного в синтаксисе ошиблись)

Sub УдалитьСтрокиЧерезОдну()
    For i = 1 To 5
        Rows(i).Delete
    Next
End Sub

Спасибо большое!

[Cone]

Можете не много прокомментировать, получается что для I задаются значения от 1 до 5, получается что удаляются только строки со значением от 1 -до 5 ?????! а почему нет step 2?

Sub УдалитьСтрокиЧерезОдну()
For i = 1 To 5
Rows(i).Delete
Next
End Sub

[levohotnik]

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

Можете не много прокомментировать, получается что для I задаются значения от 1 до 5, получается что удаляются только строки со значением от 1 -до 5 ?????! а почему нет step 2?

Sub УдалитьСтрокиЧерезОдну()
For i = 1 To 5
Rows(i).Delete
Next
End Sub

Рассмотрите выполнение программы пошагово и Вы поймете:
Преположим нам нужно удалить строки 1,3,5,7,9
i=1 : Удаляется первая строка, в то же время вторая строка становится первой, третья второй, четвертая - третьей, пятая - четвертой
i=2 : Удаляется вторая строка, которая первоначально была третей,четвертая становится уже второй, пятая строка становится уже третьей...
и т.д.

[VictorM]

почему нет step 2?

Рассмотрите выполнение программы пошагово и Вы поймете:

Да вот я тоже тут протупил))
Все работает правильно без step