Excel如何用VBA生成随机数

1、打开Excel，点击“开发工具”选项卡中的“Visual Basic”，如下图所示。

3、输入代码：Sub 鱼木混猪()RandomizeFor Each r In Range("A1:D5")r.Value = Int(Rnd() * 10) + 1NextEnd Sub代码作用是在A1:D5区域随机生成1-10的数字，如下图所示。

5、关闭VBA编辑界面，回到Excel中，可以看到A1:D5区域内的单元格就得到了随机生成的1-10之间的数字，如下图所示。