【エクセルマクロ】シートを大量に複製する:作業を倍速しちゃおう!

ExcelVBA_シート大量複製-アイキャッチ エクセルマクロで効率化する

エクセルマクロで、シートを大量に一括複製する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」シートまで、中身はすべて同じです。


 
 
この記事がお役に立てれば幸いです。
 

【エクセルマクロ】ワークシート処理を自動化する:超便利29選
...

 

「Excel自動化[最強]時短仕事術」
自動化の基礎と時短に役立つテクニック解説書
毎日の定型業務を手際良く行え、大幅な業務効率化を実現!