VBA数组赋值（2/2）-- 二维数组

以前的博客文章中讲过一些数组的使用技巧，经常会被网友问道如何给数组赋值，本文讲解如何为二维数组赋值（或者说如何创建二维数组）。

借助工作表为二维数组赋值就非常简单直接了，示例代码如下。

Sub demo4()
    Dim myArray
    myArray = Range("A1:C3")
    Stop
End Sub

如愿以偿的生成了3x3的二维数组。

如果数组中的数据是在代码中生成的，也不是必须要借助工作表单元格，才能实现为二维数据赋值，很多时候从代码执行效率考虑，一般都尽量少对工作表对象进行读写操作。示例代码如下。

Sub demo5()
    Dim myArray1, myArray2
    myArray1 = [{"1","11","111";"2","22","222";"3","33","333"}]
    myArray2 = Array(Array("1", "11", "111"), Array("2", "22", "222"), Array("3", "33", "333"))
    Stop
End Sub

运行结果如下。第3行代码实现与demo4中完全相同的结果。其中[ ... ]是Evaluate方法简写形式。

第4行代码产生的是一个嵌套数组，也是有3个元素的一维数组，但是每个元素中保存的数据仍然是数组，例如myArray2(1)是个包含3个元素的数组，其值分别为"1", "11", "111"，注意这种嵌套数组的引用方式与普通二维数组是不同的（插图中黄色高亮部分）。

上述赋值方式创建的myArray2（一维嵌套数组），使用起来不太符合习惯，不过没有关系，可以转换为普通的二维数组。

Sub demo6()
    Dim myArray1, myArray2, myArray3
    myArray1 = [{"1","11","111";"2","22","222";"3","33","333"}]
    myArray2 = Array(Array("1", "11", "111"), Array("2", "22", "222"), Array("3", "33", "333"))
    myArray3 = Application.Rept(myArray2, 1)
    Stop
End Sub