excel 每隔N行插入固定内容

做了一个每隔3行插入一个空行的代码。

Sub 插入()

Dim I, J As Integer

I = 2

Const MM = 3 '每个3行插入1行

J = 0

Do While Cells(I, 1) <> "" ‘表头默认为第一行，当第一列数据为空时，表示数据项结束

If J = MM Then

    Cells(I, 1).Select

    Application.CutCopyMode = False

    Selection.EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

    J = 0

    I = I + 1

End If

I = I + 1

J = J + 1

Loop

End Sub

执行代码前表格如图所示：

执行代码后如图所示：

Sub 隔十五行插入两行()
n = [A65536].End(3).Row
For i = 16 To n Step 15

Rows("1:2").Copy '复制表头两行

Rows(i).Select
Selection.Insert Shift:=xlDown
i = i + 2
n = n + 2
Next
End Sub
在excel中，按alt+F11,调出VB编辑器，插入模块，把上面的代码复制如模块，按F5运行就可以了 。如果表头是3行，把上面代码的2全部改成3，其他的不变。

表头：打印用的吧，可以这样设置：
文件----页面设置---工作表---顶端标题行，选择你要的几个行即可；

如果是要打印出来直接设置每15行为一页，文件-页面设置-工作表-选择打印标题就行了

选定行后复制，然后在需要的行右击插入复制行内容就可以了。