首页 > Excel专区 > Excel函数 >

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

Excel函数 2023-01-13

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


Copyright © 2016-2023 office学习教程网 office.tqzw.net.cn. All Rights Reserved.