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

peng.z.h

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

Long_III

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

海底眼

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

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

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

czzqb

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

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

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

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

香川群子

如果范围内单元格都为空，则随机填入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

香川群子

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

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

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

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

lhx120824

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


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

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

方法值得学习。

xiner0817

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

cctv665565

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

复制代码