先录制宏、再修改宏，加上计数与循环即可。
如果是：
“剪切”6、7、8、9行，
“插入已剪切的单元格”到54、55、56、57行的位置上；
.........................
则代码如下：
Sub Macro1()
js = 0
Do While js <= 1259
jqh = (js * 61 + 6) & ":" & (js * 61 + 9)
zth = (js * 61 + 58) & ":" & (js * 61 + 58)
Rows(jqh).Select
Selection.Cut
Ro支片题队径夫构告自ws(zth).Select
Selec振速概料菜tion.Insert Shift:=xlDown
js = js + 1
Loop
End Sub
追答 : 1259=76805/61后取整！
追问 : 谢谢，但任务不是剪切6、7、8、9行插入到54、55、56、57行，而是，删除6、7、8、9行，然后插入54、55、56、57行，……
追问 : 谢谢，但任务不是剪切6、7、8、9行插入到54、55、56、57行，而是，删除6、7、8、9行，然后插入54、55、56、57行，……
追答 : 插入的都是空行吗？
追问 : 插入的行为空白行。
追答 : 代码改成：
Sub Macro1()
js = 0
Do While js <= 1259
jqh = (js * 61 + 6) & ":" & (js * 61 + 9)
zth = (js * 61 + 54) & ":" & (js * 61 + 57)
Rows(jqh).Select
Selection.Delete Shift:=xlUp
Rows(zth).Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
js = js + 1
Loop
End Sub
追问 : 谢谢，验证结果是对的，但是耗时20分钟才完成一次任务，能否提速在2分钟内完成任务？听说用数组实现会很快？
