我們經常會在一張工作簿內新建多張工作表，並對其按照要求更改名稱。如我們需要在一張工作簿中統計8月份的數據，裡面每一頁統計一天的數據，並按照8月1日、8月2日等規律重命名。這樣的操作你是一張張的新建並重命名嗎？這裡教大家一種簡單方法。
增加31張工作表方法
（1）、點擊文件—選項—常規—新增工作簿時—包含的表格數修改為31—確定。這時會新建一張有31張工作表的工作簿。如下圖：
（2）、點擊文件—新建，即可看到新增了一個包含31張工作表的工作簿。
如何對31張工作表進行重命名
思路：這裡對代碼進行重命名使用的是一段簡單的VBA代碼進行操作。
（1）、首先新建的工作簿sheet1當中，將8月1日-8月30日名稱先進行輸入。如下圖：
（2）按住快捷鍵alt+F11，或者點擊開發工具—點擊Visual Basic，進入VBA代碼窗口。點擊左邊工程窗口sheet頁最下面的：Thisworkbook—右鍵—插入—模塊。如下圖：
（3）雙擊新建的模塊，進入代碼窗口。將以下代碼輸入代碼窗口：
Sub 重命名()
Dim i%
For i = 2 To Sheets.Count
Sheets(i).Name = Cells(i + 1, 1).Text
Next
End Sub
（4）輸入上面的代碼後，關閉VBA窗口。在sheet1工作表中插入一個任意圖形。點擊插入—形狀—圖形（可以加一個名字，重命名）。右鍵點擊新建的圖形—指定宏，並選擇裡面的一個重名名代碼，點擊確定即可。
（5）點擊剛指定了宏的圖形，奇蹟出現了，所有的工作表都按照前面填寫的日期進行修改過來了。
按照上面的方法操作是不是非常簡單呀~~~
分享到:
閱讀更多 Excel入門到精通 的文章
