返回目录：excel表格制作
如图，通抄常将要的不重复的数列出来（如第一列袭的数），再在另一列用=rand()产生随机数百，对随机数排序，则所需要的数是也就随机了，哈哈。当然，如果度您不要这么多的数，您排序后从左列知取几个就可以了。
供参道考，祝顺利。
用VBA编程可以实现。其方法有多种，一是字典功能，凡是重复的无法插入字典。其缺陷是程序运行的时间不确定，发生重复就继续生成随机数，直到没有重复为止。另一种是第一次生成1~100的随机数，将得到的随机数取走；再生成1~99的随机数，。。。这样循环到1，就完成了题目要求。
我们采用第二种方法做成如下代码：
Sub 随机数()
Dim mYarr(1 To 100, 1 To 2)
Dim Tarr(1 To 100, 1 To 2) '存放随机生成的数
Dim I, J, K, L As Integer
'读取原始数据
I = 2
Do While Cells(I, 1) > 0
mYarr(I - 1, 1) = Cells(I, 1)
mYarr(I - 1, 2) = Cells(I, 2)
I = I + 1
Loop
I = I - 2
L = 1
For K = I To 1 Step -1
Randomize
J = Int((Rnd * K) + 1)
Tarr(L, 1) = L
Tarr(L, 2) = mYarr(J, 2)
'将数值自J+1个开始向上移动一格
For M = J To I - 1
mYarr(M, 1) = mYarr(M + 1, 1)
mYarr(M, 2) = mYarr(M + 1, 2)
Next M
L = L + 1
Next K
'输出随机整数
For J = 1 To I
Cells(J + 1, 5) = Tarr(J, 1)
Cells(J + 1, 6) = Tarr(J, 2)
Next J
End Sub
该宏
第一步：将第1、2列数据读入MYARR数组
第二步e799bee5baa6e79fa5e98193e58685e5aeb9332：随机生成随机数，将该随机数对应的数值移入TARR数组（目标数组）
第三步：将目标数组TARR数值输出到第5、6列。运行结果如图：
可以看到G列检查是否有重复列，结果是没有。
1、利用一个辅助列比如来C3到C12，在C3输入公式：=rand()向下拉到C12
2、然后在B3利用排序函数得到1~10的不重复数字自，B3输入公式：=RANK(C3,$C$3:$C$12)
向下拉到B12。
如果你觉得C列碍眼，可以把C列隐藏，也可以先复制B列，再在B列选择性粘贴百/数值/确定，就可以把C列删除了度。甚至还有一个更简单的办法：把辅助列建在其他工作表，比如问在Sheet2的C3（也可以其他单元格，但后面公式要相应更改）输入公答式：=rand()向下拉到C12，然后在你的表格Sheet1的B3输入公式：=RANK(Sheet2!C3,Sheet2!$C$3:$C$12)向下拉到B12。