如何在 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 中根據單元格值重新命名工作表,以突出顯示特定資料集。

更新於: 2023年9月27日

1K+ 閱讀量

開啟你的 職業生涯

透過完成課程獲得認證

開始學習
廣告