怎样设定EXCEL整个工作簿的顶端标题栏？

Posted 2023-04-28

顶端标题行只能一个个工作表设置.
如果工作表特别多,可以使用下面的代码将当前工作簿的所有工作表的顶端标题行设置为$1:$1

Sub test()
For Each s In ThisWorkbook.Sheets
s.PageSetup.PrintTitleRows = "$1:$1"
Next
End Sub
回答的很好，这个需要选中所有工作表，在标签处单击右键选择“查看代码”，将上述代码复制到出现的空白框里，运行后，返回就可以了。 参考技术A

用万能的VBA可以实现。代码如下：

Sub Macro1()

Dim mys

For Each mys In ActiveWorkbook.Sheets

    mys.Select

    With ActiveSheet.PageSetup

        

        .CenterHeader = "XX公司项目进度表"

    End With

Next

End Sub

该宏的功能是：遍历当前工作簿的每个工作表，将每个工作表的页眉设置为"XX公司项目进度表"。

运行该宏后，点击SHEET2，点击打印预览，结果如图：

参考技术B 如果想打印时每页显示顶端标题行：点菜单“页面设置”——工作表——顶端工作行，按右边的图标，点选需要的行就可以了。
如果只是想编辑时总能看到顶端标题行，选定标题行下面一行——点菜单“窗口”——冻结窗体就可以了。

怎样批量提取excel中每个工作簿的倒数第二行?

一个excel一共有100多页,但我只想要每一页的一列的倒数第二行,请教高手!!!!
一百多页都要这么做呀?太麻烦了啊, 就是说一个excel中有100多个工作表, 我只想要每页中的第一列的倒数第二行

参考技术A 第一你提问得不太明白.

将每一页的一列的倒数第二行其它所有行选定,隐藏之.

剩下的就是你要的. 参考技术B 下面有页码的自己设置就可以了。