how to copy cells data in every 7th row?

J

Jeff

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
 
T

Toppers

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
 
D

David Billigmeier

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
 
Top