以前的博客文章中讲过一些数组的使用技巧,经常会被网友问道如何给数组赋值,本文讲解如何为一维数组赋值(或者说如何创建一维数组)。
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可以转换为一维数组。