答：实现方法一般有两种：使用VBA和使用宏表函数
方法一：用VBA

Public Function Page(x As Range, z As Byte)

'特别注意：当Z参数是0时，统计指定单元格所在页的页码（是以列分页符的值是1为前提条件的）

'由自定义函数的Z参数来确定是进行工作表选定单元格所在页数

'或是工作表总页数计算

'当Z参数是0时，统计指定单元格所在页的页码

'当Z参数是1至255任一个数值时，统计工作表总页数

If z = 0 Then

ih = 0

For Each yh In ActiveSheet.HPageBreaks

ih = ih + 1

If x.Row <= yh.Location.Row Then

Page = ih

Exit Function

End If

Next yh

Page = ih + 1 '以上8行代码及本行代码，最终得出指定单元格所在页的页码

Else

Page = (ActiveSheet.HPageBreaks.Count + 1) * (ActiveSheet.VPageBreaks.Count + 1) '统计工