如何在 Excel 中根據單元格值重新命名工作表?
如果您經常處理包含大量工作表的大型 Excel 電子表格,您可能會遇到手動重新命名工作表既耗時又容易出錯的情況。幸運的是,藉助宏和 Visual Basic for Applications (VBA),Excel 提供了一個強大的解決方案,使您可以自動化此過程。
本教程將向您展示如何建立一個簡單的 VBA 指令碼,根據每個工作表中找到的特定單元格值來重新命名工作表。這些技巧將幫助您管理包含多個工作表 Excel 工作簿,同時節省寶貴的時間並減少出錯的可能性。
根據單元格值重新命名工作表
在這裡,我們將首先建立一個 VBA 模組,然後執行它來完成任務。因此,讓我們看看一個簡單的過程來學習如何在 Excel 中根據單元格值重新命名工作表。
步驟 1
考慮一個 Excel 工作簿。
首先,選擇包含名稱的單元格,然後右鍵單擊工作表名稱並選擇“檢視程式碼”以開啟 VBA 應用程式。
選擇單元格 > 右鍵單擊 > 檢視程式碼。

步驟 2
然後單擊“插入”並選擇“模組”,然後將以下程式碼複製到文字框中。
插入 > 模組 > 複製。
程式碼
Sub RenameSheet() Dim xWs As Worksheet Dim xRngAddress As String Dim xName As String Dim xSSh As Worksheet Dim xInt As Integer xRngAddress = Application.ActiveCell.Address On Error Resume Next Application.ScreenUpdating = False For Each xWs In Application.ActiveWorkbook.Sheets xName = xWs.Range(xRngAddress).Value If xName <> "" Then xInt = 0 Set xSSh = Nothing Set xSSh = Worksheets(xName) While Not (xSSh Is Nothing) Set xSSh = Nothing Set xSSh = Worksheets(xName & "(" & xInt & ")") xInt = xInt + 1 Wend If xInt = 0 Then xWs.Name = xName Else If xWs.Name <> xName Then xWs.Name = xName & "(" & xInt & ")" End If End If End If Next Application.ScreenUpdating = True End Sub

步驟 3
然後單擊 F5 執行模組。然後您將看到所有工作表都將根據單元格值重新命名。

這就是您如何在 Excel 中根據單元格值重新命名工作表的方法。
結論
在本教程中,我們使用了一個簡單的示例來演示如何在 Excel 中根據單元格值重新命名工作表,以突出顯示特定資料集。
廣告