怎样将选中数据，重新排列成一行30个数据

zhangjimao

怎样将选中数据，重新排列成一行30个数据，选中的单元格数不固定，但是都需要重新排成一行30个数据的格式

魚。。

Sub Fish()
    Dim aa, bb(1 To 100, 1 To 30)
    Dim i&, j&, x&, y&
    aa = Selection
    x = 1
        For i = 1 To UBound(aa)
            For j = 1 To UBound(aa, 2)
                y = y + 1
                If y = 31 Then
                    y = 1
                    x = x + 1
                End If
                bb(x, y) = aa(i, j)
            Next
        Next
    [w2:az41] = bb
End Sub

zhangjimao

魚。。 发表于 2020-11-30 20:11
Sub Fish()
    Dim aa, bb(1 To 100, 1 To 30)
    Dim i&, j&, x&, y&

多谢老哥了，我明天试试