作者：乔山办公网日期：
返回目录：excel表格制作
材料/工具：Excel2010
1、打开Excel2010表格，将邮箱地址列表复制到excel表中
2、在zdB1单元格输入=rand()
3、将该函数复制到最后一版行
4、然后点击升序排列或降序排列按钮
5、得到如权下结果，如果不满意结果，可以多点几次升序排列或降序排列按钮
借助RAND函数实现一列数字乱序排列。
方法步骤知：
1、插入一个辅助道列；
2、在辅助列对应原列第一个有数字的同行单元格中输入=rand() 并下拉填充。版
3、选定原数据列和辅助列，以辅助列为“主要关键字”进行排序，最后权删除辅助列。
excel对一列数据进行随机排列的方法：
以下图为例，需要随机打乱排列顺序。
1.双击E2单元格，输入函数：
=RAND()
回车后单元格将zhidao返回一个小于1大于0的随内机数。RAND()函数是返回随机数的函数，不需要参数，返回值在0到1之间。一般来说在工作表中多个单元格同时运行RAND()函数返回的结果是不重复的。
2.双击E2单元格右下角的填充柄将该函数填充到E列。
3.复制E列数据，鼠标右键菜单里选择【选择性粘贴】，选择【值和数字格式】。
4.粘贴完毕后，E列的RAND()函数返回值将转化成数值。注意：不粘贴成数值，直接进行排序容也可以。
5.选中A到E列数据，选择【数据】-【排序】。
6.主关键字选择【E列】，升序和降序都可以，然后点击【确定】按钮。
7.完成后效果如下，【姓名】字段下数据已经随机排序。原理说明：由于E列数字是随机数，升序或降序排列后对原始排列顺序来说也已经是随机顺序了。所以利用此方法排序就是获取原顺序的随机排列。
8.最后整理数据，删除E列或者清空E列数据即可。
用excel把1-32列,随机乱序排列的方法如下：
1、辅来助列法，在数据右侧的空白列中输入公式=rand(),然后根据源这个空白列进行排序，就可以了。
2、小程序法，在vba输入输入如下内容，执行zhidao后，就可以得到结果了。
Sub bbb()
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = WorksheetFunction.CountA(Range("a1:a32"))
c = 1
Do While c <= a
b = Int(Rnd * a) + 1
If Cells(b, 1).Value <> "" Then
Cells(b, 1).Select
Selection.Copy '此处改一下，原是剪切，改为复制。
Cells(c, 3).Select
ActiveSheet.Paste
c = c + 1
Else
End If
Loop
End Sub