VBA--批量间隔n行插入复制行

Sub copyTest()
n = [A100].End(1).Row '1排头行数,100=要处理到第几行
For i = 22 To n Step 11 '22=插入首行，11=间隔N行
Rows("10").Copy '10代表要复制的行，若是多行则 Rows("10:12")
Rows(i).Select  '选中的sheet处理
Selection.Insert Shift:=xlDown
i = i + 1
n = n + 2
Next
End Sub

###
office调出宏步骤：alt+F11，运行宏F5
或
文件-》更多-》选项-》自定义功能区-》开发工具-》代码-》宏-》确定