如何在 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 中找到两列列表的交集？