[已解决]怎么生成大量的不重复随机数

mmc998

生成的数据最好按行分布

最佳答案

月排行榜 / 总排行榜

dsmch

2015-1-24 21:10

1. Sub c()
   
2. Dim s%, i%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 1 To 3
   
5.     Do Until d.Count = 6
   
6.         s = Int(Rnd * 33 + 1)
   
7.         d(s) = ""
   
8.     Loop
   
9.     Cells(i, 1).Resize(1, d.Count) = d.Keys
   
10.     d.RemoveAll
    
11. Next
    
12. End Sub

复制代码

跳转到最佳答案楼层

爱疯

建议手动做一个少量结果的附件，并给予说明。

tgydslr

=SUBSTITUTE(RAND(),"0.","")横拉即可
试验过了，20000内还没看到重复的

mmc998

Book1.rar (12.1 KB, 下载次数: 15)

2015-1-24 20:24 上传

点击文件名下载附件

dsmch

1. Sub c()
   
2. Dim s%, i%
   
3. Set d = CreateObject("scripting.dictionary")
   
4. For i = 1 To 3
   
5.     Do Until d.Count = 6
   
6.         s = Int(Rnd * 33 + 1)
   
7.         d(s) = ""
   
8.     Loop
   
9.     Cells(i, 1).Resize(1, d.Count) = d.Keys
   
10.     d.RemoveAll
    
11. Next
    
12. End Sub

复制代码