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