按alt+f11 输入
Sub yema()
Dim sht As Worksheet
For Each sht In Worksheets
sht.Range("d6") = "第" & sht.Index & "页" & "/共" & Worksheets.Count & "页"
Next
End Sub
f5运行
excel不能像word一样直接插入页码,只能在“页面设置”中的页眉与页脚里设置
可以这样:在“文件”菜单中,页面设置,页眉与页脚,即可。
excle里没有直接的页码函数,只有使用VBA和宏表函数的办法来实现单元格显示页码。