如何在 Excel 中查找和替換工作表標籤名稱？

在 Excel 中查找和替換單元格中的值非常容易。但是，有沒有辦法在 Excel 中查找和替換工作表名稱呢？例如，如下截圖所示，您有多個工作表名稱中包含“KTE(Sales) xxx”，現在您需要將所有相關的工作表名稱中的“KTE(Sales)”替換為“KTE”，該怎麼辦？本文將介紹一種使用 VBA 方法來實現此操作。

使用 VBA 程式碼查找和替換工作表標籤名稱

使用 VBA 程式碼查找和替換工作表標籤名稱

請應用以下 VBA 程式碼來查找和替換 Excel 中的工作表標籤名稱。請按照以下步驟操作。

1. 按下 Alt + F11 鍵以打開 Microsoft Visual Basic for Applications 視窗。

2. 在 Microsoft Visual Basic for Applications 視窗中，點擊 插入 > 模組。然後，將以下 VBA 程式碼複製到程式碼視窗中。

VBA 程式碼：在 Excel 中查找和替換工作表標籤名稱

Sub Find_replace_sheet_name()
'Update by Extendoffice 2018/5/24
    Dim xNum As Long
    Dim xRepName As String
    Dim xNewName As String
    Dim xSheetName As String
    Dim xSheet As Worksheet
    xRepName = Application.InputBox("Please type in the word you will replace：", "Kutools for Excel", , , , , , 2)
    xNewName = Application.InputBox("Please type in the word you will replace with：", "Kutools for Excel", , , , , , 2)
    If xRepName = "false" Or xNewName = "false" Then Exit Sub
    On Error GoTo ExitLab
    For Each xSheet In ActiveWorkbook.Sheets
        xSheetName = xSheet.Name
        xNum = InStr(1, xSheetName, xRepName)
        If xNum > 0 Then
            xSheet.Name = Replace(xSheetName, xRepName, xNewName)
        End If
ExitLab:
    Next
End Sub

3. 按下 F5 鍵運行程式碼。

4. 接著會彈出一個 Kutools for Excel 對話框，請輸入要替換的工作表名稱的字詞，然後點擊 確定 按鈕。請參閱截圖：

5. 在第二個 Kutools for Excel 對話框中，輸入要替換成的字詞，然後點擊 確定 按鈕。

然後，所有相關的字詞在工作表標籤名稱中都被替換為指定的字詞，如下截圖所示。

備註：上述程式碼區分大小寫。

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！

相關文章：

• 如何在 Excel 中查找並將所有空白單元格替換為特定數字或文字？
• 如何在 Excel 的單元格中將逗號替換為換行符（Alt + Enter）？
• 如何創建宏代碼以實現 Excel 中的查找和替換文字功能？
• 如何在 Excel 中查找帶有逗號分隔列表的單元格中的值？
• 如何在 Excel 中找到兩個列清單的交集？