如何从1-500之间随机生成不重复的5个数

mazz7758

如题：如何从1-500之间随机生成不重复的5个数。

盼盼198310

循环5次,每次1个

静听溪流

=MOD(LARGE(RANDBETWEEN(ROW($1:$500)^0,10^4)*10^3+ROW($1:$500),ROW(A1)),10^3)

笑着...两年过去

吴中泉

代码很少，仅供参考

吴中泉

1. Sub 按钮1_Click()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Do While d.Count < 5
   
4.         x = Int(Rnd * 500) + 1
   
5.         d(x) = ""
   
6.     Loop
   
7.     [c5:g5] = d.keys
   
8. End Sub
   

复制代码

mazz7758

吴中泉 发表于 2023-5-14 20:39
代码很少，仅供参考

多谢指教

micch

1. Option Base 1
   
2. Sub Test()
   
3.     Dim ar(500), i%, j%, k%
   
4.     Randomize
   
5.     Do While k < 5
   
6.         i = Rnd * 500 + 1
   
7.         If ar(i) < 1 Then ar(i) = i: k = k + 1
   
8.     Loop
   
9.     MsgBox Application.Trim(Join(ar))
   
10. End Sub

复制代码

gwjkkkkk

数组法，参考一下。。。
Sub test()
    Dim i&, n&, ar(1 To 5), xNum&
    n = 1
    Randomize
    Do While n <= 5
        xNum = Int(500 * Rnd + 1)
        ar(n) = xNum
        For i = 1 To n
            If ar(i) = xNum Then Exit For
        Next i
        If i = n Then n = n + 1
    Loop
    [A1].Resize(, 5) = ar
End Sub

gwjkkkkk

数组法，参与一下。。。