1、打开Excel，选择一个单元格，设置好单元格以及内部数字的格式，如下图所示。
2、按下Alt+F11快捷键打开VBA编辑界面，双击左侧数据所在工作表，如下图所示。
3、输入VBA代码：
Sub 鱼木混猪()
For i = 1 To 20
Cells(2, 2) = Int(Rnd() * 10) + 1
For j = 1 To 500
DoEvents
Next j
Next i
End Sub
如下图所示。
4、返回Excel，按下Alt+F8键，在弹出的宏界面中点击“执行”，如下图所示。
5、这样，就可以看到单元格中的数字动态随机地变化了20次，如下图所示。
1、1.打开Excel，设置好格式；
2.按下Alt+F11；
3.输入VBA代码；
4.返回Excel，按下Alt+F8；
5.单元格中数字就会动态变化指定次数。