Excelで最後のページだけフッターを入れるには？

こんにちは、わたあめです。今日はちょっとしたこんな疑問についての記事です。

わたあめ

Excelの最後のページにだけフッターを入れることができるのかな？

Excelで、最後に会社名や会社のロゴ、住所など定型文を入れたいとき、ありませんか。全ページには要らないけど、最後のページにだけフッターを入れることはできるのかの疑問を調査しました。

それでは、いってみましょう！

結論：Excelではできない

結論がいきなり後向きでごめんなさい。Excelのフッター機能を利用して最終ページのみにフッターを設定することはできません。(代替案を次章以降で記載しています、気になる方は最後まで読んでみてくださいね。)

Excelのフッター機能の設定方法

Excelでは、フッターは以下の手順で設定します。

1. [ページレイアウト]タブ>[印刷タイトル]>[ヘッダー/フッター]タブ
2. [フッターの編集]ボタンをクリック

ここで、テキストやページ番号、日付、ファイルパスなどをフッターに設定することができます。

ページによって異なるフッターを設定

以下の条件に合致すれば、ページによって異なるフッターを設定することができます。

• 奇数/偶数ページで異なるフッターを設定したい
• 先頭のページのみ別のフッターを設定したい

ですが、以下画像のように最後のページのみ別にフッター入れるという設定は設定項目自体がないようです。

マクロでは可能か？

マクロであれば手動で設定するより細かいことができることがあるので、フッター関連のマクロ(プロパティ)を確認してみました。フッターに関連しそうなPageSetUpプロパティを調べてみました。※具体的には、Footerという名がついているプロパティをVBAリファレンスで確認しています。

一通り見てみたが、最後のページのみフッターを別にするというプロパティはなかったです。

わたあめ

残念…！諦めて、代替対処法を考えてみたよ！

代替対処法

代替案1:ExcelでなくWordで文書作る

Wordであれば、セクションを分けることで異なるヘッダー/フッターを設定することができます。最終ページにセクションの挿入方法は以下手順です。

1. Wordを起動
2. 最後のページの1ページ前にカーソルを合わせる
3. [レイアウト]タブ>[区切り]>[セクション区切り-次のページから開始]
4. フッターかヘッダー部分をダブルクリック>[デザイン]タブ>[前と同じヘッダー/フッター]をクリック

これで前のページと同じヘッダーフッターにするという設定を解除できます。Excelの表をWordにペタッと貼り付けるなどで良いなら、この方法でも良いかもです。

代替案2：Excelの最終行にフッターもどきを入力

最終行にフッターとしたい内容を手打ちするのも一つの手です。または、自動で文字を設定したい場合(表などがあって最終行判定できる場合に限る)はマクロで最終行を取得してその下に、固定文字列等を入力することもできます。

最終行に固定文字列を入力するサンプルプログラムは以下です。

Dim MaxRow As Integer
MaxRow = Sheets("Sheet1").Range("A1").End(xlDown).Row
With Sheets("Sheet1").Range("A" & MaxRow + 2)
.Value = "○○株式会社"
End With

解説すると、Sheet1というシート名のA1から始まる表(表の右上がA3とかであれば、A1をA3に変更する)の最終行を取得して、その2つ下の行に会社名を入れるという動きのプログラムになります。

VBAマクロとは？という方は、やわらかい本から読んでみるのがオススメ！マクロを覚えると、Excel業務がうんと楽にできちゃいますよ。

できる イラストで学ぶ 入社1年目からのExcel VBA できる イラストで学ぶシリーズ
きたみ あきこ 著
Amazon

代替案3:シートを分ける

シートごとに別のヘッダー/フッターを設定することができます。1ページごとまたは最終ページだけシートを分けて作成することで実現できます。印刷するときは、ブック全体を指定すると、シートが全て印刷されるので。ただ、シートを分けるのも手間ですし、内容のボリューム（何ページになるのかわからない）ような文書には向いていないです。

さいごに

いかがだったでしょうか？最後だけ、違うフッターが設定出来たらいいのに…、出来ないの悔しい！となったわたあめです。ズバリな解決方法を提示できずモヤっとしますが、少しでも参考になれば幸いです。

それでは、また！