Страница 1 из 1
цикл для копирования произвольного блока
Добавлено: 11 дек 2007, 17:20
nub
есть столбец А(m):A(n) с заданным количеством строк, его необходимо скопировать определённое число раз (от 1 до 300) в другие столбцы, начиная с заданной ячейки Cell(i;j), помогите, пожалуйста... моей, никакой, квалификации не хватает....
Re: цикл для копирования произвольного блока
Добавлено: 11 дек 2007, 17:23
nub
сорри за дубль, модераторы, пожалуйста удалите повтор
Re: цикл для копирования произвольного блока
Добавлено: 11 дек 2007, 17:50
packer
nub писал(а):есть столбец А(m):A(n) с заданным количеством строк, его необходимо скопировать определённое число раз (от 1 до 300) в другие столбцы, начиная с заданной ячейки Cell(i;j), помогите, пожалуйста... моей, никакой, квалификации не хватает....
Код: Выделить всё
Sub copycol()
'Копируем столб A1:A20 99 раз начиная с ячейки B1, C1, D1 ...
Dim i As Long
For i = 2 To 100
Range("A1:A20").Copy Destination:=Range(Cells(1, i), Cells(1, i))
Next i
End Sub
Что поменять в коде для копирования в произвольные места, Вы, надеюсь, догадаетесь.
Re: цикл для копирования произвольного блока
Добавлено: 13 дек 2007, 11:01
nub
Огромное спасибо!!!!