企事業單位部門眾多，人員也眾多。使用Microsoft Excel匯集資料任務繁重，收集到的Excel工作表資料名稱也各不相同，如果不將其整理會對今后的工作造成不必要的麻煩。對Excel工作表名稱單個進行修改的話，任務量異常繁重。如果想改變這個“悲慘”的現狀，可以通過VBA代碼來實現。首先需要通過VBA代碼獲取整個工作薄中各個工作表的名稱，然后根據工作表名稱進行修改，最后使用VBA代碼將修改過的工作表批量重命名。

步驟一：新建模板并編輯VBA代碼。

VBA代碼編輯需要啟動Visual Basic編輯器。首先左鍵單擊菜單欄中的【開發工具】選項，啟用開發工具操作流程請參考文章：超鏈接查看太麻煩，Excel怎么快速提取單元格內的超鏈接地址？左鍵單擊代碼功能區中的【Visual Basic】按鈕，右鍵單擊工程資源管理器窗口，將鼠標指針移動至創建選項，最后左鍵單擊【模板】選項，新建模板1，并將下方模板1的代碼粘貼到模板1的代碼窗口中。按以上操作步驟再次操作一遍，新建模板2，并將下方模板2的代碼粘貼到模板2的代碼窗口中。兩個模板的代碼粘貼完畢后，關閉Visual Basic編輯器窗口。

模板1代碼區域：

Sub 一鍵獲取工作表名稱() Dim sht As Worksheet, k& [A:A] = "" [A1] = "目錄" j = 1 For Each sht In Worksheets j = j + 1 Cells(j, 1) = sht.Name Next End Sub

模板2代碼區域：

Sub 一鍵更改工作表名稱() Dim shtname$, sht As Worksheet, i& On Error Resume Next For i = 1 To Cells(Rows.Count, 1).End(3).Row shtname = Cells(i, 1) Set sht = Sheets(shtname) If Err = 0 Then Sheets(shtname).Name = Cells(i, 2) Else Err.Clear End If Next End Sub

步驟二：建立按鈕并指定宏。

首先左鍵單擊菜單欄中的【開發工具】選項，然后左鍵單擊控件功能區中的【插入】，左鍵單擊【按鈕（窗體控件）】后在工作表任意空白區域畫出大小合適的按鈕1，并在指定宏對話框中左鍵單擊選中宏名稱后，左鍵單擊【確定】按鈕指定宏。按以上操作步驟畫出按鈕2并指定宏。素材中按鈕1用來獲取工作表名稱，按鈕2用來更改工作表名稱?？捎益I單擊按鈕更改按鈕名稱，方便記憶與使用。

步驟三：效果展示，酷炫的工作表批量重命名。

至此，Microsoft Excel一鍵獲取并批量修改工作表名稱操作流程已經介紹完畢。Office的VBA功能強大到難以想象的地步，幾乎任何一個看似“難于上青天”的問題都可輕松解決，當然前提是需要動腦筋學習VBA編程。如果有編程基礎的話上手當然很容易，即便沒有編程基礎的小伙伴也可自學成才，世上無難事只怕有心人。Microsoft Excel工作薄不屬于消耗品，您可以在原有的編程基礎上不斷的完善，不斷的改進，也許你會做到別人做不到的東西。有的用Excel作畫，作品美輪美奐；有的用Excel做小游戲……世上無難事，只怕有心人，拒絕借口，日本80歲高齡老太太退休后自學編程成碼農，別人能做成的事情，相信我們也可以。動動手指點擊關注，每天掌握一些科技小技巧，相信也會為您的工作和生活帶來便捷，何樂而不為呢？

實踐是檢驗真理的唯一標準，求人不如求己，看完整篇文章后，點擊收藏。找機會親自實踐一下，也許會發現“新的大陸”。感謝您們的支持和厚愛，讀者是小編創作的源泉。

如有疑問或建議，請在下方留言告訴我們，我們會及時回復和改正，感謝您的支持。

總結

以上是生活随笔為你收集整理的Excel酷炫技能，批量修改工作表名称，让你的工作事半功倍的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。