请参考：Sub Macro1()Dim arr, aarr = Range("A1:A5") '二维数组a = WorksheetFunction.Transpose(arr) '一维数组End Sub
