excel中使用vba給工作表批量改名
工具/原料
excel2013
更多經驗請關注，如果幫到了你，請在上方給個投票謝謝支援。 好人一生平安。
先頂後看年薪百萬，如果幫到了你，幫忙給個好評，這對小編很重要，萬分感謝。
方法/步驟
首先我們開啟一個工作樣表作為例子。
可以看到工作薄中有兩個工作表一個是5月工資，一個是sheet1。我們要做的就是使用vba將兩個工作表進行改名操作。
雖然使用常規的操作能夠很方便的改名，但是如果工作表比較多，那麼一個的修改是非常麻煩的，比如每一次操作都要選取工作表然後在進行重新改名輸入。
我們使用alt+f11組合快捷鍵進入vbe編輯器，插入一個新的模組，並在模組中輸入以下程式碼：
Option Explicit
Sub setcap()
Dim i As Integer
For i = 1 To Worksheets.Count
Worksheets(i).Name = "更改後的名字" & i
Next
End Sub
這裡我們可以看到使用這個程式碼後，將工作薄中的兩個表，更改為統一的名字，並以序列號進行了排序。
我使用了一個for迴圈，歷遍了該工作薄中的所有工作表，並使用name方法將物件進行重新命名為“更改後的名字”。&是連線符連線了i變數來為工作表命名。
注意事項
謝謝你的觀看。