1、打开Excel数据表，如下图所示。
2、按下Alt+F11组合键，打开VBA编辑界面，双击左侧要导入数据的工作表，弹出右侧空白代码编辑区，如下图所示。
3、输入代码：Sub 鱼木混猪()Dim a(7)For i = 1 To 蚀卺垦肝7a(i - 1) = Int(Rnd(像粜杵泳) * 100)Next i代码先定义一个一维数组，然后利用循环将随机数字放入到数组中，如下图所示。
4、继续输入代码：For i = 0 To 6Range("B" & i + 2) = a(i)NextEnd Sub代码是再次利用循环将一维数组中的数字挨个放入到指定单元格中，如下图所示。
5、点击上方的“运行子程序”按钮，返回Excel中，就可以看到一维数组中的数字就导出到了Excel单元格中，如下图所示。
