如何用VBA产生一组区间内不重复随机数

发布网友发布时间：2022-04-23 13:09

共3个回答

热心网友时间：2023-06-29 20:43

Public Function 不重复随机数(小数 As Integer, 大数 As Integer, 个数 As Integer)
If 个数 > 大数 - 小数 + 1 Then Exit Function
Dim arr()
ReDim arr(个数 - 1)
Dim b() As Boolean
ReDim b(大数 - 小数) '取数标志
Dim x As Integer, y As Integer
Randomize
For I = 0 To 个数 - 1
Do '找到x的位置，y表示x在取数标志数组的位置
x = Int(Rnd * (大数 - 小数 + 1)) + 小数
y = x - 小数
Loop While b(y)
b(y) = True
arr(I) = x '找到未取的数，并放入数组，设置标志位
Next I
不重复随机数 = Application.Transpose(arr)
End Function

热心网友时间：2023-06-29 20:43

Sub test()
Dim i As Integer
For i = 1 To InputBox("How many random numbers do you want?", "Hi")
Cells(i, 1) = Format(Rnd * (35 - 30) + 30, "0.0")
Next i
End Sub

热心网友时间：2023-06-29 20:44

推荐回答应该能用，但刚接触vba看不太懂啊，所以写了这段代码，vba初学者应该都能看懂吧，毕竟是我一个小白写的。

sub sjzs()

min = 小数,max = 大数,geshu = 个数 '可用input输入，或者引用单元格

If geshu > max - min + 1 Then '输入个数应在范围内

msgbox "请输入正确个数！"

Exit sub

for n = 1 to geshu

line:

num = int ((max-min)*rnd +min)

a(n) = num

if n > 1 then

for i = 1 to n -1

if a(n) = a(i) then goto line '如果与已有数字相同，则重复取随机，至不重复

end if

debug.print a(n)

end sub