VBA编程产生不重复随机数（转载）

https://blog.csdn.net/iamlaosong/article/details/38434179

Sub random_test()

Dim RndNumber, temp(20), i, k, Maxrec As Integer
Dim myRange As Range
'Debug.Print Int((30 * Rnd) + 1)

Set myRange = Worksheets(“sheet1”).UsedRange

Randomize (Timer) '初始化随机数生成器
Maxrec = 100

’ 从A21开始输出随机数
k = 0
Do While k < 20
RndNumber = Int(Maxrec * Rnd) + 1
temp(k) = RndNumber
Cells(k + 21, 1) = RndNumber
For i = 0 To k - 1
If temp(i) = RndNumber Then Exit For
Next i
If i = k Then k = i + 1
'MsgBox “随机数：” & RndNumber
Loop

End Sub