'数据从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).Select
End Sub
用offset()和row()组合就可以了,现在没时间,有空写给你
这种操作没什么特别的好方法,踏踏实实地做吧!
一次选中100个单元格,粘贴,然后复制不就完了??