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

当您打印Excel文件时，可能需要在页中插入页码，以使文件清晰，可读。 在本文中，我将介绍一些快速技巧，为您插入页码到单元格，页眉或页脚中。

在一个工作表的页眉/页脚中插入页码

在多个工作表的页眉/页脚中插入页码

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

在Excel中一次删除所有页码

在一个工作表的页眉/页脚中插入页码

通常，我们可以使用来快速将页码插入页眉或页脚 页眉页脚 功能，请执行以下操作：

1。 转到要在页眉或页脚中插入页码的工作表。

2。 然后点击 插页 > 页眉页脚，您的工作表将在 页面布局 查看，查看截图：

3。 单击要在其中插入页码的页眉或页脚，然后单击 工艺设计 与 页眉和页脚工具 显示在功能区中，然后单击 工艺设计 > 页码，请参见屏幕截图：

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

5。 现在，您可以通过以下方式重置为普通视图： 首页 > 正常，并且在打印此工作表时，您将看到页码已插入到所选的页眉或页脚中。

备注：如果要以1之15、2之15格式显示页码，则只需直接输入 ＆[页面]中的＆[页面] 进入页眉或页脚字段框，请参见屏幕截图：

在多个工作表的页眉/页脚中插入页码

上面的方法可以帮助您将页码插入一个工作表中，如果您要将页码插入工作簿的所有工作表中以使所有页面都按顺序编号，请执行以下操作：

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

2。 在 页面设置 对话框，请单击 页眉页脚 标签，然后单击 自定义标题 or 自定义页脚 要设置所需的页眉或页脚，请参见屏幕截图：

3. 而在 标题 or 页脚 对话框中，请在页面的内部单击以定义插入页码的位置 左侧部分：, 中心部分：或 右侧部分： 您需要的框，然后单击 插入页码 图标和占位符 ＆[页] 出现。 看截图：

请注意： 输入这个 ＆[页面]中的＆[页面] 如果您希望将页码显示为1中的45、2中的45…，则将其添加到页眉或页脚字段框中

4. 然后点击 OK > OK 若要关闭对话框，当您打印此工作簿时，在打印预览中，您可以看到所有页码均按顺序插入页眉或页脚。

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

将页码插入页眉或页脚很容易，但是，如果您需要将页码插入工作表单元格，则没有直接的方法。 以下VBA代码可以帮助您解决此问题。

1。 单击要在其中显示该单元的页码的单元格。

2。 按住 ALT + F11 键，然后打开 Microsoft Visual Basic应用程序 窗口。

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。 在 页面设置 对话框，单击 页眉页脚 标签，然后选择 （无） 来自 标题 or 页脚 下拉列表，请参见屏幕截图：

3. 然后点击 OK 按钮，立即将所有页码从工作簿中删除。