如何利用宏实现多行多列转一行多列？求高手解答

baifanwasd

求高手解答，怎么样用宏实现多行多列转至首尾相接的一行多列，

金樽空对月

见附件

金樽空对月

1. Sub mytran()
   
2. Dim ar, br(), x, y, n
   
3. ar = Range("a2:c6")
   
4. For x = 1 To UBound(ar)
   
5.    For y = 1 To 3
   
6.      n = n + 1
   
7.      ReDim Preserve br(1 To n)
   
8.      br(n) = ar(x, y)
   
9.    Next y
   
10. Next x
    
11. Range("a11").Resize(1, n) = br
    
12. End Sub

复制代码

爱疯

Sub test()
    Dim x, j
    For Each x In [a2:c6]
        j = j + 1
        Cells(11, j) = x
    Next
End Sub