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

[enigma88]

Необходим макрос удаления каждой 2,3,4,5,6 ячейки и так по циклу, оставляя при этом 1,7,13 и так далее.
Заранее спасибо тому, кто уделит время на написание.

[EducatedFool]

а вы сами пробовали написать?
тут помогают вам в решении задачи, а не делают готовые макросы.

что конкретно не получается?
для чего это вообще нужно?

[Казанский]

пробуйте

Sub enigma88()
Dim i&
  Application.ScreenUpdating = False
  For i = (ActiveSheet.UsedRange.Rows.Count \ 6) * 6 + 1 To 1 Step -6
    Range(i + 1 & ":" & i + 5).Delete
  Next
  Application.ScreenUpdating = True
End Sub

[enigma88]

Сообщение от Казанский

пробуйте

Sub enigma88()
Dim i&
  Application.ScreenUpdating = False
  For i = (ActiveSheet.UsedRange.Rows.Count \ 6) * 6 + 1 To 1 Step -6
    Range(i + 1 & ":" & i + 5).Delete
  Next
  Application.ScreenUpdating = True
End Sub

Благодарю! Очень помогли

[enigma88]

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

а вы сами пробовали написать?
тут помогают вам в решении задачи, а не делают готовые макросы.

что конкретно не получается?
для чего это вообще нужно?

Пробовал, просто нету времени разбираться в синтаксисе exel.