Sub s3()
Dim arr() '声明一个动态数组（动态指不固定大小）
Dim arr1 '声明一个Variant类型的变量
arr = Range("a1:c7") '把单元格区域A1：C7的值装入数组arr
arr1 = Range("a1:c7") '把单元格区域A1：C7的值装入数组arr1
MsgBox arr(1, 1) '读取arr数组中第1行第1列的数值
MsgBox arr1(2, 3) '读取arr1数组的第2行第3列的数值
End Sub
'..........................VBA这个动态数组arr()................为什么不用redim直接可以用
这东西没有必要深究为什么，如果一定要问为什么，只有问微软了。arr()是动态数组，会自动生成数组结构，连续的range区域数值赋给这个变量，VBA默认情况下把它看成是数组，并且一旦赋值，数组大小与元素值都确定了
温馨提示：答案为网友推荐，仅供参考
