1、
Sub Arraytest()
Dim arr As Variant
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
MsgBox "arr數組的第4個元素為：" & arr(3)
End Sub
2、
Sub shishi()
Dim arr As Variant
arr = Split("鄧程，陳欣，陳曦，陳映媛，李天龍", "，")
MsgBox "arr數組的第3個元素是：" & arr(2)
End Sub
3、
Sub test1()
Dim arr As Variant
arr = Range("a1:b19").Value '將A1:B19單元格的內容儲存到數組arr中
Range("d1:e19").Value = arr '將數組arr的數據寫入D1:E19單元格區域
End Sub
4、
Sub arrcount()
Dim arr(10 To 50)
'chr(13)代表一個回車鍵，相當於按了一次回車鍵；_ 為換行連接符
MsgBox "數組的最大索引號是：" & UBound(arr) & Chr(13) _
& " 數組的最小索引號是：" & LBound(arr) & Chr(13) _
& "數組的元素個數是：" & UBound(arr) - LBound(arr) + 1
End Sub
5、
Sub jointest()
Dim arr As Variant, txt As String
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
txt = Join(arr, "#")
MsgBox txt
End Sub
6、
Sub 將數組中所有元素批量寫入單元格區域()
Dim arr As Variant
arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9)
Range("a1:a9").Value = Application.WorksheetFunction.Transpose(arr)
End Sub
7、
Sub ArrToRng2()
Dim arr(1 To 2, 1 To 3) As String '聲明一個2行3列的數組
arr(1, 1) = 1 '給數組中的各個元素賦值
arr(1, 2) = "葉楓"
arr(1, 3) = "男"
arr(2, 1) = 2
arr(2, 2) = "小月"
arr(2, 3) = "女"
Range("A1:C2").Value = arr '將數組arr保存的數據寫入活動工作表的A1:C2區域中
End Sub