Excel VBA（マクロ）でワークシートをコピーする方法/Worksheets.Copyメソッドの使い方

VBAでExcelのワークシートを複製する方法についてです。

新しいブックにシートを複製（シート.Copyのみで実行）

シートのコピーは、(指定したシート).Copyという形式で実行されます。
たとえばWorksheets("シート名").Copyであるとか、
Sheets（シートのインデックス番号）.Copyであるとか、
Activesheet.Copyのような形式で実行が可能です。

(指定したシート).Copyだけしか書かずに実行した場合、新しいブックに指定したシートがコピーされます。

' vba
Worksheets("Sheet83").Copy Before:=Worksheets("Sheet3")

シートを（同じブックの）指定したシートの前に移動させるには、Copyの後にBefore:=を付けて前に挿入したいシートを指定します。

実行すると、指定したシートの前にコピーしたシートが挿入されることが確認できます。

' vba
Worksheets("Sheet83").Copy After:=Worksheets("Sheet3")

同じコードのBeforeをAfter:=に変更して実行してみます。

Afterの場合は、指定したシートの後にコピーしたシートが挿入されます。

なお、BeforeとAfterを同時に使用することはできません。

' vba
Worksheets("Sheet83").Copy Before:=Worksheets(1)

ブック内の最初のシート＝Worksheets(1)です。()内の数字1はインデックス番号（シートを左から数えた通し番号）となります。それの前にシートを挿入するので、

最初のシートの左、つまりブックの先頭にシートをコピーすることができます。

Countは指定範囲のセルやシートの個数を返すプロパティです。
Worksheets.Countの場合ワークシートの個数、Sheets.Countとした場合はグラフシートなども含むシート全ての個数を返します。

' vba
Worksheets("Sheet83").Copy After:=Worksheets(Worksheets.count)
'After:=Sheets(Sheets.count)でもOK

帰る数値をインデックス番号として指定すれば、それはシート全体の数を示すことになります。
After:=Sheets(Worksheets.count)のようにすると、グラフシートなどある場合に数が合わなくなるのでNG。

実行結果です。

' vba
Worksheets(Array("Sheet3", "Sheet6")).Copy After:=Worksheets(Worksheets.count)

複数シートをまとめてコピーしたい場合は、Array()の中にシートを,で区切って並べます。区切っていけば3つでも4つでも可能です。
Array＝配列のことです。

実行結果です。

' vba
Worksheets("Sheet83").Copy After:=Workbooks("sunagitsu2.xlsm").Sheets("Sheet1")

新規のブックの場合は冒頭のコードですが、すでにあるブックにコピーする場合はブック名を指定し、その後にシート名を付けます。
また、コピーする前に送り先のブックを開いておく必要があります。

実行結果です。

VBAを使わない通常操作でシートをコピーする方法です。