1. 程式人生 > >VBA Range與陣列互相賦值

VBA Range與陣列互相賦值

Sub test()
'Range賦值給陣列(利用Application.WorksheetFunction.Transpose)
' Dim myData
'    myData = Application.WorksheetFunction.Transpose(Range("a1:e5"))
'    MsgBox "共有" & UBound(myData) & "個數據!"


Dim objrge As Range


Set objrge = Sheets(1).Range("a11:e15")
objrge.Value = myData


'Range賦值給陣列
myarr = Range("a1:e5")
'陣列賦值給Range
Set objrge = Sheets(1).Range("a11:e15")
objrge.Value = myarr
End Sub