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

通常、[Move or Copy] 機能を使用してワークシートをコピーし、必要に応じてコピーに新しい名前を手動で入力します。しかし、ワークシートをコピーした後、セルの値に基づいてシートの名前を変更しようとしたことはありますか？この記事では、コピーを作成する際にセルの値に基づいてワークシートの名前を自動的に変更する方法について説明します。

VBAコードを使用してワークシートをコピーし、セルの値に基づいて名前を変更する

Kutools for Excelを使用してワークシートを複数回コピーし、セルの値に基づいて名前を変更する

VBAコードを使用してワークシートをコピーし、セルの値に基づいて名前を変更する

次のVBAコードは、ワークシートをコピーして特定のセルの値で自動的に名前を変更するのに役立ちます。以下の手順で行ってください：

1. コピーしたいワークシートをアクティブにし、ALT + F11 キーを押しながら押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. [Insert] > [Module] をクリックし、次のコードを Module ウィンドウに貼り付けます。

VBAコード: セルの値でワークシートをコピーして名前を変更する：

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. そして、F5キーを押してこのコードを実行すると、現在のワークシートがすべてのワークシートの後に現在のブックにコピーされ、指定したセルの値で名前が変更されます。スクリーンショットをご覧ください：

注: 上記のコードでは、セル参照 A1 は新しくコピーされたシートの名前を変更したいセルの値です。必要に応じて変更できます。

Kutools for Excelを使用してワークシートを複数回コピーし、セルの値に基づいて名前を変更する

上記のコードは1つのセル値でのみ名前を変更できます。もしシートを複数回コピーして、セル値のリストに基づいて名前を変更する必要がある場合、Kutools for Excel の「Create Sequence Worksheet」機能がこのタスクを迅速に完了するのに役立つかもしれません。

Kutools for Excelをインストール後、以下の手順を行ってください：

1. [Kutools Plus] > [Worksheet] > [Create Sequence Worksheets] をクリックしてください。スクリーンショットをご覧ください：

2. [ Create Sequence Worksheet] ダイアログボックスで、次の操作を行います：

(1.) コピー元のワークシート名を [ Base Worksheet] ドロップダウンリストから選択します；

(2.) Sheet names based on セクションで、「Data in a range」オプションを選択し、 ボタンをクリックして、コピーしたワークシートの名前を変更する基準となるセル値を選択します。

今すぐ Kutools for Excel をダウンロード！

3. その後、[ Ok] ボタンをクリックすると、指定したワークシートが複数回コピーされ、選択したセル値で新しいブック内で名前が変更されます。スクリーンショットをご覧ください：