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