シートをコピーする

トップページ（目次）

521.シートをコピーする

＜実行前後＞

→

Sub 現在のシートをコピーして一つ右に追加する()

    ActiveSheet.Copy After:=ActiveSheet 'Afterで右に追加

End Sub

Sub 現在のシートをコピーして一つ左に追加する()

    ActiveSheet.Copy Before:=ActiveSheet 'Beforeで左に追加

End Sub

Sub 指定のシートをコピーして左から二番目のシートの右に追加する()

    Worksheets("Sheet1").Copy After:=Worksheets(2) 'Worksheets(2)が左から2番目の処理

End Sub

Sub 指定のシートをコピーして左から二番目のシートの左に追加する()

    Worksheets("Sheet1").Copy Before:=Worksheets(2) 'Worksheets(2)が左から2番目の処理

End Sub

Sub 現在のシートをコピーして一番右に追加する()

    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)

End Sub