【原】Excel教程：一键批量修改工作表标签名称

下面的Excel文件，有多张工作表，分别是：2021年1月、2021年2月、2021年3月……

现在需要批量一次性修改工作表标签名称，将2021修改为2022。

Excel软件本身没有对工作表标签字符进行批量修改的功能。我们只有借助VBA代码快速查找替换批量修改。

修改过程如下：

操作步骤如下：

Excel软件没有批量修改工作表标签文字的功能，因此就需要我们自己动手编写一段VBA代码来实现。

代码如下：

Sub Find_replace_sheet_name()

    Dim xNum As Long

    Dim xRepName As String

    Dim xNewName As String

    Dim xSheetName As String

    Dim xSheet As Worksheet

    xRepName = Application.InputBox("请输入您要查找的字符：", "部落窝教育", , , , , , 2)

    xNewName = Application.InputBox("请输入您要替换为的字符：", "部落窝教育", , , , , , 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