OK, Suppose your column of data is housed in cells A1:A10 (I've used 10 data points for my quick example).
In cell B2 put in this formula:
=IF(ROW(B1) = COLUMN(B1), $A1, "")
now copy this formula over to column J and down to row 10. You shoulw get the values in diagonal.
1. Select all of the values and do a Copy|Paste Special|Values
2. delete all of the values in column A except for the first value in A1.
That should do it.
EDIT:: Nightboy, yeah, I meant to say "B1", not "B2"
_________________<font color = green> Mark O'Brien This message was edited by Mark O'Brien on 2002-09-15 19:19 This message was edited by Mark O'Brien on 2002-09-16 07:57
Dim rng As Range, rng2 As Range, x%
Set rng = [A1:A100]
For x = 2 To rng.Rows.Count
If rng2 Is Nothing Then
Set rng2 = rng(x)
Set rng2 = Union(rng(x).Resize(1, x - 1), rng2)
Thanks Mark, that works although I found I had to put the formula in B1 rather than B2. Also to Jack, I think that your answer might involve VBA (?) which I don't know how to use. I will stick with the normal Excel commands.