Excelで印刷されたすべてのページの下部に同じ行を繰り返し印刷するにはどうすればよいですか？

デフォルトでは、Excelはユーザーが上部に同じ行を繰り返し印刷できる機能を提供しています。しかし、場合によっては、上部ではなくページの下部に同じ行を繰り返し印刷したいかもしれません。この記事ではその方法についていくつかの小技をご紹介します。

VBAコードを使用してページの下部に行を繰り返し印刷する

VBAコードを使用してページの下部に行を繰り返し印刷する

以下のVBAコードを実行すると、指定した行が各ページのフッターに挿入されます。その後、Excelで印刷されるすべてのページの下部にその行を繰り返し印刷できます。

1. Alt + F11キーを同時に押して「Microsoft Visual Basic for Applications」ウィンドウを開きます。

2. 「Microsoft Visual Basic for Applications」ウィンドウダイアログボックスで、「挿入」＞「モジュール」をクリックします。そして、以下のVBAコードをモジュールウィンドウにコピー＆ペーストしてください。

VBAコード：指定した行を各印刷ページのフッターに挿入する

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. F5キーを押してコードを実行します。すると「Kutools for Excel」ダイアログボックスが表示されるので、印刷したい行を選択し、「OK」ボタンをクリックしてください。

これで、指定した行の内容が現在のワークシート内のすべての印刷ページのフッターに追加されました。ワークシートの印刷を開始できます。

注釈: ワークブック全体の各ページの下部に選択した内容を繰り返し印刷したい場合は、フッター機能を使用して全シートのフッターにその内容を挿入することができます。