導入：なぜ「末尾への追加」が必要なのか
Excelのマクロ記録機能は非常に便利ですが、記録されたコードは「特定のシートの後ろ」といった固定的な指定になりがちです。例えば、「常に一番最後のシートの後ろに新しいシートを追加したい」といったケースでは、マクロ記録だけでは対応できません。実務ではシートが増減することは日常茶飯事ですので、この動的な指定方法を習得することは、マクロを安定運用するための必須スキルと言えます。
基礎知識：Sheets.Countを理解する
VBAでシートの挿入や移動を行う際、After（後ろ）やBefore（前）という引数を使います。通常、マクロ記録では「Sheets(1)」や「Sheets(“Sheet1”)」といった具体的な名前やインデックスで指定されますが、これでは状況の変化に対応できません。
ここで活用するのがSheets.Countというプロパティです。これは「ブックに含まれるシートの総数」を返します。例えばシートが5枚あれば、Sheets.Countは「5」となります。つまり、一番最後のシートの後ろを指定したい場合は、Sheets(Sheets.Count)と記述することで、どんなにシートが増えても常に「一番最後」を指し示すことができるのです。
実装：具体的なコードの修正手順
マクロ記録で生成されたコードの「After:=Sheets(1)」といった箇所を、動的な記述に書き換えます。以下のサンプルコードを参考にしてください。
サンプルプログラム
以下のコードは、指定したシートをブックの末尾にコピーして追加する実用的な例です。
Sub AddSheetToEnd()
‘ シートを末尾に追加するサンプル
Dim targetSheet As Worksheet
Set targetSheet = ThisWorkbook.Sheets(“テンプレート”) ‘ コピー元のシート名を指定
‘ After引数にSheets(Sheets.Count)を指定することで、常に末尾に追加される
targetSheet.Copy After:=Sheets(Sheets.Count)
‘ 追加されたシートは自動的にアクティブになるため、名前を変更したり編集したりする
ActiveSheet.Name = “売上データ_” & Format(Date, “mmdd”)
‘ 最後に、処理が完了したことをユーザーに伝える等の制御をここに入れる
MsgBox “シートの末尾への追加が完了しました。”
End Sub
応用・注意点：現場で陥りやすいバグの回避策
1. シートの保護に注意：ブックが保護されている場合、シートの追加はできません。エラーが発生しないよう、必要に応じて一時的に保護を解除するコードを入れるのが実務的な作法です。
2. 非表示シートの存在：Sheets.Countは「非表示のシート」も含めてカウントします。もし「表示されているシートのみを対象にしたい」という場合は、ループ処理を使って可視シートの数をカウントする工夫が必要になります。
3. オブジェクトの明示：今回のコードでは「ThisWorkbook」を使用しています。複数のブックを操作する業務では、省略せずにどのブックのシートなのかを明示することで、誤操作や予期せぬエラーを未然に防ぐことができます。
この「動的な指定」をマスターすれば、マクロの汎用性が劇的に向上します。ぜひ、既存のマクロのメンテナンスから試してみてください。
