Excelでシートをコピーして自動的に名前を変更するにはどうすればよいですか？

Excelで、通常のように名前を入力せずにワークシートをコピーして自動的に名前を変更するには、どうすればよいでしょうか？この記事では、シートを1回または複数回コピーし、一度に特定の名前を付ける方法について説明します。

VBAコードを使用してワークシートを複数回コピーし、タブ名を増分で名前を変更する

Kutools for Excelを使用してワークシートを複数回コピーし、カスタム名で名前を変更する

VBAコードを使用してワークシートを複数回コピーし、タブ名を増分で名前を変更する

あるワークシートを複数回コピーし、KTE-1、KTE-2、KTE-3、KTE-4…のような連続した名前を付ける必要がある場合、次のVBAコードが役立ちます。

1. ALT + F11キーを押しながら押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2. 「挿入」>モジュールをクリックし、次のコードをモジュールウィンドウに貼り付けます。

VBAコード：ワークシートを複数回コピーして一度に名前を変更する：

Sub Create()
'Updateby Extendoffice
    Dim I As Long
    Dim xNumber As Integer
    Dim xName As String
    Dim xActiveSheet As Worksheet
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xActiveSheet = ActiveSheet
    xNumber = InputBox("Enter number of times to copy the current sheet")
    For I = 1 To xNumber
        xName = ActiveSheet.Name
        xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
        ActiveSheet.Name = "KTE-" & I
    Next
    xActiveSheet.Activate
    Application.ScreenUpdating = True
End Sub

3. そして、F5キーを押してこのコードを実行すると、現在のワークシートを何枚コピーしたいかを尋ねるプロンプトボックスが表示されます（スクリーンショット参照）：

4. 表示されたダイアログにコピーする枚数を入力し、「OK」ボタンをクリックすると、現在のワークシートが5枚複製され、連番の名前が付けられます（スクリーンショット参照）：

注釈: 上記のコードでは、ワークシート名のテキスト「KTE-」を必要なものに変更できます。

Kutools for Excelを使用してワークシートを複数回コピーし、カスタム名で名前を変更する

上記のVBAコードが適用するのが難しい場合は、ここでは簡単なツールであるKutools for Excelをご紹介します。その「シーケンスワークシートの作成」機能を使えば、このタスクを簡単に実現できます。

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

1. 「Kutools Plus」>「ワークシート」>「シーケンスワークシートの作成」をクリックします（スクリーンショット参照）：

2. 「シーケンスワークシートの作成」ダイアログボックスで：

(1.) コピー元のワークシート名を「基準となるワークシート」ドロップダウンリストから選択します；

(2.) 次に、作成するワークシートの枚数を「作成するワークシートの数」テキストボックスで指定します；

(3.) そして、「ワークシート名の基準」というセクションで「連続した番号」を選択します；

(4.) 最後に、右側のペインで希望するシーケンスワークシート名を作成します（スクリーンショット参照）：

3. 設定が完了したら、「OK」ボタンをクリックしてください。指定したワークシートが複数回コピーされ、新しいワークブック内で作成したシーケンスに基づいて名前が変更されます（スクリーンショット参照）：

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

デモ：Kutools for Excelを使用してワークシートを複数回コピーし、カスタム名で名前を変更する