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