how to copy cells data in every 7th row?

[Guest]

Hi,
I have a column of data from A2 to A65000 and I am only interested in
every 7th data point (e.g. A2, A9, A16....). Is there a way to get those
selected points and store them in the next column (B) consecutviely (b1, b2,
b3, b4, ...)?

Thanks,

Jeff

 

[Guest]

Jeff,

Sub Get7()
Dim outrng As Range
Dim i As Long
Set outrng = Range("b1")
Lastrow=cells(rows.count,1).end(xlup).row
For i = 2 To lastrow Step 7
outrng = Cells(i, 1)
Set outrng = outrng.Offset(1, 0)
Next i
End Sub


HTH

 

[Tom Ogilvy]

=Indirect("A" & (row()-1)*7+2) in B1 then drag fill down.

 

[Guest]

Place this in B1 and drag down:

=OFFSET($A$2,(ROW()-1)*7,0)

*Note that if you place it in any other row besides the first you'll have to
do some slight modification from the way it is currently written