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

网友投稿 339 2023-12-28

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

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

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

惊人的！在 Excel 中使用高效的选项卡，如 Chrome、Firefox 和 Safari！ 每天节省50％的时间，并减少数千次鼠标单击！

请应用下面的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

Copy

3。按 F5 键来运行代码。

4.然后 Kutools for Excel 弹出对话框，请输入要替换的工作表名称的单词，然后单击 OK 按钮。看截图：

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

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

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

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

最佳办公生产力工具

将小时转化为分钟 Kutools for Excel!

准备好增强您的 Excel 任务了吗？利用的力量 Kutools for Excel - 您终极的节省时间的工具。简化复杂的任务并像专业人士一样浏览数据。以闪电般的速度体验 Excel！

为什么需要 Kutools for Excel

🛠️ 超过 300 项强大功能: Kutools 包含 300 多项高级功能，可简化您在 1500 多种场景中的工作。

📈 卓越的数据处理能力：合并单元格、删除重复项并执行高级数据转换 - 所有这些都不费吹灰之力！