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

次に、シートタブ名の関連するすべての単語が、以下のスクリーンショットに示すように指定された単語に置き換えられます。

Note：上記のコードでは大文字と小文字が区別されます。

関連記事：

• Excelですべての空白セルを見つけて特定の数値またはテキストに置き換えるにはどうすればよいですか？
• Excelのセルでコンマを改行（Alt + Enter）に置き換える方法は？
• Excelでテキストの検索と置換を実現するマクロコードを作成するにはどうすればよいですか？
• Excelでカンマ区切りのリストがあるセルで値を見つける方法は？
• ExcelでXNUMXつの列リストの共通部分を見つける方法は？