1.單維數(shù)組

1.1 聲明數(shù)組

聲明1個1~50的數(shù)組，可以將區(qū)間值寫出來
Dim SZ(1 To 50) As String
也可以用'個數(shù)'來標(biāo)識，比如上述的1 to 50可以用49來替代（0~49的意思，總計(jì)50個數(shù)字）
Dim SZ(49) As String
我們還可以模塊的開始，就設(shè)定好數(shù)組的索引值從1開始（1~50）

1.2 數(shù)組賦值

當(dāng)數(shù)組聲明好了之后，我們可以給數(shù)組賦值
比如，給數(shù)組的第15個元素賦值的方法如下：
SZ(14) = '100'
給一個數(shù)組集體賦值的方式：

Sub ShuZu()     Dim SZ(1 To 10) As Integer, i As Integer    For i = 1 To 10        SZ(i) = i    NextEnd Sub 

2.多維數(shù)組

2.1 二維數(shù)組

VBA還支持 橫向、縱向 同時(shí)存在的列表型數(shù)組，比如，我們聲明一個3*20的數(shù)組
Dim SZ (1 to 3 , 1 to 20)
當(dāng)然，也可以用個數(shù)來表示數(shù)組

2.2 三維數(shù)組

假設(shè)，有4個高3層、寬5格的貨架，用數(shù)組可以這樣來表示

Option Base 1Dim SZ(4,3,5) As String

2.3 多維數(shù)組的賦值方式

與單維數(shù)組的賦值方式一樣

3.動態(tài)數(shù)組

3.1 聲明數(shù)組

當(dāng)無法確定數(shù)組的存儲元素多少時(shí)，我們可以先聲明一個空的數(shù)組：
Dim SZ ()
然后，再通過ReDim語句來重新聲明數(shù)組的大小

Sub dtsz()    '定義數(shù)組    Dim arr() As String     Dim n As Long    '統(tǒng)計(jì)A列有多少非空單元格    n = Application.WorksheetFunction.CountA(Range('A:A'))    ReDim arr(1 To n) As String '重新定義數(shù)組的大小    MsgBox nEnd Sub

3.2 數(shù)組賦值

方法1：使用Array函數(shù)

數(shù)組內(nèi)，參數(shù)間用英文逗號分隔，參數(shù)支持?jǐn)?shù)字、文本
數(shù)組的索引號默認(rèn)從0開始，除非在模塊中的第1句已經(jīng)寫入了'Option Base 1'語句

方法2：使用Split函數(shù)

數(shù)組內(nèi)，參數(shù)間用英文逗號分隔，參數(shù)僅支持文本(需要確認(rèn))

Sub SplitTest()    Dim arr As Variant    arr = Split('Lee,Chen,Zhang,Kong,Feng,Mi', ',')    MsgBox 'arr數(shù)組的第2個元素為：' & arr(1)End Sub

數(shù)組的索引號默認(rèn)從0開始，無論是否已寫入'Option Base 1'語句

方法3：使用Range函數(shù)

可以把一個單元格區(qū)域的值存到數(shù)組里，也可以把數(shù)組里的值寫到單元格里去（單元格區(qū)域的大小必須一致）

4.數(shù)組的其他操作

4.1 數(shù)組索引（UBound、LBound）

通過UBound和LBound函數(shù)，可以計(jì)算數(shù)組的最大、最小索引號
UBound(arr) ‘返回?cái)?shù)組的最大索引號
LBound(arr) ‘返回?cái)?shù)組的最小索引號
UBound(arr) - LBound(arr) +1 ‘返回?cái)?shù)組一共有多少個元素

Sub arrcount()    Dim arr(49)    MsgBox '數(shù)組的最大索引號是：' & UBound(arr) & Chr(13)           & '數(shù)組的最小索引號是：' & LBound(arr) & Chr(13)           & '數(shù)組的元素個數(shù)是：' & UBound(arr) - UBound(arr) + 1End Sub

如果是一個多位數(shù)組，還需要指定數(shù)組的維度，比如：

4.2 數(shù)組拼接（join）

使用join函數(shù)，可以將數(shù)組里的所有元素，通過一個指定的拼接符號，拼成一個新的字串

Sub JoinTest()    Dim arr As Variant, txt As String    arr = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9)    txt = Join(arr, '~')    '如果省略分割符，則默認(rèn)使用空格作為分割符號    MsgBox txt    '最終輸出結(jié)果：0~1~2~3~4~5~6~7~8~9End Sub

4.3 將數(shù)組寫入單元格（range）

使用range函數(shù)，可以將數(shù)組寫入單元格、區(qū)域

無論1維數(shù)組還是2維數(shù)組，在寫入單元格區(qū)域時(shí)，區(qū)域的大小，與數(shù)組的大小需要保持一致

Sub ArrToRng2()    Dim arr(2, 3) As String    arr(1, 1) = 1    arr(1, 2) = 'A'    arr(1, 3) = 'a'    arr(2, 1) = 2    arr(2, 2) = 'B'    arr(2, 3) = 'b'    Range('A1:C2').Value = arrEnd Sub