セルの値に基づいてExcelでワークシートの名前を変更するにはどうすればよいですか？

ワークシートの名前変更は通常、私たちのExcel作業で使用されますが、セルの値に基づいてワークシートの名前を変更したことはありますか？もちろん、手動でワークシートの名前を変更することはできますが、このチュートリアルでは複数のワークシートをセルの値に基づいて素早く名前変更できるいくつかの方法を紹介します。これにより、作業時間を節約できます。

特定のセルに基づいてVBAを使用してワークシートの名前を変更する

バッチ名前変更ワークシートを使用して特定のセルに基づいてワークシートの名前を変更する

バッチ名前変更ワークシートを使用してセル範囲の内容に基づいてワークシートの名前を変更する

特定のセルに基づいてVBAを使用してワークシートの名前を変更する

以下のVBAを使用すると、特定のセルに基づいて関連するワークシートの名前を変更できます。

1. ワークシートの名前を変更したいセルを選択します。この場合、セルA1を選択します。スクリーンショットをご覧ください：

2. Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

3. 挿入 > モジュールをクリックし、新しいモジュールウィンドウに以下のVBAコードを貼り付けます。

VBA: 特定のセルの値に基づいてワークシートの名前を変更する

Sub RenameSheet()
'UpdatebyKutools20191129
Dim xWs As Worksheet
Dim xRngAddress As String
Dim xName As String
Dim xSSh As Worksheet
Dim xInt As Integer
xRngAddress = Application.ActiveCell.Address
On Error Resume Next
Application.ScreenUpdating = False
For Each xWs In Application.ActiveWorkbook.Sheets
    xName = xWs.Range(xRngAddress).Value
    If xName <> "" Then
        xInt = 0
        Set xSSh = Nothing
        Set xSSh = Worksheets(xName)
        While Not (xSSh Is Nothing)
            Set xSSh = Nothing
            Set xSSh = Worksheets(xName & "(" & xInt & ")")
            xInt = xInt + 1
        Wend
        If xInt = 0 Then
            xWs.Name = xName
        Else
            If xWs.Name <> xName Then
                xWs.Name = xName & "(" & xInt & ")"
            End If
        End If
    End If
Next
Application.ScreenUpdating = True
End Sub

4. F5キーを押してVBAコードを実行します。その後、すべてのワークシートがそれぞれの相対的なA1セルの値に基づいて名前変更されます。

バッチ名前変更ワークシートを使用して特定のセルに基づいてワークシートの名前を変更する

Kutools for Excelを持っている場合、VBAコードを保存する必要はありません。バッチ名前変更ワークシート機能を使用して、すべてのワークシートを相対的なセルに基づいて迅速に名前変更できます。

無料インストール 後 Kutools for Excel、以下のように操作してください：

1. 名前を変更したいワークブックを有効にします。

2. Kutools Plus > ワークシート > ワークシートの名前変更をクリックします。スクリーンショットをご覧ください：

3. 表示されたダイアログで、ワークシートペインの下にある名前を変更したいシートをチェックし、必要な名前のスタイルオプションを選択します。ここではシート名を置き換えるので、対応するワークシートのセルから名前を変更するオプションをチェックし、名前変更に使用するセルを選択します。スクリーンショットをご覧ください：

4. OKをクリックします。これで、指定したセルの内容に基づいてシートが名前変更されました。

しかし、時々、以下のようなセル値の範囲に基づいて複数のワークシートの名前を変更する必要があります。その場合は、以下の方法を選択できます。

バッチ名前変更ワークシートを使用してセル範囲の内容に基づいてワークシートの名前を変更する

Kutools for Excelのバッチ名前変更ワークシートを使用すると、選択した範囲に基づいてシートの名前を変更することもできます。

無料インストール 後 Kutools for Excel、以下のように操作してください：

1. Kutools Plus > ワークシート > ワークシートの名前変更をクリックします。スクリーンショットをご覧ください：

2. バッチ名前変更ワークシートダイアログで、次の設定を行う必要があります：

(1) ワークシートリストから名前を変更するワークシートを選択します；

(2) 選択範囲からオプションをチェックし、名前変更の基準となるセル値を選択します；

(3) 名前のスタイルを指定します。元のシート名の前に挿入、元のシート名の後に挿入、または元のシート名を置換をチェックでき、ダイアログで対応する結果をプレビューできます。

3. OKをクリックすると、選択したすべてのワークシートが指定したセル値に基づいて名前変更されていることが確認できます。

元のシート名を置換

元のシート名の前に挿入

元のシート名の後に挿入

ワークシート名前変更ユーティリティを使用すると、特定の接頭辞や接尾辞でワークシートの名前を変更することもできます。バッチ名前変更ワークシートについてさらに詳しく知るには、ここをクリックしてください。

セル値に基づいて複数のシートの名前を変更する