VBA数组赋值(2/2)-- 二维数组

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

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

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

如愿以偿的生成了3×3的二维数组。
《VBA数组赋值(2/2)-- 二维数组》
如果数组中的数据是在代码中生成的,也不是必须要借助工作表单元格,才能实现为二维数据赋值,很多时候从代码执行效率考虑,一般都尽量少对工作表对象进行读写操作。示例代码如下。

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方法简写形式。
《VBA数组赋值(2/2)-- 二维数组》
第4行代码产生的是一个嵌套数组,也是有3个元素的一维数组,但是每个元素中保存的数据仍然是数组,例如myArray2(1)是个包含3个元素的数组,其值分别为"1", "11", "111",注意这种嵌套数组的引用方式与普通二维数组是不同的(插图中黄色高亮部分)。

    原文作者:taller_2000
    原文地址: https://blog.csdn.net/taller_2000/article/details/105305018
    本文转自网络文章,转载此文章仅为分享知识,如有侵权,请联系博主进行删除。
点赞