VBNet - Форум - Косвенная адресация Rows

Вопрос: Косвенная адресация Rows Добавлено: 24.12.07 17:42

Автор вопроса: boleslav

Будьте добры, помогите...
Создаю макрос, который будет брать содержимое трех последовательно идущих строк и копировать в другие три последовательно идущие строки, потом эти же данные в три другие , затем три строки-источники меняются и новые данные пишутся в очередные три строки...

Раньше делалось так
    Rows(A).Select
    Selection.Copy
    Rows(I).Select
    ActiveSheet.Paste
Rows(c).Select
    Selection.Copy
    Rows(I).Select
    ActiveSheet.Paste
    Rows(D).Select
    Selection.Copy
    Rows(I+1).Select
    ActiveSheet.Paste
    Rows(E).Select
    Selection.Copy
    Rows(I+2).Select
    ActiveSheet.Paste,
где C,D,E,I - косвенные адреса строк

Решил съэкономить на операциях и копировать сразу три строки и вставлять в сразу стри строки
Написал
Rows(C:E).Select
    Selection.Copy
    Rows(I:I+2).Select
    ActiveSheet.Paste
но отладчик говорит, что Rows(C:E).Select - неправильно. Как правильно указать диапазон косвенных адресов?
Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: bi-lya Вопросов: 1 Ответов: 125	Профиль \| \| #1	Добавлено: 24.12.07 18:10
	Смотрите это. Если что - спрашивайте a = 1 ActiveSheet.Cells(a, 1).Resize(, 3).Copy Destination:=Cells(a + 3, 1) Может быть стоит в вашем случае задать цикл Ответить

Номер ответа: 2 Автор ответа: night-roll Вопросов: 36 Ответов: 326	Профиль \| \| #2	Добавлено: 27.12.07 04:24
	диапазон - range range(rows(C),rows(E)).select Ответить

Страница: 1 |