KutoolsforOffice— 1 つのソリューション、5 つの強力なツール。少ない労力で大きな成果。

Excel で複数のワークシートを名前変更するには？

著者テクニカルサポート変更日

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

ワークシートの名前を変更

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

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

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

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

次の手順に従って、Excel でワークシートの名前を素早く変更するために、名前の変更コマンドを使用できます。

名前を変更したいシートタブを右クリックし、コンテキストメニューから名前の変更コマンドを選択します。または、シートタブをダブルクリックしてワークシートの名前を変更することもできます。その後、新しい名前を入力し、Enterキーを押して確定してください（下記スクリーンショット参照）。

シートタブを右クリックし、「名前の変更」コマンドを選択して、新しい名前を入力します

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

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

Kutools for Excel の「バッチ名前変更（ワークシート）」ツールを使えば、現在のブック内のすべてのワークシート、または選択した特定のワークシートの名前を一括で簡単に変更できます。

このツールを使えば、すべてのワークシートまたは選択した特定のワークシートの名前に、既存のワークシート名の前後に追加情報を挿入したり、元のシート名をまったく新しい名前に置き換えたりできます。さらに、セル範囲の内容を活用して、すべてのワークシートまたは選択したワークシートの名前を一括変更することも可能です。

Kutools for Excel をダウンロードしてインストールした後、、KUTOOLS PLUS＞ワークシート＞ワークシートの名前を変更するをクリックして、バッチ名前変更ワークシートダイアログボックスを開きます。その後、以下の手順に従ってください：

シナリオ1。Kutools for Excel で、指定したデータに基づいてワークシートを一括で名前変更

「指定

  1. 「ワークシート」リストから、名前を変更したいワークシートを選択してください。
  2. 「名前のスタイル」で、ワークシートの名前変更方法を選択します。
  3. 「入力ボックスからの入力」に、特定の値を入力してください。
  4. OKをクリックすると、次の結果が得られます：

特定のデータを使用して複数のワークシートを一括名前変更

シナリオ2。Kutools for Excel を使って、セルの値に基づいて複数のワークシートを一括で名前変更

ダイアログボックスでオプションを指定

  1. 「ワークシート」リストから、名前を変更したいワークシートを選択してください。
  2. 「名前のスタイル」の下で、ワークシートの名前変更方法を選択してください。
  3. 選択ボタンボタンをクリックして、選択範囲からセクションの下にあるワークシート名の基準となるセル値を選択します。
  4. OKをクリックすると、次の結果が得られます：

セルの値を使用して複数のワークシートを一括名前変更

シナリオ3。Kutools for Excel を使って、各ワークシート内の特定のセルの値に基づき、複数のワークシートを一括で名前変更

ダイアログボックスでオプションを指定

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

各ワークシート内の特定のセルの値を使用して複数のワークシートを一括名前変更

Kutools for Excelは300 以上の高度な機能を提供し、複雑な作業を効率化して創造性と生産性を高めます。AI 機能を統合したKutools は正確にタスクを自動化し、データ管理を簡単にします。Kutools for Excel の詳細情報。。。         無料トライアル。。。

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

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

コード1：一度に任意の名前で複数のワークシートを名前変更する VBA コード

次の VBA コードを使えば、現在のブックに含まれるすべてのワークシートを、同じ接頭辞（例：KTE-order1、KTE-order2、KTE-order3…）を付けて素早く一括名前変更できます。

1。Microsoft Visual Basic for Applications ウィンドウで、開発 > 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。実行ボタンボタンをクリックしてコードを実行し、表示されたダイアログに希望の名前を入力してください（下記スクリーンショット参照）。

新しいシート名を入力

4。OKをクリックすると、すべてのシートがすでに名前変更されていることを確認できます。

すべてのシートが名前変更されました

2：現在のワークブックの各ワークシート内の特定のセル値で複数のワークシートを名前変更する VBA コード

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

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

2。Microsoft Visual Basic for Applications ウィンドウで、開発 > 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。実行ボタンボタンをクリックしてコードを実行すると、すべてのワークシートが A1 セルの内容に基づいて名前変更されます。

注意：

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

デモ：Kutools for Excel で複数のワークシートを名前変更