excel 5个已知数字,随机生成但不重复

比如已知1，2，3，4，5。在A列中随机生成这几个数字，但是不能重复
效果是这样
A1 2
A2 4
A3 1
A4 5
A4 3

1、在B1:B5单元格输入=RAND() 按Ctrl+Enter组合键结束；
2、在A1:A5单元格输入=RANK(B1,B$1:B$5) 按Ctrl+Enter组合键结束，生成随机不重复的数。
3、根据需要隐藏B1:B5单元格。

可以利用vba来生成5000个随机不重复的5位数字。 软件版本：office2007 方法如下： 1.alt+f11，输入代码如下： sub m() for i = 1 to 5000 '1到5000循环，生成5000个数 eee: cells(i, "a") = int(rnd() * 50000) '随机生产一个小于50000的数 if cells(i, "a").value < 10000 then goto eee '如果这个数小于10000，重新生成 if application.worksheetfunction.countif(range("a:a"), cells(i, "a")) > 1 then goto eee '如果这个数已经存在了，也重新生成 next i end sub 2.f5执行代码，返回excel得到结果：