作者：乔山办公网日期：
返回目录：excel表格制作
VBA数组赋值方式：
字符串数组的定义：
Dim arr(1 to 3) as string
如此定义，但zd是不能直接给数组赋值
如果想直接给数组直接赋版值，需要如下操作：
Dim arr() as Variant
arr=Array("a","b","c")
赋值格式：
例如，给变量a赋值一个数为12，则格式为：a = 12 [注意：变量（即a）只能是一权字母，而赋予的值可以是一个式子，当它是式子时，a的值就是这个式子的结果。
aaa=array(1,6,8,18,19,20,25,62,63,64)
for i=0 to ubound(aaa)
msgbox(aaa(i))
next
1、可以使用单元格数组来，这样就可以实现整体赋值，比自如arr=range("A1:C3") 就是把单元格区域A1:C3的值一次性赋给arr,此时的arr就是一个百三行三列的二维数组度
2、也可以使用直接定义的方式来定义整体数组，比如arr=array(0,1,2,3) ,arr=array(array(1,2,3),array(4,5,6)) 或者 arr = [{1,2;3,4}] 等等