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次，如下图所示。
