VBA～ワークシートを追加しよう～Excel

ワークシートを追加したい時はWorksheetオブジェクトのSheets.Addメソッドを使います。

一番左に追加する場合

Sheets.Addメソッドのパラメーターbeforeは指定したシートのすぐ左にシートを追加します。一番左のシートはインデックス番号1なのでWorksheets(1)をパラメーターbeforeで指定すれば一番左にシートが追加されます。

Sub test1()
Worksheets.Add before:=Worksheets(1)
End Sub

一番右に追加する場合

Sheets.Addメソッドのパラメーターafterは指定したシートのすぐ右にシートを追加します。一番右のシートはWorksheets.Countで指定できるのでWorksheets(Worksheets.Count)をパラメーターafterで指定すれば一番右にシートが追加されます。

Sub test2()
Worksheets.Add after:=Worksheets(Worksheets.Count)
End Sub

指定したシートの左に追加する場合

指定したシートの左にシートを追加したい時はパラメーターbeforeでシート名を指定します。下の画像において下のコードを実行するとSheet2の左にシートが追加されます。

Sub test3()
Worksheets.Add before:=Worksheets("Sheet2")
End Sub

指定したシートの右に追加する場合

指定したシートの右にシートを追加したい時はパラメーターafterでシート名を指定します。下の画像において下のコードを実行するとSheet2の右にシートが追加されます。

Sub test4()
Worksheets.Add after:=Worksheets("Sheet2")
End Sub

複数のシートを追加する場合

複数のシートを追加する場合はパラメーターcountで追加するシートの数を指定します。下のコードを実行すると一番左ににシートが2個追加されます。パラメーターが2つあるのでカンマで区切ります。

Sub test5()
Worksheets.Add before:=Worksheets(1), Count:=2　
End Sub