两节转一行

jaxxcyh

1. Sub test()
   
2.     Dim arr(1 To 4 * 2)
   
3.     For i = 1 To 4
   
4.         For j = 1 To 2
   
5.             arr((i - 1) * 2 + j) = Cells(i, j).Value
   
6.         Next
   
7.     Next
   
8.     [d1].Resize(1, 8).Value = arr
   
9. End Sub

复制代码

jaxxcyh

1. Sub test2()
   
2.     i = 1: j = 1: n = 1
   
3.     Do
   
4.         Cells(2, n + 3) = Cells(i, j)
   
5.         n = n + 1
   
6.         j = j + 1
   
7.         If j = 3 Then
   
8.             j = 1
   
9.             i = i + 1
   
10.         End If
    
11.     Loop Until n > 8
    
12. End Sub

复制代码

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, br, i&, j&, n&
   
    ar = [A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * UBound(ar))
    For i = 1 To UBound(ar)
        For j = 1 To UBound(ar, 2)
            n = n + 1
            br(n) = ar(i, j)
        Next j
    Next i
   
    [d1].Resize(, UBound(br)) = br
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。。

悠扬的旋律