Excelで複数のシートを複数回コピーするにはどうすればよいですか？

Excelの組み込み機能である「移動またはコピー」コマンドは、ワークシートを複製するための簡単な方法を提供します。この方法は、元のデータシートのバックアップを作成したり、選択したシートを同僚と共有したり、特定のワークシートを別のファイルに転送する場合に役立ちます。ただし、各ワークシートを1回だけコピーする場合に最も効果的であり、複数のコピーを作成するには手動でプロセスを繰り返す必要があります。

1. コピーしたいワークシートがあるワークブックで、シートタブバーから複製したいシートを選択します。
注意：複数の隣接していないシートタブを選択するには、 CTRL キーを押しながら、個別にクリックして選択します。連続したシートを選択するには、最初のシートタブをクリックし、 SHIFTキーを押しながら最後のタブをクリックします。

2. 選択されたタブのいずれかを右クリックし、「 移動またはコピー 」を選択します。これにより「移動またはコピー」ダイアログボックスが開きます。

3. 「 移動またはコピー 」ダイアログボックスで、以下のオプションを状況に応じて調整します：
(1) 「 対象ブック 」ドロップダウンメニューを使用して、シートをコピーするワークブックを指定します。現在（アクティブ）のワークブック、すでに開いている別のワークブック、または新規のワークブックを選択できます。
(2) 「 挿入位置 」ボックスで、コピーしたシートの場所を設定します。通常、既存のすべてのシートの後にコピーすると見つけやすくなります。
(3) 「 OK」をクリックする前に、「 コピーを作成する 」オプションがチェックされていることを確認してください。これを選択しない場合、シートはコピーではなく元の場所から移動（削除）されます。
(4) 「 OK 」ボタンをクリックしてコピー操作を完了します。

確認後、Excelは選択した各ワークシートのコピーを指定されたワークブックと場所に作成します。

同じワークシートのコピーを複数必要とする場合は、必要な回数だけこのプロセスを繰り返します。何度も繰り返す場合、シート名には増分番号が反映されることがあります（例：「Sheet1 (2)」、「Sheet1 (3)」）。これにより、複製バージョンを追跡しやすくなります。
適用シナリオ： 元のワークシートのバックアップ、ファイル間での選択したシートの移動、または少数のシートを迅速に複製するのに最適です。
利点： 組み込み機能で、アドイン不要、一度きりのコピーに便利です。
欠点： 複数のコピーが必要な場合、効率が悪く、追加のコピーごとに手動での繰り返しが必要です。

ヒントと注意：

• 新しいワークブックにシートを複製する場合、データの損失を防ぐために新しいファイルを意味のある名前で保存することを忘れないでください。
• 他のワークシートを参照している式や数式は、特に新しいファイルに移動した場合、コピー後に確認が必要になることがあります。
• シートの保護、非表示の状態、またはマクロは、ワークブックの設定によっては保持されないことがあるため、これらの機能が重要な場合はコピー後に再確認してください。

同じワークブック内で複数のワークシートを何度も複製したい場合、「移動またはコピー」コマンドを手動で繰り返すのは非常に時間がかかります。代わりに、Kutools for Excelに含まれる「Copy Worksheets」機能を使用することで、このプロセスを大幅に簡略化できます。複数のワークシートを同時に複数回コピーすることができます。

1. 「 Kutools Plus > Copy Worksheets 」をリボンからクリックします。これにより「複数のワークシートをコピー」ウィザードが開きます。

注意：また、同じ機能にアクセスするには、「 Kutools Plus > ワークシート > Copy Worksheets.

2」を選択します。 複数のワークシートをコピー 」ダイアログボックスで、次の設定を行います：
(1) 「 選択したワークシートをコピー 」リストで、コピーしたいワークシートを選択します。
(2) 「 コピー数 」ボックスで、作成したいコピーの数を指定します。たとえば、「3」と入力して選択した各シートを3回コピーします。
(3) 新しいコピーされたシートの配置位置を設定します（例：現在のワークシートの後ろ、すべてのワークシートの前など）。
(4) 設定が終わったら、「 Ok 」をクリックして進みます。

3. 確認ダイアログが表示され、選択したワークシートが指定された回数だけ正常にコピーされたことが通知されます。「 OK 」をクリックしてこのプロンプトを閉じます。

