VBA 随机生成不重复数字

ming0018

1. Private Sub 随机数不重复()
   
2.     Dim arr
   
3.     Dim RndCount%, RndNum%, iMax%, iMin%, i%
   
4.    
   
5.     RndCount = 10 '随机数个数
   
6.    
   
7.     ReDim arr(1 To RndCount)
   
8.     For i = 1 To RndCount
   
9.         arr(i) = i
   
10.     Next i
    
11.    
    
12.     Randomize
    
13.     iMax = RndCount
    
14.     iMin = 1
    
15.     Do While iMax > 1  '循环RndCount-1次
    
16.         RndNum = Int((iMax - iMin + 1) * Rnd + iMin) '生成随机数
    
17.         Debug.Print arr(RndNum)
    
18.         arr(RndNum) = arr(iMax)
    
19.         iMax = iMax - 1
    
20.     Loop
    
21.         
    
22.     Debug.Print arr(1) '最后一次不用随机
    
23. 
    
24. End Sub

复制代码