one way:

in B2 insert the formula:

=IF(MOD(ROW()-1,8),"",A1)

copy down

then select the whole range in col B, copy-pasteSpecial-Values

or through VBA


Sub moving()

For i = 1 To 100
If ((Cells(i, "A").Row - 1) Mod 8) = 0 Then
Cells(i, "A").Offset(0, 1).Value = Cells(i, "A").Value
End If
Next i

End Sub

suit 100 to suit


U¿ytkownik "jdpf" napisa³ w wiadomo¶ci
...
How can I select the data in non adjacent rows of a column (eg. A1, A9.
A17.
A25.......A800, A 808, A816 etc.) and place it into another column? The
data
I need to select is consistently 8 rows apart in a very large spreadsheet.
I
am using Excel 2003.