【VBA】シートをコピーして、同じシートを複数作る

ループ処理でコピーする

ひな形のシートをコピーして複数作成したい時は、Copyメソッドをループ処理で繰り返し実行します。

コード

'-------------------------------

'変数定義

'-------------------------------

'繰り返し用

Dim i As Long

'作成するシートの数(10枚)

Dim makeCount As Long

makeCount = 10

'新しいエクセルファイルを管理する変数

Dim newExcelFile As Workbook

'-------------------------------

'シートコピー処理

'-------------------------------

'新しいエクセルファイルを作成

Set newExcelFile = Workbooks.Add

For i = 1 To makeCount

'新しいエクセルファイルの最後にシートをコピーする

ThisWorkbook.Worksheets("見積ひな型").Copy _

After:=newExcelFile.Worksheets(newExcelFile.Worksheets.Count)

'シート名は連番をセット

ActiveSheet.Name = i

解説

VBAのエクセルファイルにある「見積ひな型」シートをコピーして、同じシートを10枚作っています。

プログラムの読み方

9行目：makeCount = 10
作成する枚数を設定しています。26行目：ActiveSheet.Name = i
シートはコピー直後にはアクティブになっています。なので、ActiveSheet.Nameを使ってシート名を設定できます。
今回はシート名にはiを設定しているので、1~10の連番が実際にはセットされます。

その他テクニックは、次の記事を参考にしてください。