随即排序算法

 直接在excel里随即排序不成功，只有采用迂回的战术。

Sub random()

Dim i As Integer
Dim myArray(468) As Single

For i = 0 To 468
myArray(i) = Sheet2.Cells(i + 2, 2)
Next i

Dim j As Integer
For j = 0 To 468
pos = Int((468 - j + 0) * Rnd + 0)
temp = myArray(pos)
myArray(pos) = myArray(j)
myArray(j) = temp
Next j

Dim k As Integer
For k = 0 To 468
Sheet2.Cells(k + 2, 3) = myArray(k)
Next k

MsgBox "done!"

End Sub