excel 怎么能让每页有底部标题行,如图

发布网友发布时间：2022-04-23 03:40

共2个回答

热心网友时间：2023-10-13 15:11

用vba 拷贝吧。做个对sheet页的循环，然后每个sheet页拷贝标题行。

Sub Macro1()
'粘贴表头
    activeworkbook.worksheets(1).activate
    Range("A1:Q7").Select
    Selection.Copy
    For i = 2 To ActiveWorkbook.Worksheets.Count
        ActiveWorkbook.Worksheets(i).Activate
        activesheet.range("A1").select
        Selection.Insert Shift:=xlDown
    next
End Sub
'粘贴表尾
Sub Macro2()
'粘贴表尾，这个可能需要你修改调试
    activeworkbook.worksheets(1).activate
    Range("A12:Q16").Select
    Selection.Copy
    For i = 2 To ActiveWorkbook.Worksheets.Count
        ActiveWorkbook.Worksheets(i).Activate
        j=activesheet.usedrange.rows.count
        activesheet.cells(j,"A").select
        Selection.Insert Shift:=xlDown
    next
End Sub

追问具体怎么操作啊？不会啊

热心网友时间：2023-10-13 15:11

是打印出来的每页要有表头，表尾么？？？