Excel vba给所有的工作表自动批量加页码，会计的有福啦

今天来分享一段有用而简单的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给所有的工作表自动批量加页码，会计的有福啦