はじめに
Excelで新しいシートを追加すると、通常は現在アクティブなシートの左側に挿入されます。しかし、月別の集計シートや、作業履歴のログシートなど、「常に一番右端（末尾）にシートを追加したい」というケースは非常に多いですよね。
毎回手動でシートを右端までドラッグするのは、地味に面倒な作業です。
VBAでマクロを作成しておけば、この「シートを末尾に追加する」という作業をボタン一発で完了させることができます。この記事では、そのためのシンプルで確実なコードをご紹介します。
シートを末尾に追加するVBAサンプルコード
Worksheets.Add メソッドを使うことで、新しいシートを追加できます。このとき、After という引数を指定することで、シートをどこに追加するかを正確にコントロールできます。
シートを末尾に追加するには、「最後のシートの後ろ (After)」に追加する、と命令すればよいわけです。
完成コード
' 新しいワークシートをブックの末尾に追加する
Sub AddNewSheetAtEnd()
' 変数を定義します
Dim sheetCount As Long
' 現在のシート数を取得
sheetCount = ThisWorkbook.Worksheets.Count
' 最後のシートの後ろに新しいシートを追加
Worksheets.Add After:=Worksheets(sheetCount)
MsgBox "新しいシートを末尾に追加しました。", vbInformation
End Sub
【使い方】
- VBE（
Alt + F11）を開き、標準モジュールに上記のコードを貼り付けます。 AddNewSheetAtEndマクロを実行します。- ブックの一番右側に、新しいシートが追加されます。
コードの解説
Dim sheetCount As Long
現在のシート数を格納するための変数 sheetCount を宣言しています。
sheetCount = ThisWorkbook.Worksheets.Count
Worksheets.Count プロパティを使って、このブックに存在するシートの総数を取得し、変数 sheetCount に代入しています。例えば、シートが5枚あれば、sheetCount には 5 が入ります。
Worksheets.Add After:=Worksheets(sheetCount)
このコードが処理の核心です。
Worksheets.Add: 新しいシートを追加する命令です。After:=: シートを「～の後ろに」追加するための引数です。Worksheets(sheetCount):sheetCount番目のシート、つまり「最後のシート」を指定しています。
全体として、「最後のシートの後ろに、新しいシートを追加しなさい」という意味になり、結果としてシートは常に一番右端に追加されます。
まとめ
今回は、新規シートを常にブックの末尾に追加する、シンプルで実用的なマクロをご紹介しました。
Worksheets.AddメソッドのAfter引数が鍵。Worksheets.Countで最後のシートを指定する。
この一行を覚えておくだけで、日々のシート追加作業がぐっと楽になります。個人用マクロブックに登録して、いつでも呼び出せるようにしておくと、さらに便利に活用できるでしょう。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
