怎样在excel的任意位置插入页码并且自动生成？急等！

方法一，用VBA　　

　　Function page()

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

　　Application.Volatile

　　End Function　　

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

　　方法二，用宏表函数与公式　　

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

　　=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,纵当页,横当页+纵当页)&"页/共"&总页&"页"　　

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

或者：CTRL+F3打开定义名称
定义：“当前页”
=IF(ISNA(MATCH(ROW(),GET.DOCUMENT(64),1)),1,MATCH(ROW(),GET.DOCUMENT(64),1)+1)+NOW()*0

再定义：“总页数”
=GET.DOCUMENT(50)+NOW()*0

然后在你想要输入页码的单元格输入：=当前页&" of "&总页数
显示效果：1 of 9

点击“视图”菜单->页眉页脚->自定义页脚->点击插入页码图标

Range("A3:A7").ClearContents
If [B1] = "" Or WorksheetFunction.CountIf([C:C], [B1]) > 0 Then
[A1] = "²»²ÉÑù"
[A3] = [A1] & "µÄÌõ¼þÐÅÏ¢:"
If [B1] = "" Then
[A4] = "ûÓÐÊäÈëÄÌÕ¾Ãû³Æ!"
Else

页眉页脚不行吗？调整页边距。那你就用VBA写自动触发事件呗。

用宏表函数与公式