如何在Excel中查找和替换工作表标签名称？

在Excel中的单元格中查找和替换值很容易。 但是，有什么方法可以在Excel中查找和替换工作表名称吗？ 例如，如下面的屏幕快照所示，您有多个工作表，其中工作表名称中包含“ KTE（Sales）xxx”，现在您需要在所有相关工作表名称中将所有“ KTE（Sales）”替换为“ KTE”，你可以做？ 本文将介绍一种VBA方法来实现它。

查找并用VBA代码替换工作表标签名称

查找并用VBA代码替换工作表标签名称

请应用下面的VBA代码在Excel中查找和替换工作表标签名称。 请执行以下操作。

1。 按 其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后，将下面的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 弹出对话框，请输入要替换的工作表名称的单词，然后单击 OK 按钮。 看截图：

5.在第二 Kutools for Excel 对话框中，输入您要替换为的单词，然后单击 OK 按钮。

然后，工作表标签名称中的所有相关单词都将替换为指定的单词，如下图所示。

备注注意：上面的代码区分大小写。

相关文章：

• 如何在Excel中查找并替换所有具有特定编号或文本的空白单元格？
• 如何在Excel单元格中用换行符（Alt + Enter）替换逗号？
• 如何创建宏代码以实现在Excel中查找和替换文本？
• 如何在Excel中用逗号分隔列表的单元格中查找值？
• 如何在Excel中查找两列列表的交集？