Excel单元格内页码怎么设置

1、打开Excel工作簿，找到“页面设置”这个选项点击进入。

2、在d出的窗口，一般页码都是插入到页脚处，所以点击“自定义页脚”。

3、接着在d出的对话框选择插入页码按钮。

4、点击“确定”按钮，就可以看到默认的页码已经插入进来了。

5、如果想插入其它样式的页码，可以点击箭头处进行选择。

6、点击“打印预览”看看效果，显示已经插入页码了。

用宏表函数与公式或用函数实现。具体如下：

方法一：用宏表函数与公式

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.选中需要显示页码的单元格，并在单元格输入这个公式：="第"&IF(横当页=1,纵当页,横当页+纵当页)&"页/共"&总页&"页"，即可得到需要的页码。

方法二：用函数实现

1、依次执行菜单“ 插入→ 名称→ 定义” 命令；

2、在文本框中定义一个名称（比如“ PageNumber ” ），添加后在下面的“ 引用位置” 中输入“

=IF(ISERROR(MATCH(ROW(),GET.DocumenT(64),1)),1,MATCH(ROW(),GET.DocumenT(64),1)+1)

” （不含双引号，下同），确定后退出；

3、以后在需要的单元格中输入“ =PageNumber ” 即可快速得到当前页码数。

代码中的wdAlignPageNumberCenter表示居中，内侧使用wdAlignPageNumberInside，外侧使用wdAlignPageNumberOutside

你需要的完整代码是：

Sub 页码设置()

ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary).PageNumbers.Add PageNumberAlignment:=wdAlignPageNumberInside, FirstPage:=True

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) '进入页脚编辑状态

Set rng = .Range

rng.Text = "- "

rng.Collapse wdCollapseEnd

ActiveDocument.Fields.Add rng, wdFieldPage, "Page"

Set rng = .Range

rng.Collapse wdCollapseEnd

rng.Text = " -"

rng.Collapse wdCollapseEnd

End With

End Sub

---