如题所述
用vba吧，就是个拷贝复制即可，增加一层for循环。
制作了一个模拟的，供参考
代码如下：
Sub 插入()
Application.ScreenUpdating = False
Set Rng = [a1:c13]
For j = 1 To 5
Rng.Copy Cells(j * 15, 1)
Next j
Application.ScreenUpdating = True
End Sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-02-20
有一个简单粗暴的方法：
选中1到18行，复制，然后在选择范围的下一行（第19行）粘帖；
选中37到72行，复制，然后在选择范围的下一行（第73行）粘帖；
重复上述操作10次就超1000页了。
重复不到20次工作簿就满了。。。
选中1到18行，复制，然后在选择范围的下一行（第19行）粘帖；
选中37到72行，复制，然后在选择范围的下一行（第73行）粘帖；
重复上述操作10次就超1000页了。
重复不到20次工作簿就满了。。。
第2个回答 2017-02-20
选中1到18行，整行复制到下边，格式就能带到下边。本回答被网友采纳
