Скопируйте и вставьте несколько раз

Question

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

Диапазон A1 до A15 с буквами

Диапазон D1 до D15 пуст

Скопируйте значение в диапазоне A1 до B1, а затем скопировать значение в Range С1 D1.

Затем скопируйте значение в диапазоне от A2 до B1, а затем скопируйте значение в диапазоне от C1 до D2.

Повторите эти шаги до тех пор, пока не будет скопирован диапазон A15 и результат в D15.

Благодарим вас за чтение.

Answer 1

Это должно делать то, что вы просите.

Private Sub simpleCopyLoop() 
Dim row As Long 

For row = 1 to 15 

    Sheets("Sheet1").Cells(row, "B").Value = Sheets("Sheet1").Cells(row, "A").Value 
    Sheets("Sheet1").Cells(row, "D").Value = Sheets("Sheet1").Cells(row, "C").Value 

Next row 

End Sub