Удаление определеных строк

[Vik-00]

Помогите решить оду задачку, вижу ошибку но не знаю как ее решить. Мне надо удалить определенные диапазоны строк но я не силен в свойствах Rows и мне все время выдает ошибку. кусок кода здесь, а строки должны удаляться так 3-6, затем 4-7, 5-8 и так далее до тех пор пока не кончаться значения в столбце A.

p = 3
Do While Range("A" + Trim(Str(p))).Value <> ""
Rows(p, p + 3).Select
Selection.Delete Shift:=xlUp
p = p + 1
Loop

[IgorGO]

а напишите-ка вместо вашего кода такую строку:
Range([a3], [a3].End(xlDown)).Delete

[Vik-00]

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

а напишите-ка вместо вашего кода такую строку:
Range([a3], [a3].End(xlDown)).Delete

это не то. тут действие со строкой и столбцом.

[pivas]

Если до меня правильно дошёл смысл задачи, то можно попробовать вместо красной строки такое:

For i = 1 To 4
Rows(p).Select

[SAS888]

Я бы сделал так:

Dim i As Long, x As Range
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
    If (i - 2) Mod 5 <> 0 Then If x Is Nothing Then Set x = Rows(i) Else Set x = Union(x, Rows(i))
Next
x.Delete

[Vik-00]

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

Если до меня правильно дошёл смысл задачи, то можно попробовать вместо красной строки такое:

For i = 1 To 4
Rows(p).Select

Тут не уверен, или я не понимаю. Мне надо удалять диапазон строк, по принципу с 3 по 6 потом с 4 по 7 и так до конца списка.

[Vik-00]

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

Я бы сделал так:

Dim i As Long, x As Range
For i = 3 To Cells(Rows.Count, "A").End(xlUp).Row
    If (i - 2) Mod 5 <> 0 Then If x Is Nothing Then Set x = Rows(i) Else Set x = Union(x, Rows(i))
Next
x.Delete

Не получилось, exel просто повис и все, пришлось жестко выгружать. У меня около 42 000 строк в результате этой операции должно остаться 8 000

[pivas]

В данном варианте начиная с 3 строки удаляются диапазоны по 4 строки, т.е. каждая пятая остаётся.

Sub Udalenie()
p = 3
Do While Range("A" + Trim(Str(p))).Value <> ""
For i = 1 To 4
Rows(p).Select
Selection.Delete Shift:=xlUp
Next i
p = p + 1
Loop
End Sub

или опять не то?

[Vik-00]

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

В данном варианте начиная с 3 строки удаляются диапазоны по 4 строки, т.е. каждая пятая остаётся.

Sub Udalenie()
p = 3
Do While Range("A" + Trim(Str(p))).Value <> ""
For i = 1 To 4
Rows(p).Select
Selection.Delete Shift:=xlUp
Next i
p = p + 1
Loop
End Sub

или опять не то?

Да это работает, единственное занимает достаточно много времени. Может возможно как то ускорить ??? У меня около 52 000 строк оказалось, и эта работа где то за час укладываеться.

[pivas]

Попрбуй это:

Sub Udalenie()
Application.ScreenUpdating = False
p = 3
Do While Range("A" + Trim(Str(p))).Value <> ""
Range(Cells(p, 1), Cells(p + 3, 1)).Select
Selection.EntireRow.Delete
p = p + 1
Loop
Application.ScreenUpdating = True
End Sub

У меня 65000 строк обрабатывал около 2-3 минут