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

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

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

複数のワークシートの名前を変更して、特定のセルに基づいてワークシートの名前を変更します

複数のワークシートの名前を変更して、セルの内容の範囲に基づいてワークシートの名前を変更します

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

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

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

2。 押す Altキー+ F11 開くキー アプリケーション向け Microsoft Visual Basic 窓。

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。 クリック クツールズプラス > ワークシート > ワークシートの名前を変更する。 スクリーンショットを参照してください：

3.次に、ポップアウトされたダイアログで、名前を変更するシートをチェックします。 ワークシート ペインをクリックし、いずれかを選択します オプションの名前を変更 必要です、ここでシート名を置き換えて確認します ワークシートの名前を特定のセルに変更する、名前を変更する必要のあるセルを選択します。 スクリーンショットを参照してください：

4。 クリック Ok。 これで、シートの名前が特定のセルの内容に変更されました。

ただし、場合によっては、以下のスクリーンショットに示すように、セル値の範囲に基づいて複数のワークシートの名前を変更する必要があります。この場合は、次を選択できます。 以下の方法.

複数のワークシートの名前を変更して、セルの内容の範囲に基づいてワークシートの名前を変更します

連絡先 複数のワークシートの名前を変更する of Kutools for Excel、選択した範囲に基づいてシートの名前を変更することもできます。

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

1。 クリック クツールズプラス > ワークシート > ワークシートの名前を変更する。 スクリーンショットを参照してください：

2。 の中に 複数のワークシートの名前を変更する ダイアログでは、次のように設定を指定する必要があります。

（1）名前を変更する必要のあるワークシートを選択します ワークシートリスト;

（2）チェック 特定の範囲から オプションをクリックし、名前を変更する必要のあるセル値を選択します。

（3）を指定します オプションの名前変更、 確認してもいい 元のシート名の前に挿入, 元のシート名の後に挿入または 元のシート名を置き換える、ダイアログで対応する結果をプレビューできます。

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

元のシート名を置き換える

元のシート名の前に挿入

元のシート名の後に挿入

ワークシートの名前変更ユーティリティを使用すると、特定のプレフィックスまたはサフィックスを使用してワークシートの名前を変更することもできます。 複数のワークシートの名前変更の詳細については、ここをクリックしてください。

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