Kопировать ячейки со смещением

[Andrej092]

здравствуйте,
Помогите пожалуйста скопировать данные с листа 2 на Лист 1 с расстоянием в 40 линий. т.е
С Листа2 А1 на Лист 1 А1,
С Листа 2 А2 на Лист 1 А40
С Листа 2 А3 на Лист 1 А80 и тд

Я в ВБА начинающий, искал в нете но не нашел ничего подходящего....

Спасибо заранее

Извините но файл не пристегивается... но может и так понятен вопрос

[maksim_serg]

Sub myCopy()
Dim RowCount As Integer ' число копируемых строк
RowCount = 8
For i = 0 To RowCount - 1
    Sheets(1).Cells(i + 1, 1).Value = Sheets(2).Cells(i * 40 + 1, 1).Value
Next
End Sub

Вот только между 1 и 40 строкой всего 39 строк...

[Andrej092]

Большое спасибо, все работает
Только я значения местами поменял ....
И переменную "i" обозначил а то макрос ругался ( надеюсь я правильную переменную ему присвоил )

 Sub myCopy()
Dim RowCount As Integer, i As Variant
RowCount = 15
For i = 0 To RowCount - 1
    Sheets(1).Cells(i * 39 + 1, 1).Value = Sheets(2).Cells(i + 1, 1).Value
Next
End Sub

Но у меня есть еще пару вопросов к знающим(извините за пытливость ума ):
1. Зачем нужно присваивать переменную "RowCount" если и без нее работает ?
For i = 0 To 100
2. Как скопировать диапазон ячеек с Листа2 (B3:C8) на Лист1 10 раз с таким же успехом, т.е на Листе 2 только один диапазон и он копируется 10 раз с рассоянием ...

[maksim_serg]

можно и не присваивать, просто написал, что б понятней было:

Sub myCopy()
Dim i As Integer
For i = 0 To 14
    Sheets(1).Cells(i * 39 + 1, 1).Value = Sheets(2).Cells(i + 1, 1).Value
Next
End Sub

For i = 0 To 9
    Sheets(1).Cells(i * 39 + 1, 1).Resize(6, 2).Value = Sheets(2).Cells(3, 2).Resize(6, 2).Value
Next i

[Andrej092]

Все правильно! надо переменные присваивать! Oнa показывает сколько раз я буду копировать!!!
СПАСИБО ОГРОМНОЕ. А вот я сам додумался как диапазон копировать. Если вы можете предложит вариант получше я буду только рад .

Sub MyCopy2()
Dim RowCount As Integer, i As Variant
Sheets("Ark2").Select
    
    RowCount = 4
    For i = 0 To RowCount - 1
    Range("B1:M39").Copy Destination:=Cells(i * 39 + 1, 2)
    
    Next
End Sub

[maksim_serg]

смотрите выше

[Andrej092]

Благодарствую. Сегодня вечером подниму в ваше здоровье стопарик датцкого травяного напитка.
Удачных выходных вам !!!

[maksim_serg]

Спасибо. А у меня виски в холодильнике лежит