how to copy cells data in every 7th row?

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

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

"Jeff" wrote:

> 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
>

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

--
Regards,
Dave


"Jeff" wrote:

> 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
>

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

--
Regards,
Tom Ogilvy

"Jeff" <[email protected]> wrote in message
news:[email protected]...
> 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
>