【VBA】新しいワークシートを最後に追加する

After:=Worksheets(Worksheets.Count)でシートを追加

Worksheets.Addで新しいシートを追加する時に、After:=Worksheets(Worksheets.Count)と指定すると、シートの最後(１番右)に追加されます。

'ワークシートの最後(右側)に追加
Worksheets.Add After:=Worksheets(Worksheets.Count)

1 2	'ワークシートの最後(右側)に追加 Worksheets.Add After:=Worksheets(Worksheets.Count)

After:=Worksheets(Worksheets.Count)を分解して説明すると

となります。

また、Worksheets(数値)という書き方は、「ワークシートの中の何番目のシート」という意味です。なので、Worksheets(Worksheets.Count)は、1番最後のシートを指しています。

すべてあわせると、After:=Worksheets(Worksheets.Count)は、「最後のシートの右側」になります。

POINT
最後のシートは、Worksheets.Countを使って指定しましょう。
数値の3などでシート数を直接書くと、シート数が変わった時にプログラムの修正が必要です。でも、このWorksheets.Countを使った書き方であれば、シートの数が変わってもプログラムの修正が不要だからです。

その他テクニックは、次の記事を参考にしてください。