论坛 › Excel 动画教程 › 再看看VBA的转置

不解木野狐 发表于 2012-2-17 13:00

再看看VBA的转置

本帖最后由 不解木野狐 于 2012-2-17 13:00 编辑

Sub 转置的惊喜()
Dim ARR
ARR = Range("A1:H8")
Range("A10").Resize(UBound(ARR, 2), UBound(ARR)) _
= WorksheetFunction.Transpose(ARR)
End Sub
VBA的转置也很简单啊

yiguo 发表于 2012-2-17 13:24

这个也顶一个，不过要怎么才能让代码识别不同的区域呢。{:3312:}

ppp710715 发表于 2013-1-16 08:20

学习了，谢谢！   

查看完整版本: 再看看VBA的转置