分类：电脑/网络-软件-办公软件
问题：excel每隔21行插入一行，并且内容与第一行的内容相同 
每隔21行插入一行，并且内容与第一行的内容相同
回答：Sub 按钮1_单击()
a = [a65536].End(xlUp).Row
     With ActiveSheet
        .ResetAllPageBreaks
         For k = 22 To a Step 20
            .HPageBreaks.Add before:=Cells(k, 1)
             Next
             .HPageBreaks.Add before:=Cells(a + 1, 1)
        Cells(1, 1).Select
        End With
        ActiveWindow.View = xlNormalView

End Sub

 每行都有标题的话,自己手动进行一下页面设置.