请问如何在Excel中，将一列数据自动随机排列，并把结果自动生成为新的一列？

请问如何在Excel中，将一列数据自动随机排列，并把结果自动生成为新的一列？

在B1单元格输入以下公式，然后向下填充公式
=RAND()
在D1单元格输入以下公式，然后向下填充公式
=INDEX(A:A,MATCH(LARGE(B:B,ROW(A1)),B:B,0))追问大神！

写个VBA版本，代码如下：Sub A列随机排序()
Dim rcA, i, w, k, c As Long
Dim s As String
rcA = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To rcA
    s = Range("A" & i)
     'Debug.Print s
    Do
    Randomize
    w = Int((rcA * Rnd + 1))
    If Range("B" & w) = "" And w <> c Then
       Range("B" & w) = s
       c = w
       Exit Do
    End If
    Loop
Next
End Sub

使用excel VBA