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
或
文件-》更多-》选项-》自定义功能区-》开发工具-》代码-》宏-》确定

Rows("10").Copy '10代表要复制的行，若是多行则 Rows("10:12")n = [A100].End(1).Row '1排头行数,100=要处理到第几行。For i = 22 To n Step 11 '22=插入首行，11=间隔N行。文件-》更多-》选项-》自定义功能区-》开发工具-》代码-》宏-》确定。Rows(i).Select '选中的sheet处理。office调出宏步骤：alt+F11，运行宏F5。 新建一个sheet，把表头和第二 行 先 复制 黏贴过来，然后从第三 行 开始遍历，每 复制 黏贴一 行 后再往下延N 行 ，直至把原表数据完全 复制 完毕 1、辅助函数 Sub create_sheet(i As String) ' 宏 3 宏 On Error GoTo 999 Sheets("新sheet").Select Cells.Select Application.CutCopyMode = False Selection.Delete Shift:=xlUp