假设你要在第一行和第10行之间每行都插入一行相同的信息，那么首先找一个不用的列，假设是K列，在K1到K10单元格填充一个等差数列，1、2、3、4……10，然后把你要插入的信息复制到第11到第20行，同样的在K列填充等差数列，不过这次是1.5、2.5、3.5……10.5，最后按照K列排序就OK了。
本程序复制第一行内容连续隔行插入5次
Sub InSert2()
For I = 1 To 5‘连插入5次
GX = I * 2’隔行插入
Rows("1:1").Copy'复制第一行内容，可修改
Rows(GX & ":" & GX).Insert Shift:=xlDown
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024