Как скопировать диапазон несколько раз?

[Алексей11111]

Подскажите плз. как скопировать диапазон к примеру ("A1:D3") под друг другом...т.е. следующий находится под первым, следующий под вторым...и так 100 раз?

[SAS888]

Например так:

Dim i As Integer: Application.ScreenUpdating = False
For i = 4 To 300 Step 3: [A1:D3].Copy Cells(i, 1): Next

[Алексей11111]

Ничего не понял, а как тогда сделать для большого диапазона A13:P97? и нужно будет скопировать 230 раз???

[Алексей11111]

Не получается почему-то по аналогии...

[Юнлинг]

Сообщение от Алексей11111

Не получается почему-то по аналогии...

Может быть так будет более понятно

Dim i As Integer: Application.ScreenUpdating = False
For i = 1 To 230 Step 3: [A13:P97].Copy Cells(i*85+13, 1): Next

где 85 - разница строк плюс 1,
а 13 - номер первой строки

[Алексей11111]

Попробуй и ничего не получится...

[Алексей11111]

Спасибо, так понятнее, только оно как-то не так копирует, не сразу после каждого диапазона..

[SAS888]

Sub Main()
    Dim i As Long: Application.ScreenUpdating = False
    For i = 98 To 85 * 230 Step 85: [A13:P97].Copy Cells(i, 1): Next
End Sub

98 - строка, начиная с которой будем вставлять данные.
85 - № последней строки диапазона минус № первой строки диапазона плюс 1
230 - количество копирований

[Алексей11111]

А всё спасибо большое, разобрался...там немного поменьять надо было...

[Алексей11111]

Сообщение от triton

Тяжёлый случай.

А ты если такой умный, хоть бы одно слово умное сказал...