【自定义函数】在A列产生不重复随机数

WANGL2

Sub 在A列产生不重复随机数()

Randomize Timer

Dim c(100) As Byte

For i = 1 To 100 '产生100个随机数

c(i) = i

Next

k = 100

Do While l < 100

r = Int(Rnd() * k) + 1 '随机数的范围

aa = c(r)

c(r) = c(k)

c(k) = aa

k = k - 1

l = l + 1

Cells(l, 1) = aa

Loop

End Sub