如何在Excel中将页码插入单元格/页眉/页脚？

当您打印一个Excel文件时，可能需要将页码插入到页面中，以使打印的文件整齐且易于阅读。在本文中，我将介绍一些快速技巧，帮助您将页码插入到单元格、页眉或页脚中。

在单个工作表中插入页码至页眉/页脚

跨多个工作表插入页码至页眉/页脚

使用VBA代码将页码插入单元格

一次性删除Excel中的所有页码

在单个工作表中插入页码至页眉/页脚

通常，我们可以使用“页眉和页脚”功能快速将页码插入到页眉或页脚中，请按照以下步骤操作：

1. 转到要插入页码的工作表的页眉或页脚位置。

2. 然后点击 插入 > 页眉和页脚，您的工作表将切换到页面布局视图，参见截图：

3. 单击要插入页码的页眉或页脚区域，随后功能区中会显示带有“页眉和页脚工具”的 设计 选项卡，然后点击 设计 > 页码，参见截图：

4. 您可以看到占位符 &[页码] 出现在所选部分中，然后单击页眉或页脚区域外的任意位置以显示页码。参见截图：

5. 现在，您可以通过点击 视图 > 普通 返回正常视图，当您打印此工作表时，您会看到页码已插入到您选择的页眉或页脚中。

注意：如果您希望页码显示为“第1页，共15页”、“第2页，共15页”的格式，只需直接输入 &[页码] of &[总页数] 到页眉或页脚字段框中即可，参见截图：

跨多个工作表插入页码至页眉/页脚

上述方法可以帮助您将页码插入到单个工作表中。如果要将页码插入到整个工作簿的所有工作表中，并按顺序对所有页面进行编号，请按照以下步骤操作：

1. 选择所有的工作表标签，然后转到 页面布局 选项卡，并点击 页面设置 组中的 对话框启动器按钮 图标，参见截图：

2. 在 页面设置 对话框中，请点击 页眉/页脚 选项卡，然后点击 自定义页眉 或 自定义页脚 进行设置所需的页眉或页脚，参见截图：

3. 在 页眉 或 页脚 对话框中，请通过单击 左侧部分:、居中部分: 或 右侧部分: 框来定义页码插入的位置（根据需要），然后点击 插入页码 图标，占位符 &[页码] 将出现。参见截图：

注意：如果希望页码显示为“第1页，共45页”、“第2页，共45页”…，请在页眉或页脚字段框中输入 &[页码] of &[总页数]。

4. 然后点击 确定 > 确定 关闭对话框，当您打印此工作簿时，在打印预览中，您会看到所有页码都按顺序插入到了页眉或页脚中。

使用VBA代码将页码插入单元格

将页码插入页眉或页脚非常容易，但如果需要将页码插入到工作表的单元格中，则没有直接的方法可以实现。以下VBA代码可能帮助您解决这个问题。

1. 单击要显示该单元格页码的单元格。

2. 按住 ALT + F11 键，打开 Microsoft Visual Basic for Applications 窗口。

3. 点击 插入 > 模块，并将以下代码粘贴到模块窗口中。

VBA代码：将当前页码插入单元格：

Sub pagenumber()
'updateby Extendoffice 20160506
    Dim xVPC As Integer
    Dim xHPC As Integer
    Dim xVPB As VPageBreak
    Dim xHPB As HPageBreak
    Dim xNumPage As Integer
    xHPC = 1
    xVPC = 1
    If ActiveSheet.PageSetup.Order = xlDownThenOver Then
        xHPC = ActiveSheet.HPageBreaks.Count + 1
    Else
        xVPC = ActiveSheet.VPageBreaks.Count + 1
    End If
    xNumPage = 1
    For Each xVPB In ActiveSheet.VPageBreaks
        If xVPB.Location.Column > ActiveCell.Column Then Exit For
        xNumPage = xNumPage + xHPC
    Next
    For Each xHPB In ActiveSheet.HPageBreaks
        If xHPB.Location.Row > ActiveCell.Row Then Exit For
        xNumPage = xNumPage + xVPC
    Next
    ActiveCell = "Page " & xNumPage & " of " & Application.ExecuteExcel4Macro("GET.DOCUMENT(50)")
End Sub

4. 然后按 F5 键运行此代码，该单元格的页码将显示在选定的单元格中，参见截图：

一次性删除Excel中的所有页码

要删除所有页码，可以按照以下步骤操作：

1. 选择所有工作表标签，并转到功能区上的 页面布局 选项卡，然后点击 页面设置 组中的 对话框启动器按钮 图标，参见截图：

2. 在 页面设置 对话框中，点击 页眉/页脚 选项卡，然后从 页眉 或 页脚 下拉列表中选择 (无)，参见截图：

3. 然后点击 确定 按钮，所有页码都会立即从工作簿中删除。