1、首先打开数据表格，然后按alt+f11快捷键，打开VBA代码界面，如下图所示：
2、插入模块，如下图所示：
3、然后在新的模块里输入如下代码：
Sub 将A列数据随机排列到F列()
Dim n As Long
n = [a65536].End(xlUp).Row
[f1].Resize(n, 1) = [a1].Resize(n, 1).Value
[g1].Resize(n, 1) = "=rand()"
[f:g].Sort [g1]
[g:g] = ""
End Subb，如下图所示：
4、回到excel界面快捷键alt+f8打开宏执行对话框，如下图所示：
5、找到对应的命令，单击执行按钮，如下图所示：
6、即可看到输出结果，如下图所示：
