【エクセルマクロ】シートを大量に複製する(動画あり)

エクセルマクロで、シートを大量に一括複製するVBAコードをご紹介します。

同じシートを一気に増やすことができます。

このページのマクロコードは、コピペで使えます。
ぜひお試しください！

シートを大量に複製する

以下のExcelVBAを実行すると、指定シートを多数まとめてコピーします。

Sub 雛形シートを大量複製()

Dim i As Long
Dim Make_Cnt As Long
    
    'シートを作成する枚数を指定
    Make_Cnt = 10

    '指定枚数分ループ
    For i = 1 To Make_Cnt
    
        'シート作成しシート名を　i　にする
        Sheets("雛形").Copy Before:=Sheets("雛形")
        ActiveSheet.Name = i

    Next i

    MsgBox "完了"

End Sub

マクロ実行前

マクロ実行後

「雛形」シートを一気に10シート分複製します。

コピー元のシートをそのまま複製しているので、

「1」シート　～「10」シートまで、中身はすべて同じです。

 
 
この記事がお役に立ちますと幸いです。
 

・【エクセルマクロ】シートの追加・削除を自動化まとめ
 

【エクセルマクロ】シートの追加・削除を自動化：超便利12選

エクセルマクロで、ワークシートの追加・削除を自動化するVBAコードをご紹介します。どのマクロコードも、コピペで使用できます。ぜひお試しください！

kirinote.com

2023.09.03