如题所述
第1个回答 推荐于2016-01-09
请参考：
Sub Macro1()
Dim arr, a
arr = Range("A1:A5") '二维数组
a = WorksheetFunction.Transpose(arr) '一维数组
End Sub本回答被提问者和网友采纳
Sub Macro1()
Dim arr, a
arr = Range("A1:A5") '二维数组
a = WorksheetFunction.Transpose(arr) '一维数组
End Sub本回答被提问者和网友采纳
第2个回答 2015-04-09
dim A
A=Range("A1:D5")
A=Range("A1:D5")
