Удаление сразу нескольких строк подряд...

[Andrey_K]

В поиске не смог найти ничего подходящего....
Итак, у меня есть некий динамический список с данными.
По определенному условию мне необходимо удалить определенное количесво строк подряд, сколько строк удалять я знаю, с какого места, определяется переменной.
Итак, единственное решение которое я нашел это создать цикл. Что то типа:
For i=1 to 19
Rows(i).Select
next i
Selection.Delete Shift:=xlUp

Но может быть есть более простое решение чем создание цикла?
Может в это выражение Rows("1:12").Select можно как то засунуть переменные?

'Соответственно вместо 1 и 12 надо вставить переменные.....

[alibek]

Кто мешает сделать так: Trim$(Str$(i)) & ":" & Trim$(Str$(i+18)) ?

[Andrey_K]

Вау, так работает как надо
А коротенько так не скажите что это за выражения
Trim$(Str$(i) - как это работает?

[alibek]

Преобразует числовое значение в строковое и убирает хвостовые пробелы.

[Andrey_K]

Хм, не знал что такая схема может работать в самой формуле (по сути в самой программе)....

[Чудовище под кроватью]

Andrey_K
А цикл тут зачем? Берешь строку:

Код: Выделить всё

Row(i)

увеличиваешь ее на несколько строк:

Код: Выделить всё

Row(i).Resize(19)

Удаляешь все 19:

Код: Выделить всё

Row(i).Resize(19).EntireRow.Delete

Т.е. все в одно действие и без цикла.

[Andrey_K]

Row(i).Resize(19)

ошибку пишет: "Sub or Function not defined"

[Pavel55]

букву s пропустили у RowS, т.е.

Код: Выделить всё

Rows(i).Resize(19).EntireRow.Delete