この機能を使用することで、複数のワークシートを何度も簡単に複製でき、手動での繰り返し操作を省略できます。
適用シナリオ： 多数の人々向けにサンプルフォームを効率的に作成する、一括して月次タスクのシートをコピーする、またはさまざまな部門向けにテンプレートを素早く準備する場合にお勧めです。
利点： 大量操作による時間節約、手順がわかりやすく、手動での繰り返しが不要です。
欠点： Kutools for Excel アドインがインストールされている必要があります。
トラブルシューティングとヒント：

• すべてのシートを一度にコピーするには、ウィザード内の「すべて選択」機能を使用します。
• 確認前にコピー数と選択したシートが正しいかどうかを再確認してください。大量複製の場合、混乱を避けるために詳細なレビューが必要です。
• ワークブックが保護されている場合、このツールを使用する前に一時的に保護を解除し、必要に応じて後で再度適用してください。

まだ Kutools for Excel をお持ちでない場合、無料試用版でリスクなしに機能を探索できます。無料試用版をお試しください！

単一のワークシートを大量にコピーする必要がある場合（例：10回または100回）、Excelの標準機能を使うと非常に煩雑になります。その代わりに、簡単なVBAマクロを使用してプロセスを自動化できます。これは、事前に設定されたテンプレートを持つワークブックを生成したり、アンケートや請求書などのデータ入力用にフォームを複製する場合に特に有用です。

1. ALT + F11 を押して Microsoft Visual Basic for Applications ウィンドウを開きます。

2. 「挿入」＞「モジュール」に移動し、次のコードをモジュールウィンドウに貼り付けます：

VBA: 指定されたワークシートを複数回現在のワークブックにコピーする

Sub Copier ()
Dim x As Integer
x = InputBox("Enter number of times to copy Sheet1")
For numtimes = 1 To x
ActiveWorkbook.Sheets("Sheet1").Copy _
After:=ActiveWorkbook.Sheets("Sheet1")
Next
End Sub

注意：コード内の "Sheet1" を複製したいシートの実際の名前に置き換えてください。コードを実行する前に、そのシートがワークブック内に存在することを確認してください。そうでないとエラーが発生する可能性があります。

3. 「 F5 」を押してコードを実行します。指定したワークシートに対して作成したいコピー数を入力するよう求められます。

4. 希望する数値を入力して確認すると、マクロが要求されたコピーを迅速に生成し、それぞれに一意の名前が付きます（例：「Sheet1 (2)」、「Sheet1 (3)」など）。

適用シナリオ： データ入力、ワークフローテンプレート、または試験用フォームのために同一のシートを大量に生成する場合に使用します。
利点： 反復作業を自動化し、高度にカスタマイズ可能。
欠点： VBAエディターの基本的な操作に慣れる必要があり、ワークブックでマクロの許可が必要な場合があります。
トラブルシューティングとヒント：

• ワークブックを .xlsx 形式で保存している場合、マクロを保持するために .xlsm 形式で保存してください。
• マクロが失敗した場合、コード内のシート名のスペルを再確認し、名前の競合がないことを確認してください。
• マクロのセキュリティ設定が「高」になっている場合、マクロ有効のワークブックを実行するための設定を調整してください。

複数の異なるワークブックからワークシートを集約する必要がある場合、例えば複数のチームメンバーからの入力を集めるときや月次レポートを統合するときなど、Kutools for Excel の「Combine Worksheets」機能が特に役立ちます。わずかなステップで、複数の閉じたファイルから特定のシートを抽出し、新しいワークブックに結合することができます。

1. 「 Kutools Plus > Combine 」をクリックして「Combine Worksheets」ウィザードを起動します。

2. ウィザードのステップ1で、「 複数のワークブックから複数のワークシートを1つのワークシートに統合 」オプションを選択し、「 次へ.

3」をクリックします。ステップ2では、次の手順でワークブック間のワークシートを選択します：
(1) 「 追加 > ファイル 」または「 フォルダ 」をクリックして、ワークシートを抽出したいファイルを選択します。
(2) 「 ワークブックリスト」で、関心のあるファイルにチェックを入れます。
(3) 「 ワークシートリスト」で、各ファイルからコピーしたいワークシートにチェックを入れます。
(4) 含めたいすべてのワークブックに対してこれを繰り返します。
(5) 選択が終わったら、「 次へ.

4」をクリックします。ステップ3では、データや書式の結合方法などの追加設定を構成します。「 完了 」をクリックして操作を終了します。

