在Excel中设置第几页共几页绝大部分人会想道用“页面设置”但你是否想过将“第N页/总M页”放到任意单元格中？而不仅仅是置于页眉页脚中？

　　思路方法用VBA

　　Function page

　　page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1)

　　Application.Volatile

　　End Function

　　用VBA本人只知道总页码思路方法当前页码就难倒我了还请VBA高手指教

　　思路方法 2用宏表和公式

　　1. 首先:点CTRL+F3打开定义名称再在上面输入“纵当页”在下面引用位置处输入:

　　=IF(ISNA(MATCH(ROW,GET.DOCUMENT(64))),1,MATCH(ROW,GET.DOCUMENT(64))+1)

　　2.然后再继续添加第 2个名称:“横当页”在下面引用位置处输入:

　　=IF(ISNA(MATCH(column,GET.DOCUMENT(65))),1,MATCH(column,GET.DOCUMENT(65))+1)

　　3.再输入“总页”；引用位置处输入:

　　=GET.DOCUMENT(50)+RAND*0

　　4.最后再定义“页眉”引用位置:

　　="第"&IF(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页"

　　5.在栏使用应用即可得到需要页码