メインコンテンツへスキップ

Excelで複数のワークシートを名前変更するにはどうすればよいですか?

Author: Tech Support Last Modified: 2025-05-23

通常、Excelでワークシートの名前を変更するには、シートタブをダブルクリックするか、シートタブを右クリックして「名前変更」コマンドを選択します。これは1つや2つのワークシートの名前を変更するには非常に便利ですが、複数のワークシートを一度に名前変更したい場合はどうすればよいでしょうか?

rename worksheets

「名前変更」コマンドを使用してワークシートの名前を変更する

便利なツールを使用して複数のワークシートを快適に名前変更する

VBAコードを使用して複数のワークシートを名前変更する


「名前変更」コマンドを使用してワークシートの名前を変更する


次の手順に従って、「名前変更」コマンドを使用してExcelでワークシートを迅速に名前変更できます:

名前を変更したいシートタブを右クリックし、右クリックメニューから「名前変更」コマンドを選択します。または、シートタブをダブルクリックしてワークシートの名前を変更します。その後、新しい名前を入力し、 Enterキーを押して名前変更を確定します。スクリーンショットをご覧ください:

Right click on the sheet tab, choose Rename command, and then enter the new name

この「名前変更」コマンドでは、一度に1つのワークシートしか名前変更できません。複数のワークシートを名前変更する目的の場合、上記の操作を繰り返してください。


便利なツールを使用して複数のワークシートを快適に名前変更する

Kutools for Excelの「バッチ名前変更ワークシート」ツールは、現在のワークブック内のすべてのワークシートや選択した特定のワークシートの名前変更に非常に便利です。

このツールを使用すると、既存のワークシート名の前後に追加の内容を追加したり、元のシート名を新しい名前に置き換えたりすることで、すべてのワークシートや選択した特定のワークシートを迅速に名前変更できます。また、範囲セルの内容を使用して、すべてのワークシートや選択したワークシートの名前を変更することもできます。

Kutools for Excelをダウンロードしてインストールした後、[Kutools Plus] > [ワークシート] > [ワークシートの名前変更]をクリックして「バッチ名前変更ワークシート」ダイアログボックスを開きます。次に、以下の手順に従ってください:

シナリオ1. Kutools for Excelを使用して特定のデータで複数のワークシートを名前変更する

"specify

  1. ワークシートリストから名前を変更したいワークシートを選択します。
  2. 「名前のスタイル」でワークシートの名前変更方法を選択します。
  3. 「手動入力」に具体的な値を入力します。
  4. [OK]をクリックします。次の結果が得られます:

Rename multiple worksheets with specific data

シナリオ2. Kutools for Excelを使用してセル値で複数のワークシートを名前変更する

specify the options in the dialog box

  1. ワークシートリストから名前を変更したいワークシートを選択します。
  2. 「名前のスタイル」でワークシートの名前変更方法を選択します。
  3. クリックします  select button ボタンを押して、ワークシートの名前を付ける基準となるセル値を選択します。 選択範囲から セクション。
  4. [OK]をクリックします。次の結果が得られます:

Rename multiple worksheets with cell values

シナリオ3. Kutools for Excelを使用して各ワークシートの特定のセル値で複数のワークシートを名前変更する

specify the options in the dialog box

  1. ワークシートリストから名前を変更したいワークシートを選択します。
  2. 「名前のスタイル」でワークシートの名前変更方法を選択します。
  3. クリックします  select button ボタンを押して、ワークシートの名前を付ける基準となる特定のセル値を選択します。 対応するワークシートのセルからワークシートを名前変更する セクション。
  4. [OK]をクリックします。各ワークシートの特定のセル値でワークシート名が変更されました。

Rename multiple worksheets with a specific cell value in each worksheet

Kutools for Excelは、300以上の高度な機能を提供し、複雑なタスクを簡素化し、創造性と効率を向上させます。 AI機能と統合され、Kutoolsは正確にタスクを自動化し、データ管理を容易にします。Kutools for Excelの詳細情報...無料トライアル...

VBAコードを使用して複数のワークシートを名前変更する

ここでは、複数のワークシートを名前変更するための2つのVBAコードを紹介します。

コード1. 一度に希望する名前で複数のワークシートを名前変更するVBAコード

次のVBAコードを使用すると、現在のワークブックのすべてのワークシートを同じ接頭辞を持つ名前に迅速に変更できます。例えば、KTE-order1、KTE-order2、KTE-order3などです。

1. [開発] > [Visual Basic]をクリックし、Microsoft Visual Basicアプリケーションウィンドウで[挿入] > [モジュール]をクリックします。

2. 次のコードをモジュールにコピーして貼り付けます。

VBA: 特定の名前を入力してすべてのシートを名前変更する

Sub ChangeWorkSheetName()
'Updateby20140624
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
newName = Application.InputBox("Name", xTitleId, "", Type:=2)
For i = 1 To Application.Sheets.Count
    Application.Sheets(i).Name = newName & i
Next
End Sub

3.  クリックします run button ボタンを押してコードを実行し、ポップアップダイアログに希望する名前を入力します。スクリーンショットをご覧ください:

enter a new sheet name

4. [OK]をクリックします。すべてのシートが名前変更されたことが確認できます。

all sheets are renamed

2. アクティブなワークブック内の各ワークシートの特定のセル値で複数のワークシートを名前変更するVBAコード

次のVBAコードを使用すると、現在のワークブックのすべてのワークシートを特定のセルの内容を使用して名前変更できます。たとえば、ワークブック全体のA1セルにワークシート名を入力すると、そのワークシートはセル値A1に基づいて名前変更されます。

1.  各ワークシートでワークシート名を含むセルを指定し、そのセルにワークシート名を入力します。この例では、各ワークシートのA1セルにワークシート名を入力します。

2.  [開発] > [Visual Basic]をクリックし、Microsoft Visual Basicアプリケーションウィンドウで[挿入] > [モジュール]をクリックします。

3.  次のコードをモジュールにコピーして貼り付けます。

VBA: 特定のセル内容でワークシートを名前変更する

Sub RenameTabs()
'Updateby20140624
 For x = 1 To Sheets.Count
 If Worksheets(x).Range("A1").Value <> "" Then
 Sheets(x).Name = Worksheets(x).Range("A1").Value
 End If
 Next
 End Sub

4.  クリックします run button ボタンを押してコードを実行します。すべてのワークシートはA1セルの内容に基づいて名前変更されます。

注意:

  • 上記のコードでは、A1はワークシート名を変更する基準となるセルの内容です。必要に応じて変更できます。
  • 特定のセルに内容がない場合、そのセルに対応するワークシートは名前変更されません。

デモ: Kutools for Excelを使用して複数のワークシートを名前変更する