知識(shí)改變命運(yùn)，科技成就未來。
企事業(yè)單位部門眾多，人員也眾多。使用Microsoft Excel匯集資料任務(wù)繁重，收集到的Excel工作表資料名稱也各不相同，如果不將其整理會(huì)對(duì)今后的工作造成不必要的麻煩。對(duì)Excel工作表名稱單個(gè)進(jìn)行修改的話，任務(wù)量異常繁重。如果想改變這個(gè)“悲慘”的現(xiàn)狀，可以通過VBA代碼來實(shí)現(xiàn)。首先需要通過VBA代碼獲取整個(gè)工作薄中各個(gè)工作表的名稱，然后根據(jù)工作表名稱進(jìn)行修改，最后使用VBA代碼將修改過的工作表批量重命名。
步驟一：新建模板并編輯VBA代碼。
VBA代碼編輯需要啟動(dòng)Visual Basic編輯器。首先左鍵單擊菜單欄中的【開發(fā)工具】選項(xiàng)，啟用開發(fā)工具操作流程請(qǐng)參考文章：超鏈接查看太麻煩，Excel怎么快速提取單元格的超鏈接地址？左鍵單擊代碼功能區(qū)中的【Visual Basic】按鈕，右鍵單擊工程資源管理器窗口，將鼠標(biāo)指針移動(dòng)至創(chuàng)建選項(xiàng)，最后左鍵單擊【模板】選項(xiàng)，新建模板1，并將下方模板1的代碼粘貼到模板1的代碼窗口中。按以上操作步驟再次操作一遍，新建模板2，并將下方模板2的代碼粘貼到模板2的代碼窗口中。兩個(gè)模板的代碼粘貼完畢后，關(guān)閉Visual Basic編輯器窗口。
模板1代碼區(qū)域：
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代碼區(qū)域：
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
步驟二：建立按鈕并指定宏。
首先左鍵單擊菜單欄中的【開發(fā)工具】選項(xiàng)，然后左鍵單擊控件功能區(qū)中的【插入】，左鍵單擊【按鈕（窗體控件）】后在工作表任意空白區(qū)域畫出大小合適的按鈕1，并在指定宏對(duì)話框中左鍵單擊選中宏名稱后，左鍵單擊【確定】按鈕指定宏。按以上操作步驟畫出按鈕2并指定宏。素材中按鈕1用來獲取工作表名稱，按鈕2用來更改工作表名稱。可右鍵單擊按鈕更改按鈕名稱，方便記憶與使用。
步驟三：效果展示，酷炫的工作表批量重命名。
至此，Microsoft Excel一鍵獲取并批量修改工作表名稱操作流程已經(jīng)介紹完畢。Office的VBA功能強(qiáng)大到難以想象的地步，幾乎任何一個(gè)看似“難于上青天”的問題都可輕松解決，當(dāng)然前提是需要?jiǎng)幽X筋學(xué)習(xí)VBA編程。如果有編程基礎(chǔ)的話上手當(dāng)然很容易，即便沒有編程基礎(chǔ)的小伙伴也可自學(xué)成才，世上無難事只怕有心人。Microsoft Excel工作薄不屬于消耗品，您可以在原有的編程基礎(chǔ)上不斷的完善，不斷的改進(jìn)，也許你會(huì)做到別人做不到的東西。有的用Excel作畫，作品美輪美奐；有的用Excel做小游戲……世上無難事，只怕有心人，拒絕借口，日本80歲高齡老太太退休后自學(xué)編程成碼農(nóng)，別人能做成的事情，相信我們也可以。動(dòng)動(dòng)手指點(diǎn)擊關(guān)注，每天掌握一些科技小技巧，相信也會(huì)為您的工作和生活帶來便捷，何樂而不為呢？
實(shí)踐是檢驗(yàn)真理的唯一標(biāo)準(zhǔn)，求人不如求己，看完整篇文章后，點(diǎn)擊收藏。找機(jī)會(huì)親自實(shí)踐一下，也許會(huì)發(fā)現(xiàn)“新的大陸”。感謝您們的支持和厚愛，讀者是小編創(chuàng)作的源泉。
如有疑問或建議，請(qǐng)?jiān)谙路搅粞愿嬖V我們，我們會(huì)及時(shí)回復(fù)和改正，感謝您的支持。
聯(lián)系客服
