Използване на линия за копиране и поставяне - vba, контури, копиране, поставяне

Аз съм начинаещ VBA кодер и се опитвам даразберете как да работите с контур в моята електронна таблица. Опитвам се да отхвърля колекция от информация за заема, която имам, но само като основна рамка за спецификата на въпроса си, създадох следните случайни числа в колона ("A: A") в първия работен лист на работната книга:

5 241 4 5 648 87 65 74 52 1

Цикълът, който използвам, е:

Sub LoopTest()
Dim i As Integer
For i = 1 To 10
Range(i,1).Select.Copy Destination:=Range(i,5)
Next i

Така че по същество се опитвам да копирам първата клеткав ред 1, колона 1 и го поставете в ред 1, колона 5 и след това завъртете на ред 2, колона 1 и го поставете в ред 2, колона 5 и т.н. и т.н. да циклично от първия ред данни до какъвто и да е последният ред от данни (и аз съм наясно, че е възможно), но не съм наясно как да го направя.

Благодаря.

Отговори:

Не знам защо трябва да направите това по ред. Не можете да копирате A1: A: 10 и да го поставите в E1: E10 вместо това? Това ще ви накара да не се налага да правите цикъл.

Обхват ("A1"). Диапазон на копиране ("E1")

Това копие на A1 до E1.