VBA：多列数据按固定列数转变成竖排

lijian8003

.VBA：多列数据，指定A2:I6范围，按固定列数3，转变成右图所示的竖排格式。数据量大，速度是第一要素。

哥儿-

右边的模拟结果有问题，i6的54不要了吗？
Sub test()
    Dim arr, brr, i&, j%, n&
    arr = [a2:i6]
    ReDim brr(1 To UBound(arr, 2) * 2, 1 To 3)
    For j = 1 To UBound(arr, 2) Step 3
        For i = 1 To UBound(arr)
            n = n + 1
            brr(n, 1) = arr(i, j)
            brr(n, 2) = arr(i, j + 1)
            brr(n, 3) = arr(i, j + 2)
        Next
    Next
    [p2].Resize(UBound(brr), 3) = brr
End Sub

lijian8003

哥儿- 发表于 2022-10-22 20:53
右边的模拟结果有问题，i6的54不要了吗？
Sub test()
    Dim arr, brr, i&, j%, n&

谢谢