Rnd()函数提供一个随机数,大于等于0,小于1,即 [ 0 ,1 )。
为了生成某个范围内的随机整数,可使用以下公式:
Int ( 最小数? +? Rnd * (最大数 -最小数+ 1)? )
例如,我们生成20个 1 到 100 之间的随机数值,并写如excel表中A列
Sub myrnd()
Dim myvalue
For i = 1 To 20
Cells(i, 1) = Int(1 + rnd * (100 - 1 + 1))
Next i
End Sub
如下图所示,我们生成了20个随机数: