1、首先打开数据表格，然后按alt+f11快捷键，打开VBA代码界面，如下图所示：
2、插入模块，如下图所示：
3、然后在新的模块里输入如下代码：Sub 将A列数据随机排列到F列()Dim n 钽吟篑瑜As Longn = [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、即可看到输出结果，如下图所示：
