Place the following formula in B1

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

and the following in C1

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

Copy the two formulas down as far as necessary. Select the formulas and use
Edit|Copy then Edit|Paste Special and choose the Values option to convert
the formulas to numbers. Now delete the A column.

The above formulas can be used on any column of numbers and it does not need
to start in row 1. Just change the A1 and $A$1 references to the first cell
in the column of numbers.

--
John Green
Sydney
Australia


"hornsby" wrote in message
...
I need to move every other number in a column of numbers to an adjacent
column and then close the gap. Example: Move a2 to b1 and delet row 2,
move
a4 to b2 and delete row 4. I need to repeat this task 25,000 times.
Recording a macro doesn't seem to work.