如何生成1至100的不重复的随机数

peng.z.h · 发表于 2005-4-18 09:30

如果用编程实现，有没有哪位大侠写一段代码小弟学习一下！在此谢过啦！

Long_III · 发表于 2005-4-18 10:08

Sub HJSONG() Dim H As New Collection Dim B(100) Dim i% On Error Resume Next Do Until H.Count = 100 For i = 1 To 100 B(i) = Int(Rnd() * 100 + 1) H.Add B(i), Str(B(i)) Next Loop

For i = 1 To 100 Sheets("Sheet1").Cells(i, 3) = H(i) Next End Sub

海底眼 · 发表于 2005-4-18 19:12

是1-100这100个整数随机排序

不是生成 100个 1-100的随机数

[此贴子已经被作者于2005-4-18 19:13:54编辑过]

czzqb · 发表于 2005-4-18 19:31

二楼说的办法其实最简单。我在几个月前在论坛上见过这个办法后，就一直在用。

这个办法能产生100个不重复的随机数（即13楼说的100个整数的随机排列）。当然这一点也不是绝对地保证的。但其重复的概率非常非常小，小到比中500万大奖的概率还小的多。一个人也许几辈子见不到一次。数学上认为，如此小概率时间可以看作0概率，即不可能发生的事件。对这一点，chenjun在一个帖子中分析过，我找不到了，有兴趣的朋友可以找找看。

我喜欢这些简单而实用的东西。简单就是美。大家说呢？

[此贴子已经被作者于2005-4-18 19:34:08编辑过]

香川群子 · 发表于 2010-6-20 10:16

如果范围内单元格都为空，则随机填入1-n的正整数。

Sub 矩形范围内数据随机重排()
Dim a
Dim s As New Collection, t As New Collection
Randomize

a = Selection

For i = 0 To UBound(a, 1) - 1
      For j = 0 To UBound(a, 2) - 1
         s.Add a(i + 1, j + 1)
         If B = "" Then B = B & a(i + 1, j + 1)
         t.Add 1 + j Mod UBound(a, 2) + (i Mod UBound(a, 1)) * UBound(a, 2)
      Next
Next

If B = "" Then
      For i = 1 To UBound(a, 1)
         For j = 1 To UBound(a, 2)
            K = Int(Rnd() * t.Count + 1)
            a(i, j) = t(K)
            t.Remove (K)
         Next
      Next

Else
      For i = 1 To UBound(a, 1)
         For j = 1 To UBound(a, 2)
            K = Int(Rnd() * s.Count + 1)
            a(i, j) = s(K)
            s.Remove (K)
         Next
      Next
End If

Selection = a
'[a1].Resize(UBound(a, 1), UBound(a, 2)) = a

End Sub

香川群子 · 发表于 2010-6-20 10:22

原帖由 peng.z.h 于 2005-4-18 09:30 发表
如果用编程实现，有没有哪位大侠写一段代码小弟学习一下！在此谢过啦！

我在15楼发布的宏代码，绝对不会产生重复的随机数。

因为，我的方法是：
1. 生成需要量的序数1-n，添加到集合中。
2. 然后随机从n个元素的集合中取值，并立即删去该值，确保不会被二次选中。
3. 重新以集合中元素数量n-1为基数随机取值，立即删去……

重复，直至最后一个元素。

lhx120824 · 发表于 2010-7-4 10:02

原帖由 香川群子 于 2010-6-20 10:22 发表

我在15楼发布的宏代码，绝对不会产生重复的随机数。

因为，我的方法是：
1. 生成需要量的序数1-n，添加到集合中。
2. 然后随机从n个元素的集合中取值，并立即删去该值，确保不会被二次选中。
3. 重新以集合 ...

方法值得学习。

xiner0817 · 发表于 2010-7-11 23:40

启发太大了，谢谢啊。。啥都不说了。

cctv665565 · 发表于 2011-9-13 14:01

本帖最后由 cctv665565 于 2011-9-13 14:01 编辑

=SMALL(IF(COUNTIF($A$1:A1,ROW($1:$100)),"",ROW($1:$100)),1+INT(RAND()*(101-ROW(a1))))

复制代码

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

[已解决] 如何生成1至100的不重复的随机数

选择矩形范围，范围内自动随机重新排序的宏代码：