怎么在<em>Excel</em>单元格中插入总页数和当前页码-excel 显示打印页数,exc

首先:点CTRL+F3打开自定义名称，新建几个名称。
1，“纵当前页”，在下面引用位置（通常引用的是单元格位置，我们要做的是直接输这段代码）处输入:
=IF(ISNA(MATCH(ROW()，GET.DOCUMENT(64)))，1,MATCH(ROW()，GET.DOCUMENT(64))+1)

2.，“横当前页”，在下面引用位置处输入:
=IF(ISNA(MATCH(column()，GET.DOCUMENT(65)))，1,MATCH(column()，GET.DOCUMENT(65))+1)

3.，“总页数”；引用位置处输入:
=GET.DOCUMENT(50)+RAND()*0

4.最后再定义“页眉”，引用位置:
="第"&IF(横当前页=1，纵当前页，横当前页+纵当前页)&"页/共"&总页数&"页"

定义好名称后就可以在任意单元格中输入
=纵当前页 ***得出纵向当前页
=横当前页 ****不解释了
="第" & 纵当前页 & "页，共" & 总页数 & "页" ***应该知道这是显示 第*页，共*页 了。
=页眉
抄袭别人的，呵呵，目前适用，就是在设置打印标题后再标题中e79fa5e98193e59b9ee7ad94332插入预览总是显示第一页，其他正常。

可以在EXCEK表中做如下操作:1.在要引用zhidao的表中,例如:sheet1表中所要引用的单元格如B1单元格设: =IF(ROW()>36,ROW()/36,"1")2.在目标专表中,例如:"目录"表中的目标单元格中设: "第"&ROUNDUP(sheet1!B1,0)&"页"即可说明:36是一页所需的行数属,可以根据自己预览表时一页的实际行数修改,即你的一页是45行就改成45行
如果不是说的VBE编程，那么在EXCEL工作表菜单栏点击“打印预览”进入预览页面，再点击“页面设置”，点击“页眉和页脚”，这时可以设置你的页码模式，之后只要打印就会自动分页，非常简单。

只能用VBA解决，下面的代码由 cbtaja 录制，将下面代码粘贴进 工具--宏--VB编辑器后，用公式 =ThisPageNo 显示当前页数，=PagesCount显示总页数；=TEXT(ThisPageNo,"第0页 ")&TEXT(PagesCount,"共0页") 在同一单元格显示当前页数和总页数

Sub 定义页码及总页数名称()
'
' 定义页码及总页数名称 Macro

'

'
ActiveWorkbook.Names.Add Name:="ColFirst", RefersToR1C1:= _
"=GET.DOCUMENT(61)" '判断打印顺序的设置类型
ActiveWorkbook.Names.Add Name:="lstRow", RefersToR1C1:= _
"=GET.DOCUMENT(10)" '本工作表已用到的最大行数
ActiveWorkbook.Names.Add Name:="lstColumn", RefersToR1C1:= _
"=GET.DOCUMENT(12)" '本工作表已用到的最大列数
ActiveWorkbook.Names.Add Name:="hNum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),Row())),0,FREQUENCY(GET.DOCUMENT(64),Row()))" 'hNum为本单元格上方的水平分页符个数
ActiveWorkbook.Names.Add Name:="vNum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),Column())),0,FREQUENCY(GET.DOCUMENT(65),Column()))" ''本单元格左边的垂直分页个数
ActiveWorkbook.Names.Add Name:="hSum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(64),lstRow)),0,FREQUENCY(GET.DOCUMENT(64),lstRow))" ''本工作表最后一个e799bee5baa6e997aee7ad94e58685e5aeb9361单元格上方的水平分页符个数
ActiveWorkbook.Names.Add Name:="vSum", RefersToR1C1:= _
"=IF(ISERROR(FREQUENCY(GET.DOCUMENT(65),lstColumn)),0,FREQUENCY(GET.DOCUMENT(65),lstColumn))" ''本工作表最后一个单元格左边的垂直分页个数
ActiveWorkbook.Names.Add Name:="ThisPageNo", RefersToR1C1:= _
"=IF(ColFirst,(hSum+1)*vNum+hNum+1,(vSum+1)*hNum+vNum+1)*ISNUMBER(NOW())" '单元格所在页码
ActiveWorkbook.Names.Add Name:="PagesCount", RefersToR1C1:= _
"=GET.DOCUMENT(50)*ISNUMBER(NOW())" '本工作表的总页数
End Sub