- Код: Выделить всё
Dim i As Long
For i = 125 To 17292
Rows("i:i+10").Select
Selection.Delete Shift:=xlUp
i = i + 49
Next i
но выходит ошибка type mismatch? я понимаю, что тип у меня LONG? а я в Rows указываю в кавычках и он понимает как строку, но тогда какой нужен ситаксис, чтобы было правильно ?[/syntax]