关于转置的问题，请问将表一的区域转置到表二？

※矾风※

关于转置的问题，请问将表一的区域转置到表二，每按一次按按钮自动往下填写。？

凌空一羽

1. Sub lkyy()
   
2. M = Range("a1000").End(3).Row
   
3. ar = Range("a1:E" & M)
   
4. ReDim br(1000)
   
5. For j = 1 To UBound(ar, 2)
   
6. For i = 1 To UBound(ar)
   
7. If ar(i, j) <> "" Then br(n) = ar(i, j): n = n + 1
   
8. Next i, j
   
9. Sheet2.Range("a2").Resize(1, n + 1) = br
   
10. End Sub

复制代码

※矾风※

凌空一羽 发表于 2017-7-23 12:58

大侠，还有那个（每按一下自动往下填入的呢？）

※矾风※

凌空一羽 发表于 2017-7-23 12:58

是这样吗？
Sub lkyy()
M = Range("a1000").End(3).Row
ar = Range("a1:E" & M)
ReDim br(1000)
For j = 1 To UBound(ar, 2)
For i = 1 To UBound(ar)
If ar(i, j) <> "" Then br(n) = ar(i, j): n = n + 1
Next i, j
lr = Sheet2.[A65536].End(3).Row + 1

Sheet2.Cells(lr, "A").Resize(1, n + 1) = br
End Sub

※矾风※

凌空一羽 发表于 2017-7-23 12:58

假如有有几个单元格的内容（G2，H2，I2，G5）排在他们的前面。应该怎么写呢？(G2，H2，I2，G5)的内容,A1        A2        a3        a4        a5        a6        a9        a10        a11        a12        a13        a14        b1        b2        b3        b4        b5        b6        b9        b10        b11        b12        b13        b14        c1        c2        c3        c4        c5        c6        c9        c10        c11        c12        c13        c14        d1        d2        d3        d4        d5        d6        d9        d10        d11        d12        d13        d14        e1        e2        e3        e4        e5        e6        e9        e10        e11        e12        e13        e14