大家好，我们今日继续讲解VBA代码解决方案的第111讲内容：VBA数组的深入讲解，如何创建VBA数组及数组大小的判断。
一、创建数组的必要方法：
1、使用Array创建数组，看以下代码：
Sub Mynz_sz1()
Dim arr()
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) '将1到10十个自然数赋给数组arr
[a1].Resize(1, 10) = arr '将数组的值输入单元格，注意这里没有用转置函数
End Sub
代码窗口
运行：
特别注意点1：使用Array创建的数组索引号默认从0开始，当然，如果已经用"OPTION BASE 1"语句指定了的另当别论。
特别注意点2：如果赋的值是文本，那需要用英文引号引起来，如：
代码: arr = Array("张一", "徐一", "陈一", "王一")
2、使用Split创建数组
Split的作用是把一个文本，根据指定的分隔符，建立一个数组。感觉就有点像我们EXCEL中的基础操作中的"分列"。不同的是"分列"操作是将一个单元格的文本按指定的分隔符分开，存放在同行的多个单元格里，而Split的作用是将一个文本（也可以是存放在单元格里的）按指定的分隔符分开，存放在一个数组变量里。
arr = Split("张一，徐一，陈一，王一，许一，张二，陈二，张三，徐二，张四", "，")
特别注意点3：用Split把文本转换成数组，索引号总是从0开始。不管你是否使用了Option Base语句，这点和Array不同。
3、通过Range赋值创建数组
（1）循环给单元格赋值
比如想把A1:A100单元格的值给数组arr，则代码为：
Sub Mynz_sz2()
Dim arr(1 To 29)
For i = 1 To 29
arr(i) = Cells(i, 1)
Next
[d1].Resize(29, 1) = Application.WorksheetFunction.Transpose(arr)
End Sub
代码窗口：
运行：
(2)直接等于单元格区域。这个很简单，直接数组名等于单元格区域就可以了。比如想把A1:A100单元格的值给数组arr，代码还可以简单写为：
代码:
arr = [a1:a100]
二 数组大小的判断方法：UBound和LBound函数
我们定义数组时，我们可以指定数组的起始索引号不为0，而为1或其他的任意数。比如Dim arr(5 to 6)定义的这个数组起始索引号为5,共有两个元素。
那么，对于一个已经定义了的数组，我们想知道它的最大索引号（上界）和最小索引号（下界）是多少，怎么办呢？别慌，用UBound和LBound两个函数就可以了。
如，要想知道数组arr的上界是多少，则：UBound(arr)；要想知道数组arr的下界是多少，则：LBound(arr)。想知道数组有多少个元素，则：UBound(arr)- LBound(arr)+1
如代码:
Sub Mynz_sz3()
Dim arr(10 To 50)
Dim brr(1 To 10, 1 To 100)
MsgBox "第一个一维数组数组的上标是：" & UBound(arr) & Chr(13) _
& "数组的下标是：" & LBound(arr) & Chr(13) _
& "数组的元素个数是：" & UBound(arr) - LBound(arr) + 1 & Chr(13) _
& "第二个两维数组第一维的上界是:" & UBound(brr, 1) & Chr(13) _
& "第二维的上界是:" & UBound(brr, 2)
End Sub
运行后：
今日内容回向：
1 如何创建数组？
2 数组的大小如何判断
