Excel vba给所有的工作表自动批量加页码，会计的有福啦
- 2023-02-19
- 来源/作者： Wps Office教程网/ 菜鸟图库
- 223 次浏览
今天来分享一段有用而简单的excel编程代码。目的就是这个工作簿所有的工作表自动批量加页码。会计亲们有福啦。
我们按快捷键alt+F11，进入vba的编辑器里。点插入模块。然后在这输入以下代码
Sub 加页码() Dim i%
For i = 1 To Sheets.Count ‘表示工作表数量
Sheets(i).Range("d1") = i ‘固定在i1添加页码，i1代表你要的单元格位置。
Next
End Sub
效果就是
Excel vba给所有的工作表自动批量加页码，会计的有福啦
