再看看VBA的转置

不解木野狐

1. Sub 转置的惊喜()
   
2. Dim ARR
   
3. ARR = Range("A1:H8")
   
4. Range("A10").Resize(UBound(ARR, 2), UBound(ARR)) _
   
5. = WorksheetFunction.Transpose(ARR)
   
6. End Sub

复制代码

VBA的转置也很简单啊

yiguo

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

ppp710715

学习了，谢谢！