如题所述
1、打开一个Excel的文件，在表格中输入简单的表格，比如学生身高表格，如下图所示。
2、接着，在表格中输入一维数组的说明文字，鼠标左键单击【开发工具】菜单标签，在VBA控件下拉菜单中，并选择按钮控件，如下图所示。
3、然后，在表格中绘制出按钮控件，并修改控件名称，比如使用一维数组的名称，如下图所示。
4、接着，选择按钮控件，并鼠标左键单击【查看代码】按钮，如下图所示。
5、然后，在代码窗口中输入VBA语句，比如输入定义一维数组的语句，并给一维数组赋值，如下图所示。
6、接着，在代码窗口中，输入一维数组给单元格赋值的VBA语句，如下图所示。
7、最后，在设计窗口上，鼠标左键单击按钮，可以看到表格中的，通过VBA程序的一维数组，并输出到身高的单元格中，显示出数据了，如下图所示。完成效果图。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-11-03
数组可以单个赋值，例如：
dim a(3)a(1)=1
a(2)=2
a(3)=3
也可以使用Array一次性赋值，例如：
a=Array(1,2,3)
还可以从表格进行复制，例如：
a = Range("A1:D4")本回答被提问者采纳
第2个回答 2017-11-03
字符串数组的定义：
Dim arr(1 to 3) as string
如此定义，但是不能直接给数组赋值
如果想直接给数组直接赋值，需要如下操作：
Dim arr() as Variant
arr=Array("a","b","c")
Dim arr(1 to 3) as string
如此定义，但是不能直接给数组赋值
如果想直接给数组直接赋值，需要如下操作：
Dim arr() as Variant
arr=Array("a","b","c")
