Excelで複数の範囲名を一括してリネームするにはどうすればよいですか？

範囲名をリネームするのは簡単で、通常私たちの日常的なExcel作業でよく使用されますが、複数の範囲名を一括してリネームするのは面倒です。この記事では、Excelで複数の範囲名を迅速に一括リネームするためのマクロコードを紹介します。

マクロコードを使用して範囲名を一括リネーム

マクロコードを使用して範囲名を一括リネーム

以下のように、ワークブック内にいくつかの範囲名があると仮定します（スクリーンショット参照）。ここで、それらに接頭辞を追加してリネームします。

1. 「 Alt + F11 」キーを押して、「 Microsoft Visual Basic for Applications 」ウィンドウを開き、「 挿入 > モジュール」をクリックします。スクリーンショットをご覧ください：

2. 下記のコードをモジュールスクリプトに貼り付け、F5キーを押してコードを実行します。

VBA: 範囲名のリネーム

Sub RenameCells()
Dim n As Name
    For Each n In ThisWorkbook.Names
        n.Name = "KUTOOLS_" & n.Name
    Next n
End Sub

これで、すべての範囲名が指定された接頭辞を追加してリネームされました。スクリーンショットをご覧ください：

注釈: 上記のコード n.Name = "KUTOOLS_" & n.Name では、必要に応じて KUTOOLS を他の文字列に変更できます。

ヒント.複数のシートを迅速にリネームしたい場合は、Kutools for Excel の バッチ名前変更ワークシート 機能をお試しください（次のスクリーンショット参照）。これは60日間制限なしで全機能を利用できます。 今すぐダウンロードして無料でお試しください。

関連記事：

• Excelでセル値に基づいてワークシートをリネームするにはどうすればよいですか？