教你一个不是比较快的方法，你可以试试看
以D列“手”字填充为例，如图
在D列旁边插入E列，除了E1的位置输入“手”字外，下面E2=IF(D2="",E1,D2)，然后一直往下拉填充。
事实上 你前面的那个插入空白航的时候 就能直接解决你这个问题的……
只要把那个插入空白行的 代码修改成 插入复制的 行即可……
当然你如果不是整行复制的话，楼上的朋友的回答或许可以使用
Public Sub 插入复制行()
num = Range("a65536").End(xlUp).Row '检索最大记录数
For i = num To 1 Step -1
Rows(i).Select
Selection.Copy
For j = 1 To 5
Selection.Copy
Selection.Insert Shift:=xlDown
Next j
Next i
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024