在Microsoft Excel中添加页码的6种方法

想知道如何在 Excel 中添加页码？从此博客中了解经过验证且轻松的方法。

Microsoft Excel 不仅仅是一个用于计算的应用程序，它还用于数据存储、数据可视化和各种分析任务。您可能需要在 Excel 文件中添加数百页，具体取决于您需要在其中存储的数据量。

此外，您可能需要与同事、客户和利益相关者一起处理电子表格。当处理电子表格的人位于不同地点时，准确的引用就变得非常重要。否则，就会出现沟通不畅，这可能会对企业造成不利影响。因此，Excel 文件中必须有页码，以便正确引用。

如果您遇到过上述任何一种情况，您一定知道在 Excel 文件中添加页码的重要性。现在的问题是，如何在 Excel 中添加页码。

好吧，既然您已经来到这个博客，就没有必要担心。只要继续阅读，您就会知道执行此任务的最佳方法。但首先，让我们看看为什么您可能想要在 Excel 电子表格中添加页码。

在 Excel 中添加页码的原因

您可能希望在 Excel 工作表中添加页码的原因如下：

当与他人共享或打印在纸上时，页码可以帮助您轻松浏览文件。
打印大型 Exel 文件时，页码可帮助用户正确组织文件。
每当需要引用或交叉引用 Excel 文件时，页码都会很方便。
在 Excel 文件中添加页码被视为商业和专业环境中的标准做法。
在协作处理 Excel 文件期间，页码有助于跟踪更改并保持一致性。
页码可以帮助用户保持阅读顺序，尤其是当页面包含大量文件时。
有时，由于合规性问题，人们必须在法律上在 Excel 文件中添加页码。
当您需要向法庭提交Excel文件时，该文件应该按照监管要求带有页码。
当您需要将数据从 Excel 文件导出到 PDF 等其他文件格式时，在源文件中添加页码可让您轻松地在目标文件格式中进行页码编号。

从插入选项卡添加页码

插入选项卡可让您向 Excel 工作表添加各种内容，其中之一就是页码。请参阅以下可遵循的步骤：

打开要添加页码的 Excel 工作簿。
转到特定工作表，例如 工作表1。
在 Excel 窗口顶部，您将看到 Excel 功能区 菜单上有许多选项卡。点击插入标签。
在插入选项卡，找到文本组。在这里，您可以找到 页眉页脚 按钮。点击它。

Excel 将切换到 页面布局 带有三个用于页眉和页脚的文本占位符的视图。
假设您想将页码放在页面顶部和中间。因此，单击中间页眉占位符。
点击 页眉页脚 选项卡上的 Excel 功能区 菜单。
在 – 的里面 页眉和页脚元素 阻止，点击页码按钮。
输入单词“的“。
前往 页眉和页脚元素 再次点击页数按钮。

单击 Excel 工作表页面上的任何其他位置即可查看页码。
前往看法选项卡上的 Excel 功能区 菜单并点击 普通的 按钮切换到原始电子表格视图。

从“页面布局”选项卡插入页码

在 Excel 工作表中添加页码的另一种方法是通过“页面布局”选项卡。操作方法如下：

点击 页面布局 查看 Excel 状态栏，位于 右下角 屏幕一角，靠近工作表放大工具。

另一种访问方式 页面布局 视图是通过看法 > 工作簿视图 > 页面布局。
您现在应该看到 添加标题 和 添加页脚 占位符。

点击任意一个占位符并转到 页眉页脚 选项卡添加页码和页数元素。

使用页面设置对话框添加页码

您可以使用此方法向工作簿中的一个或多个工作表添加页码。

对于一个工作表，您只需按照下面提到的步骤操作即可。如果您需要为多个工作表添加页码，请转到第一个工作表。然后，按 Ctrl 键。现在，选择所有其他必须添加页码的工作表选项卡。现在，请按照以下步骤操作：

前往 页面布局 标签。
点击 对话框启动器 右下角的链接 页面设置 堵塞。
页面设置 将打开对话框。
点击 页眉页脚 标签。
点击 自定义标头 如果您想在 Excel 工作表顶部添加页码。
或者，点击 自定义页脚 如果您需要 Excel 工作表页面底部的页码，请单击此处的按钮。

从中选择任意占位符左节， 中心部分，或者 右部分。
点击 插入页码 元素的右侧 格式化文本 （一个按钮。
输入单词“的“。
现在，点击页数按钮。它位于 插入页码 元素。
点击好的在页脚或者标头对话。
最后，点击好的在 页面设置 对话。

现在您应该可以在一个或多个工作表页面上看到页码。

如何更改起始页码

到目前为止，您已经学习了向 Excel 工作表的页面添加页码的各种方法。

假设您希望 Excel 报告从第 50 页开始。该怎么做？步骤如下：

