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

Excel の標準機能である移動またはコピーコマンドを使えば、ワークシートを簡単に複製できます。この方法は、元のデータシートのバックアップを作成したり、特定のワークシートを同僚と共有したり、別のファイルに転送したりするのに最適です。ただし、一度にコピーできるのは1 枚のワークシートが限界で、複数枚をコピーするには手作業で同じ操作を繰り返す必要があります。

1。複製先のワークブックで、複製したいワークシートをシートタブバーから選択します。
注：隣接していない複数のシートタブを選択するには、Ctrlキーを押しながら個別にクリックしてください。連続したワークシートを選択するには、最初のシートタブをクリックし、Shiftキーを押しながら最後のシートタブをクリックします。

2。選択したタブのいずれかを右クリックし、コンテキストメニューから移動またはコピーを選択すると、「移動またはコピー」ダイアログボックスが開きます。

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

［OK］をクリックすると、Excel は選択した各ワークシートのコピーを、指定されたワークブック内の指定位置に1 枚ずつ作成します。

同じワークシート（または複数のワークシート）を複数回コピーする必要がある場合は、必要な回数だけこの操作を繰り返してください。繰り返すごとに、ワークシート名に連番（例：「Sheet1 (2)」、「Sheet1 (3)」）が自動で付加され、複製されたバージョンを簡単に識別できます。
適用可能なシナリオ：元のワークシートのバックアップ作成、ファイル間での特定ワークシートの移動、または少数のワークシートを素早く複製したい場合に最適です。
メリット：標準機能なのでアドイン不要！一度きりのコピーなら、すぐに完了します。
デメリット：複数回のコピーには非効率的。追加のコピーごとに、手作業で同じ操作を繰り返す必要があります。

ヒントと注意点：

• ワークシートを新しいワークブックに複製する際は、データ損失を防ぐため、生成されたファイルを分かりやすい名前で保存してください。
• 他のワークシートを参照する数式やセル参照の中には、コピー後に注意が必要なものがあり、特に生成されたファイルに移動した際にその傾向が強まります。
• ワークシートの保護設定、非表示状態、マクロなどが保持されるかどうかは、ワークブックの構成によって異なります。これらの機能が重要な場合は、コピー後に必ずご確認ください。

同じワークブック内で複数のワークシートを複数回複製したい場合、手動で「移動またはコピー」コマンドを繰り返すのは非常に時間がかかります。その代わりに、ワークシートのコピー機能——Kutools for Excelに搭載されている——を使えば、この作業を大幅に効率化できます。複数のワークシートを一度に、しかも複数回コピーすることが可能です！

1。KUTOOLS PLUS>ワークシートのコピーをリボンでクリックすると、ワークシートの一括コピーウィザードが開きます。

注：この機能は、KUTOOLS PLUS>ワークシート>ワークシートのコピーからもご利用いただけます。

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 形式で保存し直してください。
• マクロが実行されない場合は、コード内のワークシート名のスペルミスや、同名のワークシートとの競合がないかを再度ご確認ください。
• マクロセキュリティが「高」に設定されている場合は、マクロ有効ワークブックが VBA コードを実行できるように設定を調整してください。

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

1。「KUTOOLS PLUS 」に移動し、「結合」をクリックして、ワークシートの統合ウィザードを起動します。

2。ウィザードのステップ1 で、「複数のワークブックからデータを1 つのワークシートにコピー」オプションを選択し、「次へ」をクリックします。.

3。ステップ2 では、複数のワークブックからワークシートを選択するために以下の手順に従ってください。
（1）「追加」>「ファイル」または「フォルダー」をクリックして、ワークシートを抽出したいファイルを選択します。（2）「ワークブックリスト」で対象のファイルにチェックマークを入れます。
（3）「ワークシートリスト」で、各ファイルからコピーしたいワークシートにチェックマークを入れます。
（4）含めたいすべてのワークブックに対してこの操作を繰り返します。
（5）選択が完了したら、「次へ」をクリックします。

4。ステップ3 では、データや書式の統合方法など、追加のコピー設定をニーズに合わせてカスタマイズし、「完了」をクリックして操作を完了します。

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

最後に、新しいワークブックを開くかどうか、および今後の使用のために統合シナリオを保存するかどうかを尋ねられます。必要に応じて選択してください。これにより、選択したワークブック内のチェック済みワークシートがすべて1 つの生成されたファイルに正常に統合されます。

ワークシートの統合ユーティリティは非常に汎用性が高いです：

• 複数のファイルから複数のワークシートまたは範囲をすばやく1 つのワークシートに統合します。
• 複数のワークブックから同じ名前のワークシートをすべて1 つの集計シートにマージします。
• 複数のワークブック全体を統合またはマージして、簡単に管理できます。
• 多数のデータソースから情報を1 か所で集計または計算します。

メリット：複数の担当者やプロジェクトからデータを統合するのに便利で、定期的なレポート作成時の時間節約にも役立ちます。
デメリット：Kutools for Excel のインストールが必要です。
大規模または類似したワークシートを統合した後は、必ず重複データや欠落データがないか確認してください。

まだこのユーティリティをお試しになっていない方は、無料トライアルをお試しください！

Excel の数式ではワークシート全体を複製することはできませんが、半手動の代替手段として、新しいワークシートテンプレートを作成し、数式で元のシートからデータを引き出す方法があります。この方法は、チャートやセルのスタイル、マクロなどを完全に複製するものではありませんが、レポート作成やテンプレート準備など、データの複製のみが必要な場面で有効です。

1。新しいワークシートを作成し、セル参照または数式を使用して必要なデータを複製します。たとえば、新規シートのセル A1 に次のように入力します：

=Sheet1!A1

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

3。さらにコピーを作成するには、新しいワークシートを複製し、必要に応じて数式や参照を更新します（例：別の元シートを参照するように変更）。

適用可能なシナリオ：レポートテンプレート向け、または書式やコードではなくデータのみを繰り返す必要がある場合に最適です。
メリット：追加ツールが不要。
デメリット：大量作成時には手作業が必要で、高度な書式設定、図形、VBA は複製されません。

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

頻繁に複製する必要のあるシート名のリストがある場合、最小限の手作業でこれらのシートを一度にすべてコピーするための VBA を使用できます。これは、毎月・毎四半期・研修バッチなどで配布するテンプレートや標準フォームに特に有効です。

1。「ALT + F11」を押して、Visual Basic for Applications ウィンドウを開きます。ALT + F11 to open the Visual Basic for Applications window.

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

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」を押してコードを実行します。プロンプトが表示されたら、各シートごとにコピーしたい回数を入力してください。指定したシートはそれぞれ入力された回数だけコピーされ、ワークブックの末尾に追加されます。F5to run the code。 When prompted、 enter コピー回数 you want for each sheet。 The specified sheets will each be copied the given number of times、 added to the end of your workbook。

注記：「wsNames = Array("Sheet1", "Sheet2")」の行を編集し、複製したいすべてのシート名を指定してください。このソリューションは、標準フォームのシートを一括処理するのに最適です。

ヒントとエラーに関する注意事項：

• ワークシート名のいずれかに誤字・脱字がある場合、該当のワークシートはスキップされます。
• Excel のワークシート制限（通常、1 ワークブックあたり最大255 シート）を超えないようご注意ください。ただし、それ以前に大規模なファイルでは処理が遅くなる可能性があります。