can this be done simply ?
Gary''s Student wrote:
It can be done with a very small macro:
Sub Macro1()
Dim r1, r2 As Range
For i = 1 To 200
Set r1 = Sheets("Sheet1").Rows(i)
Set r2 = Sheets("Sheet2").Rows(9 * (i - 1) + 1)
r1.Copy r2
Next
End Sub
--
Gary's Student
worked like a charm.
Thank you very much.
" wrote:
I have say 200 rows in sheet 1.
I want to copy row 1 sheet 1 to row 1 of sheet 2
row 2 of sheet 1 to row 10 of sheet 2
row 3 to row 19
row 4 to row 28
ROW i gets copied to ROW 9*(i-1) + 1
Thanks for any help.
|