使用Array函数创建常量数组

weiyingde

使用Array函数创建常量数组
见：http://blog.sina.com.cn/s/blog_54be98b80102x3db.html
使用Array函数创建数组
1维常量数组：Array("A",1,"C")
2维常量数组： Array(Array("a", 10), Array("b", 20), Array("c", 30))
也可以调用excel工作表内存数组：
1维数量： [{"A",1,"C"}]
2维数量： [{"a",10;"b",20;"c",30}]

内存常量数组有什么作用呢？

1、简化赋值
比如：我需要给数组arr分别赋值10 ,20,30,40 ，一般就需要分别赋值，即：
arr(1) = 10
arr(2) = 20
arr(3) = 30
arr(4) = 40
而使用常量数量，只一句话：
arr = Array(10,20,30,40)

2、数组的合并和字符串拆分（Join & Split）：
多个字符的合并和字符串按规律的拆分是经常遇到的，如：
A - REW - E - RWC - 2 - RWC 按分隔符 - 拆分成6个字符放在一个数组中

有一组数array(23,45,7,1,76)想用分隔符 - 连接成一个字符串
上面两种情况VBA提供了一对函数，即：

split（字符串,"分隔符"） 拆分字符串
Join(数组,"分隔符")   用分隔连接数组的每个元成一个字符串

Sub t1()
    Dim arr, myst As String
    myst = "A-REW-E-RWC-2-RWC"
    arr = Split(myst, "-")  '按-分隔成一组数装入数组中
    'MsgBox arr(0) '显示数组的第一个数(分隔后的数组最小下标为0,不是1),显示结果为A
    MsgBox Join(arr, ",") '再用 ", "把数组的每个值连接成一个字符串,结果为 "A,REW,E,RWC,2,RWC "
End Sub

值得注意的是：split和join只能对一维数组进行操作，如果是单元格或二维数组怎么办？只有一条途径，想办法转换为一维数组：

Sub t2()
    Dim ARR
    ARR = Application.Transpose(Range("a1:a3")) ‘用转置的方法，把单元格一列数据转换成一维数组
    MsgBox Join(ARR, "-")
End Sub

━━━━━━━━━━━━━━━━━━━━━━━━━
Array() 函数用于创建数组。允许数据类型: 字符，数字均可。
Array(arglist) 所需的 arglist 参数是一个用逗号隔开的值表，这些值用于给 Variant 所包含的数组的各元素赋值。如果不提供参数，则创建一个长度为 0 的数组。
实例：
Private Sub form_click
    Dim a
    a = array（2,3,4,5）
    For i = 0 To 3
        Print a（i）;
    Next i
End Sub
显示结果：2 3 4 5>