Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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

在Excel中一次删除所有页码


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

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

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应用程序 窗口。

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-2021 和 365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能 30 天免费试用。 60 天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

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

 

按评论排序
注释 (8)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
您好,我在上面的 VBA 代码中使用了将页码插入单元格,它很有魅力。 我的工作表可以是 2 页长(2 页向下和 1 个横向)、4 页长(2 个向下和 2 个横向)或 6 页长(2 个向下和 3 个横向)。 我已在需要打印页码的 6 个单元格中插入代码(通过依次选择每个单元格并运行 VBA),单元格地址为 H1、H35、T1、T35、AF1、AF35。 现在我想添加一个按钮来刷新这些页码,而不会影响相关用户可能选择运行它时可能处于活动状态的任何单元格,目前我必须再次依次选择每个单元格并运行 VBA :( 帮助将是巨大的赞赏!安托瓦内特
该评论由网站上的主持人最小化
我尝试了 VBA 宏,但我得到一个下标超出范围的错误......我做错了什么吗?
该评论由网站上的主持人最小化
Hola, hay un error en la formula porque cuando ejecuto (F5) el prime valor numérico de "Pagina XX de XX" no cambia。 Solo hace el conteo de páginas el segundo valor。 Podrian 修改器... Gracias
该评论由网站上的主持人最小化
terima kasih, 卡万
该评论由网站上的主持人最小化
我可以知道是否有要放入页码的单元格范围,我应该更改什么? 当前的 VBA 只允许我一一更改。
该评论由网站上的主持人最小化
我可以知道我应该如何修改上面的 VBA 以允许我对工作簿上的单元格范围执行此操作,并使用 1 个快捷键来应用所有选定的单元格?
该评论由网站上的主持人最小化
Hola,el codigo si me funciono, sin embargo al momento de imprimir, siempre me sale 1 de 5 y es que mi encabezado lo tengo área de impresión en todas mis paginas, ¿hay alguna forma de lograr que al momento de imprimir, se pueda cambiar la pagina, en la misma pestaña?
该评论由网站上的主持人最小化
Hay forma de convertir esta sub en una función?
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护