VBA数组赋值（1/2）-- 一维数组

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

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可以转换为一维数组。