VBA教程初级（七）：数组的其他操作

'使用split函数创建数组
Public Sub pss_split()
Dim arr As Variant
' 利用split创建数组
arr = Split("邓肯 科比 麦迪", " ")
MsgBox "arr第二个元素为:" & arr(1)
End Sub

' 区域复制
Public Sub pss_copy()
Dim arr As Variant
'通过Range对象直接创建数组
arr = Range("A1:C3").Value
Range("D1:F3").Value = arr
End Sub