# How to copy data from every 100th row?!

J

#### Jim

I have a spreadsheet (2003) that every month imports data from a weather
station â€“ a sheet for each month. There are about 50,000 rows of data for
each month with 17 columns of data â€“ temperature, wind speed etc.
What would like to do is have a macro start at say F2 â€“ copy that data then
paste to say R1 â€“ go back to F2 and move down say 100 rows and copy then
paste to R2 etc.
Any suggestions?!
With thanks

G

#### Gary''s Student

Macros are not needed. In R1 enter:
=F2
In R2 enter:
=INDIRECT("F"&100*(ROW()-1)+2) and copy down

this will get you data from F2, F102, F202, etc.

J

#### JE McGimpsey

You can do it without a macro using

R1: =INDEX(F:F, (ROW()-1)*100+2)

copying down as far as required.

Or you could use a macro:

Public Sub FtoRby100s()
Dim i As Long
For i = 1 To (Cells(Rows.Count, 6).End(xlUp).Row - 1) / 100 + 1
Cells(i, 18).Value = Cells((i - 1) * 100 + 2, 6).Value
Next i
End Sub

F

#### FSt1

hi
i'm confused. do you want just the data in the F column or all the data in
the row from f over to q?

Regards
FSt1

J

#### Jim

Hi there - just the data in F column.
Thanks

FSt1 said:
hi
i'm confused. do you want just the data in the F column or all the data in
the row from f over to q?

Regards
FSt1

F

#### FSt1

hi.
good. you were saying "rows". I took that to mean more than 1 column.
then you should be fixed up by JE and/or Gary

regards
FSt1