VBA数组赋值（22）--⼆维数组
以前的博客⽂章中讲过⼀些数组的使⽤技巧，经常会被⽹友问道如何给数组赋值，本⽂讲解如何为⼆维数组赋值（或者说如何创建⼆维数组）。
借助⼯作表为⼆维数组赋值就⾮常简单直接了，⽰例代码如下。
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"，注意这种嵌套数组的引⽤⽅式与普通⼆维数组是不同的（插图中黄⾊⾼亮部分）。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。