以前的博客文章中讲过一些数组的使用技巧，经常会被网友问道如何给数组赋值，本文讲解如何为一维数组赋值（或者说如何创建一维数组）。
 
Option Base 1
Sub demo1()
    Dim myArray
    myArray = Array(1, 2, 3)
End Sub
 
生成的数组如下图所示，值得注意的地方是，如果没有第1行代码，那么数组下标下界将从0开始。
 
 既然是Excel VBA，大家自然会想到借助工作表中的行和列来实现给数组赋值，工作表中内容如下。
 

 示例代码如下。
 
Sub demo2()
    Dim arrRow, arrCol
    arrCol = Range("A1:A3")
    arrRow = Range("A1:C1")
    Stop
End Sub
 
执行结果如下图所示，和大家相信的可能并不相同，arrRow是1x3的二维数组，arrCol是3x1的二维数组，无论行数据还是列数据都不能直接产生一维数组。
 
 这次我们拿出Excel中著名的神器“乾坤大挪移” – Transpose，示例代码如下。
 
Sub demo3()
    Dim arrRow, arrCol
    arrCol = Application.Transpose(Range("A1:A3"))
    arrRow = Application.Transpose(Range("A1:C1"))
    Stop
End Sub
 
执行结果如下图所示，arrCol成功转换为有3个元素的一维数组，但是arr 则由1x3的二维数组，转换为3x1的二维数组。
 
 
 
 
结论：列数据经过Transpose可以转换为一维数组。
 

以前的博客文章中讲过一些数组的使用技巧，经常会被网友问道如何给数组赋值，本文讲解如何为二维数组赋值（或者说如何创建二维数组）。
 
借助工作表为二维数组赋值就非常简单直接了，示例代码如下。
 
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"，注意这种嵌套数组的引用方式与普通二维数组是不同的（插图中黄色高亮部分）。

先说一下，刚才一个错误的操作，连保存的草稿都没了，这也太悬了。以后还是在本地写好了再放上来。

数组是这样赋值的：

Dim a2(10) As Integer

 '10是可以使用的最大上标，这和C语言不太一样

 Dim a3(-2 To 10) As Integer

 '也可以定义下标



 Dim a1() As Integer

 '定义变长数组 动态数组

 ReDim a1(10)

'重新定义数组的长度

如果需要保存原来的数组中的数据，则使用：

ReDim Preserve a1(10)

如有特殊需要要将下标默认定义为1，则需要声明：

Option Base 1



Debug.Print LBound(a1)

Debug.Print UBound(a1)

显示数组的上下界



定义二维数组：

Dim MyArray(-2 To 9, -8 To 12)



当定义好了一个数组，可以直接赋值给另外一个

MyArray2 = MyArray1



清除数组

erase MyArray2

清除之后数组内部成为初始值，对于动态数组来说，在没有赋数组长度值时，没有上下界，清除之后也没有，如果使用UBound，运行时会出现错误。

erase之后，动态数组并不是不存在了，这一点从可以继续redim就可以知道。这一点《Excel VBA 入门与应用典型实例》说错了。

VBA中可以使用数组处理工作表中的数据，是个尽人皆知的秘密了，读取数据加载到数组中也很简单。
 工作表中数据如下图所示，需要将B1:G1的内容加载到数组中。
 
 哒哒，一行代码瞬间生成一个二维数组，不要问为什么是二维数组？为什么使用方括号？如果真的对这两点有疑问，请自行爬楼翻翻我以前的博文，都有详细讲解。
 
Sub Demo1()
    arr = [B1:G1]
End Sub
 
可是某些英明（奇葩 ）的领导非要这样的格式，完全不知道这是为了个毛呀！？
 
 这个该如何弄到一个数组中呢，先分别读入数组，然后再使用动态数组就和合并成2x3的数组了。
 
Sub Demo2()
    Dim crr(1 To 2, 1 To 3)
    arr = [B1:D1]
    brr = [E2:G2]
    For i = 1 To 3
        crr(1, i) = arr(1, i)
        crr(2, i) = brr(1, i)
    Next
End Sub
 
有些不甘心，这么简单的一个事情，要这么多行代码。千万不要忘记，我们是在用Excel中玩儿VBA，Excel中强大的公式可以把这个简化为一行代码就能实现。
 啥也别说了，直接上代码。
 
Sub Demo3()
    arr = [Choose({1;2},B1:D1,E2:G2)]
    brr = [if({1;0},B1:D1,E2:G2)]
End Sub
 
【代码解析】
 两行代码都可以实现一次性加载到2x3数组中，实现思路是相同的，只是使用的公式不同。
 Choose函数根据指定的索引值，从参数串中选择值。此处的参数是两个单元格区域，这样就分两次分别选中了B1:D1和E2:G2单元格区域。
 工作表中的If函数将不用解释了，这里需要注意的是，数组{1;0}两个数字的顺序和后面单元格区域的顺序要正确匹配。
 
 
看似旁门左道，其实是超级敏捷的实现方式，综合使用Excel的各种技能，才是最高境界。