逐步解說：使用宏以單元格內容重新命名Excel工作表

逐步解說：使用宏以單元格內容重新命名Excel工作表

逐步解說：使用宏以單元格內容重新命名Excel工作表

適用於:
Excel for Microsoft 365, Excel 2019, Excel 2016, Excel 2013, Excel 2010, Excel 2007, Excel 2003

案例

以下是每周銷售活動報告。 例如，此案例中有 15 個人。 系統管理員報表 Nancy 會被指派將每個銷售數據匯總成一個檔案，其中所有銷售量會在每個工作表上分隔。 為了輕鬆地排列數據，每個工作表 Nancy 提供的名稱都符合該工作表上的銷售名稱。 一開始，Nancy 對此感到自在，但因為有更多數據需要快速處理，所以 Nancy 太不知所哩了。 為了克服此問題，Nancy 想要根據每張工作表的銷售名稱自動變更名稱表，而不需手動重新命名。

解決方案

克服 Nancy 問題的最佳解決方案是使用宏。 這個宏是針對該檔案中的每張工作表所設計，不論工作表的數目為何。 每個工作表的名稱會根據在每個工作表的相同位置中決定的銷售名稱而變更。

如何執行

第一個步驟

• 設計報表格式，並指定要放置銷售名稱的數據格位置。 在此情況下，位置位於單元格 J2。 此報表格式在每個工作表上應該相同。
• 將工作表名稱保留在預設名稱 (Sheet1、Sheet2、Sheet3 等) 。

最後一個步驟

宏編碼步驟

在我們知道將放置銷售名稱的儲存格位置之後，現在我們可以繼續下一個步驟宏編碼。

1. 在 [開發人員]索引標籤上，選取 [程序代碼] 類別中的[Visual Basic]，或按鍵盤上的按鍵組合 Alt+F11，因此會顯示 Visual Basic 視窗。

2. 在專案工作窗格中，按兩下 [ (活頁簿名稱) ]，然後在 [插入] 選單上選取 [模組]，然後撰寫下列腳本：

Sub RenameSheet()
Dim rs As Worksheet
For Each rs In Sheets
rs.Name = rs.Range("B5")
Next rs
End Sub

3. 如果沒有任何偵錯，請按下鍵盤上的 F5 鍵，關閉 Visual Basic 視窗並返回 Excel。 如果已偵錯，請檢查您的腳本。

4. 返回 Excel 並查看如果程式代碼正確，現在每個工作表的名稱都會根據每張工作表上現有的銷售名稱重新命名。

這樣就完成了。 希望很有用。

本文原文来自Microsoft官方文档