今天來分享一段有用而簡單的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給所有的工作表自動批量加頁碼,會計的有福啦
網友整理
注冊時間:
網站:5 個 小程序:0 個 文章:12 篇
網站
小程序
文章
會員