VBA シート移動・コピー

シートの移動

構文

Worksheets.Move(Before, After)

Sub test1()
’Sheet2をSheet3の後ろに移動する
Worksheets("Sheet2").Move after:=Worksheets("Sheet3")
End Sub

Sub test2()
’Sheet2を一番後ろに移動する
Worksheets("Sheet2").Move after:=Sheets(Sheets.Count)
End Sub

Sub test3()
’Sheet2をSheet1の前に移動する
Worksheets("Sheet2").Move before:=Worksheets("Sheet1")
End Sub

Before、After ともに省略すると、アクティブシートの直前に移動されます。

シートのコピー

構文

Worksheets.Copy(Before, After)

Sub test4()
’Sheet1をSheet2の後ろへコピする
Worksheets("Sheet1").Copy after:=Worksheets("Sheet2")
End Sub

Sub test5()
’Sheet2をSheet1の前へコピーする
Worksheets("Sheet2").Copy before:=Worksheets("Sheet1")
End Sub

Before、After ともに省略すると、アクティブシートの直前にコピーされます。