生成不重复随机数的一段代码

roc.jame · 发表于 2012-8-15 14:39

法师的建议，所以过来收藏了

andy3303 · 发表于 2012-9-27 23:52

本帖最后由 andy3303 于 2012-9-28 00:10 编辑

哈哈，这样是不是更简单点
Sub 不重复随机数()
Dim m%, n%, i%
Dim arrm() As Integer, arrn() As Integer
m = Range("a1") '例如500
n = Range("b1") '例如100
ReDim arrm(1 To m)
ReDim arrn(1 To n)
For i = 1 To m
arrm(i) = i
Next
For j = 1 To n
i = Int(Rnd * (m + 1 - j) + 1)
arrn(j) = arrm(i)
arrm(i) = arrm(m + 1 - j)
Next
i = 1
For Each a In Range("a2:j11") '改变单元格区域就出错了，谁教教怎么做变动区域。
a.Value = arrn(i)
i = i + 1
Next
Erase arrm, arrn
End Sub
但是要生成10组不重复的随机数组怎么做呢？
x1,x2,x3,......,x10共10变量，它们每个变量都有20种可能，如果每个组合一个个枚举，需要20^10组合，是个天文数字。现在希望生成10000组随机数，每组随机数包括每一个变量的一种情况，但任何两组随机数不能每个变量的值都相同。
例如：
1,2,3,7,12,19,20,......
1,2,3,7,12,19,19,......可以

leon021cn · 发表于 2012-9-29 15:03

来学习一下，增加知识，谢谢分享

dych · 发表于 2013-6-17 07:13

先学习，再慢慢体会

张雄友 · 发表于 2013-9-8 09:23

灰袍法师发表于 2011-1-22 23:00
楼主的代码排版很漂亮

注意：目前最完美解决方法在27楼和29楼

如果不是在A列生成，而是在A1：C65536区域生成呢？

ＭisterRight · 发表于 2013-9-8 11:31

谢谢分享，但有个问题想请教下，在if语句的条件里，为什么是max-min+1，不是max-min？

EXCELWO22 · 发表于 2013-11-5 15:12

学习，高人有高招

xkx590 · 发表于 2013-11-8 20:55

收藏了，谢谢！

umi23 · 发表于 2014-2-21 14:12

学习了，谢谢

yefei1587 · 发表于 2014-5-20 15:34

学习了

		自动登录	找回密码
密码			免费注册

[原创] 生成不重复随机数的一段代码