以前的博客文章中讲过一些数组的使用技巧,经常会被网友问道如何给数组赋值,本文讲解如何为二维数组赋值(或者说如何创建二维数组)。
借助工作表为二维数组赋值就非常简单直接了,示例代码如下。
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