excel如何将数据等分

'数据从A1开始的程序：Sub move() For i = 1 To 9 Range(Cells(i * 100 + 1, 1), Cells(i * 100 + 100, 1)).Select Selection.Cut Destination:=Range(Cells(1, i + 1), Cells(100, i + 1)) Next i Cells(1, 1).SelectEnd Sub