excel中有一组n行3列的数据，数据每210行3列一组。如何快速将数据分列。

Sub ccol()
    Application.ScreenUpdating = False
    s = Sheet1.UsedRange.Rows.Count
    t = Int(s / 200)
    For i = 1 To t
        Range(Cells(i * 200 + 1, 1), Cells(i * 200 + 200, 3)).Cut
        Cells(1, 4 * i + 1).Select
        ActiveSheet.Paste
    Next
    Application.ScreenUpdating = True
End Sub

以上代码放在VBA sheet1中运行即可

Sub fenzu()
    Dim i As Integer
    Dim c As Integer
    c = 0
    Application.ScreenUpdating = False
    For i = 212 To [A65536].End(xlUp).Row Step 210
        c = c + 1
        Range("A" & i & ":C" & i + 209).Cut
        Cells(2, c * 4 + 1).Select
        ActiveSheet.Paste
    Next
    Application.ScreenUpdating = True
End Sub