Вопрос по циклу и диапазону

Программирование на Visual Basic for Applications
dmitriy22
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 121
Зарегистрирован: 27.04.2006 (Чт) 12:04
Откуда: Москва

Вопрос по циклу и диапазону

Сообщение dmitriy22 » 16.01.2008 (Ср) 17:58

вот создаю макрос в Excel, хочу удалять диапазоны строк, т.е с 125 по 135, затем с 173 по 184 и т.д.

Код: Выделить всё
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]
Я не волшебник, я просто учусь.

alex_gearbox
Новичок
Новичок
 
Сообщения: 41
Зарегистрирован: 09.01.2008 (Ср) 21:34
Откуда: г. Волгоград

Сообщение alex_gearbox » 16.01.2008 (Ср) 21:03

Код: Выделить всё
Rows("" & i & ":" & (i + 10) & "").Delete Shift:=xlUp

Select и Selection "пропускаем".
Последний раз редактировалось alex_gearbox 24.02.2010 (Ср) 23:42, всего редактировалось 1 раз.

dmitriy22
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 121
Зарегистрирован: 27.04.2006 (Чт) 12:04
Откуда: Москва

Сообщение dmitriy22 » 17.01.2008 (Чт) 1:10

спасибо :)
Я не волшебник, я просто учусь.

alibek
Большой Человек
Большой Человек
 
Сообщения: 14205
Зарегистрирован: 19.04.2002 (Пт) 11:40
Откуда: Russia

Сообщение alibek » 17.01.2008 (Чт) 9:54

Удалять лучше снизу вверх.
Lasciate ogni speranza, voi ch'entrate.

Igor_123
Осторожный Баянист
Осторожный Баянист
Аватара пользователя
 
Сообщения: 1325
Зарегистрирован: 21.07.2004 (Ср) 13:00
Откуда: Днепропетровск

Сообщение Igor_123 » 17.01.2008 (Чт) 15:35

alibek писал(а):Удалять лучше снизу вверх.


Это понимаеш уже после того как :)
Водки я вам не обещаю, но погуляем хорошо.
И. Сусанин.

Аватара (с) Тёмыч


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: Mail.ru [бот] и гости: 77

    TopList