通过如下的代码，你就可以在VBA环境下，通过VBA代码，产生100一百以内不重复的随机数。
Sub GetValue()
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
部分代码解释：
Randomize Timer 设置让随机数不重复
Dim c(100) As Byte 定义一个数组，长度为100，自然，是用来保存100个随机数的。