打開VBA編輯器，按Alt+F11，然后雙擊你要改名的那個工作表名字，在右邊代碼窗口寫入Worksheet_SelectionChange事件，再加一句Me.Name=Me.Range(A3).Value，這樣每次點那個表的時候就會自動按A3的內容改名，但注意別讓A3為空或者重復表名，否則會彈錯誤，最好前面加個If判斷一下Range(A3).Value<>andIsError(Evaluate(=Sheet&Range(A3).Value))=False這種條件
-
-
在VBA編輯器里插入一個模塊，然后寫上SubRenameSheet()，接著寫ActiveSheet.Name=ActiveSheet.Range(A3).Value，保存運行就行，不過要注意當前激活的工作表才是被改名的那個，如果你要改別的表，得先指定具體工作表名稱，不然容易出錯，還有就是名字不能包含/?*這些特殊字符
-
其實這個挺簡單的，你可以在VBA里寫個宏，比如用Worksheets(Sheet1).Name=Range(A3).Value這種方式，前提是A3有內容而且不和其他表重名，不然會報錯，記得加個錯誤處理判斷一下，比如用OnErrorResumeNext或者提前檢查名字是否重復，我之前也遇到過重命名失敗的情況，基本都是因為名字沖突或者A3是空的
-
我建議你用一個通用的子程序來處理，比如寫一個SubRenameToA3()，里面先定義變量Setws=ThisWorkbook.Sheets(你的表名)，然后判斷A3有沒有值，如果有就嘗試改名，像ws.Name=Trim(ws.Range(A3).Value)，Trim是為了去掉空格避免無效字符，還要加上錯誤捕獲語句防止程序崩潰，畢竟Excel對工作表命名規則挺嚴的，比如長度不能超過31個字符，也不能和已有表同名
-
MsgBox改名失敗，可能是因為A3為空、名字重復或包含非法字符！EndSub，把你的工作表名稱換成實際名字就行了，這個帶報錯提示，方便排查問題，我自己經常這么寫，實用又不容易崩