ワークシートをコピーする

今回はワークシートのコピーについてメモしておきます。

ワークシートのコピーにはWorksheet.Copyメソッドを使います。
実行プログラム

Sub Sample6_8_1()

    Worksheets("A").Copy before:=Worksheets(1)                ' 先頭にコピー
    Worksheets("A").Copy before:=Worksheets("B")              ' "B"の前にコピー
    Worksheets("A").Copy After:=Worksheets("B")               ' "B"の後にコピー
    Worksheets("A").Copy After:=Worksheets(Worksheets.Count)  ' 最後にコピー

End Sub

Sub Sample6_8_1()

Worksheets("A").Copy before:=Worksheets(1) ' 先頭にコピー

Worksheets("A").Copy before:=Worksheets("B") ' "B"の前にコピー

Worksheets("A").Copy After:=Worksheets("B") ' "B"の後にコピー

Worksheets("A").Copy After:=Worksheets(Worksheets.Count) ' 最後にコピー

End Sub

実行前

実行後

パラメーターでBefore、またはAfterでコピーするシートの場所を指定します。
パラメーターのBefore、Afterを指定しない場合、新しいブックが作成され、そこにシートがコピーされます。