首先，使用您迄今为止练习过的任何方法添加页码元素。
现在，转到 页面布局 标签。
点击 对话框启动器 链接扩展 页面设置 命令块进入对话框。
在 页面设置 对话框中，转到页选项卡。它也可以是默认选择。
你应该找到 首页页码 在页选项卡 页面设置 对话。
在右侧的框中，你应该看到汽车。这会告诉 Excel 自动对页码进行编号。
双击汽车并按 退格键 或者删除钥匙。
现在，输入您想要在工作表页面中使用的起始数字。例如， 50。
点击好的保存您刚刚做的更改。
您应该看到起始页码已更改为 50 如果你切换到 页面布局 看法。

如何在连续工作表中添加页码

假设您的 Excel 工作簿中有 3 个工作表，每个工作表包含 50 页。现在，如果您为所有三个工作表添加页码并打印这些页面，您将发现三组工作表页面，从页码 1 开始到页码 50 结束。

当您将打印的页面排列在一份报告中时，这可能会让您感到困惑，而且审查该报告的收件人也会感到困惑。

在这里，您可以按顺序对 Excel 工作表中的页面进行编号，编号范围为 1 到 150。操作方法如下：

使用前面提到的任何一种方法为所有三个工作表添加页码。
现在，转到第二张工作表。
访问 页面设置 对话框并手动将起始页码更改为 51（我之前在本文前面的部分提到过这样做的步骤。）
然后，转到第三个工作表。
在这里，手动将起始页码更改为 101。

就是这样！当您打印此 Excel 工作簿中的所有页面时，您将看到页面按 1 到 150 排列，而不是 3 组 1 到 50 页。

使用 Excel VBA 添加页码

Excel VBA 允许您自动完成在 Excel 中添加页码的整个过程。以下是脚本以及实现它的步骤：

按 Alt + F11 同时按下按键即可启动 Excel VBA 编辑器 界面。
点击插入按钮。
在打开的上下文菜单中，单击模块选项。
在空白模块内，复制并粘贴此 Excel VBA 脚本：

Sub AddPageNumbers()
    Dim ws As Worksheet
    Dim totalPageCount As Integer
    Dim pageNumberLocation As String
    
    ' Set the worksheet where you want to add page numbers
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' Replace "Sheet1" with your actual sheet name
    
    ' Prompt the user for page number location preference
    pageNumberLocation = InputBox("Enter page number location (Header or Footer)", "Page Number Location")
    
    ' Initialize total page count
    totalPageCount = ws.PageSetup.Pages.Count
    
    ' Set page number based on user preference
    Select Case UCase(pageNumberLocation)
        Case "HEADER"
            With ws.PageSetup
                .CenterHeader = "&P of " & totalPageCount
            End With
        Case "FOOTER"
            With ws.PageSetup
                .CenterFooter = "&P of " & totalPageCount
            End With
        Case Else
            MsgBox "Invalid location. Page numbers not set."
            Exit Sub
    End Select
End Sub

点击节省按钮。

在警告消息框中，单击回去按钮。

在 另存为 对话框中，点击 保存类型 落下。
选择 超音速巡航导弹 或者 启用宏的工作簿 选项。
点击节省按钮。
关闭 Excel VBA 编辑器。

您已成功创建一个名为 添加页码执行此 VBA 宏的步骤如下：

按 Alt + F8 键打开宏对话框。
在那里，选择 添加页码 宏。
打跑步按钮执行宏。
该脚本将显示一个消息框。
在那里，你必须输入标头文本在页眉部分添加页码。
或者，您可以输入页脚文本插入页码作为页脚。

上述脚本仅向 Excel 工作簿的一个工作表添加页码。如果要自动向所有工作表添加页码，可以使用以下 VBA 脚本：

Sub AddPageNumbersToHeaderOrFooter()
    Dim ws As Worksheet
    Dim pageNum As Integer
    Dim locationPreference As String
    
    ' Set the worksheet where you want to add page numbers
    Set ws = ThisWorkbook.Sheets("Sheet1")  ' Replace "Sheet1" with your actual sheet name
    
    ' Prompt the user for page number location preference
    locationPreference = UCase(InputBox("Enter page number location preference (Header or Footer):", "Page Number Location"))
    
    ' Start with page number 1
    pageNum = 1
    
    ' Loop through each sheet in the workbook
    For Each ws In ThisWorkbook.Sheets
        ' Set page number based on user preference
        Select Case locationPreference
            Case "HEADER"
                With ws.PageSetup
                    .CenterHeader = "&P"
                End With
            Case "FOOTER"
                With ws.PageSetup
                    .CenterFooter = "&P"
                End With
            Case Else
                MsgBox "Invalid location preference. Page numbers not set."
                Exit Sub
        End Select
        
        ' Increment page number for the next sheet
        pageNum = pageNum + 1
    Next ws
End Sub

结论

作为 Excel 用户，您可能出于多种原因想要在电子表格文件中添加页码。您可能有法规义务添加页码，或者在打印副本时可能需要整理大型文档。

无论出于什么原因，您都不必担心如何在 Excel 中添加页码。这根本不是一个困难的过程，任何 Excel 用户都可以按照我上面提到的方法轻松添加页码。

那么，您还在等什么？实施您选择的任何方法，轻松完成工作。如果您知道此处未包含的任何其他方法，请在评论部分告诉我们。此外，不要忘记告诉我们哪种方法对您有用，或者您发现哪种方法很困难。