how to copy cells data in every 7th row?
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
|