5. 表示されるダイアログボックスで、新しいワークブックの保存先フォルダとファイル名を指定し、「 保存.

最終的に、新しいワークブックを開くかどうか、および今後の使用のために結合シナリオを保存するかどうかを確認するプロンプトが表示される場合があります。必要な選択を行ってください。選択したワークブックからすべてのチェックされたワークシートが1つの新しいファイルに統合されます。

Combine Worksheets ユーティリティは非常に汎用性があります：

• 複数のワークシートや範囲を異なるファイルから1つのワークシートに迅速に結合します。
• 複数のワークブックから同じ名前のワークシートをすべて1つの要約シートに統合します。
• 全体のワークブックを統合または結合して管理を容易にします。
• 多くのソースからのデータを1箇所にまとめたり計算したりします。

利点： 別々の人やプロジェクトからのデータを統合するのに便利で、定期的なレポート作成の時間を節約します。
欠点： Kutools for Excel のインストールが必要です。
特に大規模または似たようなワークシートを結合した後は、重複または欠落した情報がないか必ず確認してください。

このユーティリティをお試しでない場合は、無料試用版をお試しください！

Excelの数式はワークシート全体を複製することはできませんが、半手動の代替方法として、新しいワークシートテンプレートを準備し、数式を使用して元のデータを引き出すことができます。このアプローチは、チャート、セルスタイル、またはマクロではなく、データのみを複製する場合（例：レポート作成やテンプレート準備）に有用です。

1. 新しいワークシートを作成し、セル参照または数式を使用して複製したいデータを準備します。例えば、新しいシートのセルA1に以下のように入力します：

=Sheet1!A1

2. フィルハンドルをドラッグして、希望する範囲にこの数式をコピーします。これにより、新しいシートの各セルが元のシートの対応するセルにリンクされます。

3. 追加のコピーを作成するには、新しいワークシートを複製し、必要に応じて数式や参照を更新します（例：必要に応じて別のソースシートへの参照を変更）。

適用シナリオ： レポートテンプレートや、データ（書式やコードではない）のみを繰り返す必要がある場合に適しています。
利点： 追加ツールは不要。
欠点： 大量のコピーが必要な場合、手動での努力が必要；高度な書式、図形、またはVBAは複製されません。

ヒント：数式ベースのリンク後、静的なデータが必要な場合は「値として貼り付け」を使用して数式を値に変換できます。

頻繁に複製する必要のあるシート名のリストがある場合、VBAを使用してこれらすべてのシートを一度に最小限の手動入力でコピーできます。これは、毎月、四半期ごと、またはトレーニングバッチ向けに配布されるテンプレートや標準フォームに特に有用です。

1. ALT + F11 を押して Visual Basic for Applications ウィンドウを開きます。

2. VBAエディターで「挿入」＞「モジュール」をクリックし、次のコードを新しいモジュールウィンドウにコピー＆ペーストします：

Sub CopyListSheets()
    Dim wsName As Variant
    Dim CopyCount As Integer
    Dim i As Integer
    Dim sheetExists As Boolean
    Dim ws As Worksheet
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    wsNames = Array("Sheet1", "Sheet2") 'Edit these names to your target sheets
    
    CopyCount = Application.InputBox("Enter the number of copies:", xTitleId, Type:=1)
    
    For Each wsName In wsNames
        sheetExists = False
        
        For Each ws In Worksheets
            If ws.Name = wsName Then
                sheetExists = True
                Exit For
            End If
        Next
        
        If sheetExists Then
            For i = 1 To CopyCount
                Worksheets(wsName).Copy After:=Sheets(Sheets.Count)
            Next i
        End If
    Next wsName
End Sub

3. F5 を押してコードを実行します。プロンプトが表示されたら、各シートの必要なコピー数を入力します。指定されたシートはそれぞれ指定された回数だけコピーされ、ワークブックの最後に追加されます。

注意：wsNames = Array("Sheet1", "Sheet2") の行を、複製したいすべてのシートの名前に合わせて調整してください。このソリューションは、標準フォーマットのシートをバッチ処理する場合に理想的です。

ヒントとエラーリマインダー：

• シート名が正しくないか欠落している場合、そのシートはスキップされます。
• Excelのワークシート制限（通常は1つのワークブックに最大255シートまでですが、大きなファイルではそれ以前に動作が遅くなる可能性があります）を超えないようにしてください。