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

perfect131 · 发表于 2023-5-14 22:27

本帖最后由 perfect131 于 2023-5-15 12:12 编辑

chat 答案及修复版

mazz7758 · 发表于 2023-5-15 08:36

gwjkkkkk 发表于 2023-5-14 21:34
数组法，参与一下。。。

多谢，受教了

mazz7758 · 发表于 2023-5-15 08:42

perfect131 发表于 2023-5-14 22:27
chat 答案及修复版

多谢指教

吴中泉 · 发表于 2023-5-15 09:06

再分享一个:
Sub 按钮1_Click()
Dim nums As New Collection
Do While nums.Count < 5
      x = Int(Rnd * 500) + 1
      On Error Resume Next
      nums.Add x, Str(x)
Loop
j = 3
For Each x In nums
      Cells(5, j) = x
      j = j + 1
Next
End Sub

justdoit2003 · 发表于 2023-5-15 17:54

静听溪流发表于 2023-5-14 18:32
=MOD(LARGE(RANDBETWEEN(ROW($1:$500)^0,10^4)*10^3+ROW($1:$500),ROW(A1)),10^3)

公式很巧妙，但是依然无法避免重复。

静听溪流 · 发表于 2023-5-16 09:44

justdoit2003 发表于 2023-5-15 17:54
公式很巧妙，但是依然无法避免重复。

换成这个区域数组据可以了
=MOD(LARGE(RANDBETWEEN(ROW($1:$500)^0,10^4)*10^3+ROW($1:$500),ROW(1:5)),10^3)

ovxyz · 发表于 2023-5-16 10:11

本帖最后由 ovxyz 于 2023-5-16 10:15 编辑

算法果然是百花齐放，各显神通。

grf1973 · 发表于 2023-5-16 15:20

参与一下。

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

[已解决] 如何从1-500之间随机生成不重复的5个数