利用字典产生10000个不重复的随机数

detergent181

Sub 按钮1_单击()
Set myb = CreateObject("scripting.dictionary")
Randomize (Timer)
For i = 1 To 10000
line: x = Int(1 + (10000 - 1 + 1) * Rnd())
If Not myb.exists(x) Then
      myb(x) = ""
       Else
       GoTo line
       End If
       Next
[a1].Resize(10000) = Application.Transpose(myb.keys)
End Sub
这里产生的随机数是1-10000，10000个，也可以产生500-10499，10000个，自己修改x中的范围。

lb_bn

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
帮助里的这句话比较好理解。

detergent181

原帖由 lb_bn 于 2009-11-1 10:15 发表
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。
帮助里的这句话比较好理解。

对，有道理。

bibisin

谢谢LZ分享,学习了

ahui_21

牛人太多了

lumj321

谢谢提供资料分享