提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

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

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

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

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

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

在Excel中一次删除所有页码


将工作表名称/文件名称/创建日期/修改日期...插入页眉/页脚/单元格中:

您订购的 Kutools for Excel插入工作簿信息 实用程序,您可以根据需要快速将表单名称,文件名,文件路径和名称,创建日期,修改日期和儿子插入到单元格,页眉或页脚中。 现在就下载免费的Kutools for Excel!

doc插入页码11-11

Kutools for Excel:比200方便的Excel加载项,可以在60天免费试用。 下载并免费试用现在!


箭头蓝色右泡 在一个工作表中将页码插入到页眉/页脚中


通常情况下,我们可以通过使用“。”来快速地将页码插入页眉或页脚 页眉和页脚 功能,请按照以下步骤操作:

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

2。 然后点击 插页 > 页眉和页脚,你的工作表将会在 页面布局 查看,查看截图:

doc插入页码1

3。 单击要插入页码的页眉或页脚,然后单击 设计 选项卡 页眉和页脚工具 显示在功能区中,然后单击 设计 > 页码,看截图:

doc插入页码2

4。 你可以看到占位符 &[页] 出现在所选部分中,然后单击页眉或页脚区域外的任何位置以显示页码。 看截图:

doc插入页码3

5。 现在,您可以通过单击重置回正常视图 查看 > 正常,并且当您打印此工作表时,您会看到已将页码插入到所选的页眉或页脚中。

注意:如果您想将页码显示为1的15,2格式的15,则只需直接输入 &[页面]&[页面] 进入页眉或页脚栏框,看截图:

doc插入页码4


箭头蓝色右泡 将页码插入到多个工作表的页眉/页脚中

上面的方法可以帮助您将页码插入到一个工作表中,如果要将页码插入工作簿的所有工作表中以使所有页面按顺序编号,请按照以下方式进行操作:

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

doc插入页码5

2。 在 页面设置 对话框,请点击 页眉页脚 选项卡,然后单击 自定义页眉 or 自定义页脚 去设置你想要的页眉或页脚,看截图:

doc插入页码6

3。 和在 排气歧管 or 页脚 对话框中,请通过在内部单击来定义插入页码的位置 左侧部分:, 中心部分:, 或 右侧部分: 根据需要选择复选框,然后单击 插入页码 图标和占位符 &[页] 出现。 看截图:

doc插入页码7

请注意: 输入这个 &[页面]&[页面] 如果您希望页面编号显示为1的45,2的45 ...,请将其放入页眉或页脚字段框中。

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


箭头蓝色右泡 用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 键以运行此代码,并且此单元格的页码显示在所选单元格中,请参阅截图:

doc插入页码8


箭头蓝色右泡 在Excel中一次删除所有页码

要删除所有页码,您可以应用以下步骤:

1。 选择所有工作表选项卡,然后转到 页面布局 功能区上的标签,然后单击 对话框启动器按钮 中的图标 页面设置 组,请参阅截图:

doc插入页码9

2。 在 页面设置 对话框,单击 页眉页脚 选项卡,然后选择 (无) 来自 排气歧管 or 页脚 下拉列表,看截图:

doc插入页码10

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


Kutools for Excel - 最佳办公生产力工具提高80%的生产力

  • 重用: 快速插入 复杂的公式,图表 以及你以前用过的任何东西; 加密单元格 密码; 创建邮件列表 并发送电子邮件...
  • 超级方程式酒吧 (轻松编辑多行文字和公式); 阅读布局 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不丢失数据; 分裂细胞含量; 组合重复的行/列...防止重复的细胞; 比较范围...
  • 选择复制或唯一 行; 选择空行 (所有细胞都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择......
  • 精确复制 多个单元格而不更改公式参考; 自动创建参考 多张表; 插入项目符号,复选框等等......
  • 提取文本,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级过滤器 (将过滤方案保存并应用到其他工作表); 高级排序 按月/周/日,频率等; 特殊过滤器 用粗体,斜体......
  • 结合工作簿和工作表; 根据键列合并表; 将数据拆分为多个表格; 批量转换xls,xlsx和PDF...
  • 超过300强大的功能。 支持Office / Excel 2007-2019和365。 支持所有语言。 在您的企业或组织中轻松部署。 全功能60天免费试用。
kte tab 201905

Office选项卡为Office提供选项卡式界面,使您的工作更轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,Publisher,Access,Visio和Project。
  • 在同一窗口的新选项卡中打开并创建多个文档,而不是在新窗口中。
  • 通过50%提高您的工作效率,每天为您减少数百次鼠标点击!
官方底部

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Onyx LAI · 10 months ago
    May I know how I should modify above VBA that allows me to execute this to range of cells on a workbook and with 1 short cut key to apply all selected cells?
  • To post as a guest, your comment is unpublished.
    Onyx · 10 months ago
    May I know if I have range of cells that I want to put in page numbers, what should I change? The current VBA only allows me to change one by one.
  • To post as a guest, your comment is unpublished.
    Wep Channel · 1 years ago
    terima kasih, kawan
  • To post as a guest, your comment is unpublished.
    Made Made · 1 years ago
    Hola, hay un error en la formula porque cuando ejecuto (F5) el primer valor numérico de "Pagina XX de XX" no cambia. Solo hace el conteo de páginas el segundo valor. Podrian revisar... Gracias
  • To post as a guest, your comment is unpublished.
    Jim · 2 years ago
    I tried the VBA macro, but I'm getting a subscript out of range error... Did I do something wrong?
  • To post as a guest, your comment is unpublished.
    Antoinette Anderson · 3 years ago
    Hello

    I used the Insert page number into cell with VBA code above and it works a charm.
    My sheet could be either 2 pages long (2 down and 1 across), 4 pages long (2 down and 2 across) or 6 pages long (2 down and 3 across).
    I have inserted the code in each cell of the 6 that require page number to be printed (by selecting the cells each in turn and running the VBA), cell addresses are H1, H35, T1, T35, AF1, AF35.
    Now I would like to add a button to refresh these page numbers without affecting whichever cell may be active when the relevant user may choose to run it, currently I have to select each cell in turn again and run the VBA :(

    Assistance would be hugely appreciated!

    Antoinette