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

Author Xiaoyang Last modified 2025-08-26

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

vba code to enter a number to be copied

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

the current worksheet is duplicated 5 copies

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

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

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

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

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

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

click Create Sequence Worksheets feature of kutools

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

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

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

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

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

specify the options in the dialog box

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

the sheet is copied multiple times and renamed

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

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

最高のオフィス業務効率化ツール

🤖	Kutools AI Aide：データ分析を革新します。主な機能：Intelligent Execution｜コード生成｜カスタム数式の作成｜データの分析とグラフの生成｜Kutools Functionsの呼び出し……
	人気の機能：重複の検索・ハイライト・重複をマーキング｜空白行を削除｜データを失わずに列またはセルを統合｜丸める……
	スーパーLOOKUP：複数条件でのVLookup｜複数値でのVLookup｜複数シートの検索｜ファジーマッチ……
	高度なドロップダウンリスト：ドロップダウンリストを素早く作成｜連動ドロップダウンリスト｜複数選択ドロップダウンリスト……
	列マネージャー：指定した数の列を追加｜列の移動｜非表示列の表示/非表示の切替｜範囲＆列の比較……
	注目の機能：グリッドフォーカス｜デザインビュー｜強化された数式バー｜ワークブック＆ワークシートの管理｜オートテキストライブラリ｜日付ピッカー｜データの統合｜セルの暗号化/復号化｜リストで電子メールを送信｜スーパーフィルター｜特殊フィルタ（太字/斜体/取り消し線などをフィルター）……
	トップ15ツールセット：12 種類のテキストツール（テキストの追加、特定の文字を削除など）｜50種類以上のグラフ（ガントチャートなど）｜40種類以上の便利な数式（誕生日に基づいて年齢を計算するなど）｜19 種類の挿入ツール（QRコードの挿入、パスから画像の挿入など）｜12 種類の変換ツール（単語に変換する、通貨変換など）｜7種の統合＆分割ツール（高度な行のマージ、セルの分割など）｜… その他多数