[已解决]求助 数组的使用

jbh121

想实现将A1：A5，转置复制到B3：F3，想试着用数组，但不用循环语句，怎么实现呢？

Sub aa()
Dim arr
arr = [A1:A5]
[B3].Resize(1, 5) = arr
End Sub
 得到的都是[A1]的值

最佳答案

月排行榜 / 总排行榜

枯禅

2010-3-20 17:46

Sub aa()
Dim arr
arr = [A1:A5]
[B3].Resize(1, 5) = Application.Transpose(arr)
End Sub

跳转到最佳答案楼层

枯禅

Sub aa()
Dim arr
arr = [A1:A5]
[B3].Resize(1, 5) = Application.Transpose(arr)
End Sub

兰色幻想

Range("B3:F3").Value = Application.Transpose(Range("a1:a5"))