你好，有个关于Excel的问题想要咨询，希望能的都帮助。

图片中表格左边的内容怎样变为表格右边的显示。VBA代码应怎么写？

Sub aa()

Dim c As Range

co = 0

rowcounts = 2

For i = 2 To 20 Step 10'这里的20是一共有多少行，我测试是用20来的。

    For j = 1 To 2

        For m = 1 To 10

            If j = 2 Then

                co = 3

            Else

                co = 0

            End If

            For n = 1 To 3

            Cells(rowcounts, 7 + n) = Cells(i + m - 1, co + n)

            Next n

            rowcounts = rowcounts + 1

        Next m

    Next j

Next i

End Sub

下面是运算结果