arr = Range("A1:D1")这是给数组赋值
Range("E2").Resize(1, UBound(arr, 2)) = arr 这是数组的值赋予单元格.横变列转置下就可以
增加一个转置函数Application.Transpose
Sub FDASFDSA()
Dim arr() As Variant
arr = Application.Transpose(Sheet1.Range("A1:A4").Value)
MsgBox UBound(arr)
For i = 1 To UBound(arr)
MsgBox arr(i)
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024