Excel工作簿页码如何设置？如何自动添加？

作者：佚名|分类：EXCEL|浏览：154|发布时间：2025-04-12 02:35:38

Excel工作簿页码设置与自动添加指南

在Excel中，页码的设置对于打印和分发工作簿非常重要，它可以帮助用户快速定位到所需的内容。以下是关于如何在Excel中设置页码以及如何自动添加页码的详细指南。

一、手动设置页码

1. 打开Excel工作簿：

首先，打开你想要设置页码的Excel工作簿。

2. 选择页眉和页脚：

点击“视图”选项卡，然后在“工作簿视图”组中，选择“页眉和页脚”按钮。

3. 设置页眉：

在弹出的页眉和页脚工具栏中，切换到“设计”选项卡。在“插入”组中，点击“页码”按钮。

4. 选择页码位置：

在下拉菜单中，你可以选择页码的位置，如“页面顶端”、“页面底端”、“页眉”或“页脚”。

5. 自定义页码格式：

如果需要，你可以点击页码旁边的下拉箭头，选择不同的页码格式，如“第1页”、“第1章”等。

6. 保存设置：

完成设置后，点击页眉和页脚工具栏中的“关闭”按钮，关闭页眉和页脚编辑。

二、自动添加页码

1. 使用“打印预览”功能：

在设置页码时，你可以直接在“打印预览”中添加页码。在“文件”菜单中选择“打印”，然后点击“设置”按钮，在弹出的打印设置窗口中，切换到“页眉和页脚”选项卡，然后按照上述步骤添加页码。

2. 使用宏自动添加页码：

如果你需要频繁地在多个工作簿中添加页码，可以使用宏来自动化这个过程。

打开Excel，按下 `Alt + F11` 打开VBA编辑器。

在VBA编辑器中，插入一个新的模块（右键点击“VBAProject (你的工作簿名)” -> “插入” -> “模块”）。

在新模块中，输入以下宏代码：

```vba

Sub AddPageNumbers()

Dim ws As Worksheet

Dim HeaderFooter As HeaderFooter

Dim PageNumber As String

PageNumber = "第 &P 页，共 &N 页"

For Each ws In ThisWorkbook.Worksheets

Set HeaderFooter = ws.PageSetup.HeaderFooter

HeaderFooter.LeftHeader = PageNumber

HeaderFooter.CenterHeader = ""

HeaderFooter.RightHeader = ""

HeaderFooter.LeftFooter = ""

HeaderFooter.CenterFooter = ""

HeaderFooter.RightFooter = ""

Next ws

End Sub

```

关闭VBA编辑器，回到Excel界面。

按下 `Alt + F8`，选择“AddPageNumbers”，然后点击“运行”。

三、常见问题解答