ヒント:他の言語はGoogle翻訳されています。 訪問することができます English このリンクのバージョン。
ログイン
x
or
x
x
お申し込み
x

or

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

既定では、Excelは、行を一番上に繰り返し印刷する機能をユーザーに提供します。 しかし場合によっては、一番上を除いてページの一番下に行を繰り返し印刷することをお勧めします。 この記事ではちょっとしたトリックを紹介します。

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


OfficeタブOfficeでタブ付き編集とブラウジングを有効にし、作業をより簡単にします...
Kutools for Excel-最高のOffice生産性向上ツールはExcelの問題のほとんどを解決します
  • 何でも再利用: 最も使用されている式や複雑な式、チャート、その他をお気に入りに追加し、将来的にすぐに再利用できます。
  • 20以上のテキスト機能: テキスト文字列から数値を抽出します。 テキストの一部を抽出または削除します。 数字と通貨を英語の単語に変換...
  • マージツール:複数のワークブックとシートを1つに; データを失うことなく複数のセル/行/列を結合します。 重複する行と合計をマージ...
  • 分割ツール:値に基づいてデータを複数のシートに分割します。 1つのワークブックから複数のExcel、PDF、またはCSVファイル。 1列から複数列...
  • 貼り付けスキップ 非表示/フィルターされた行。 カウントアンドサム 背景色別; メーリングリストを作成し、 セルの価値でメールを送信する...
  • スーパーフィルター: 高度なフィルタースキームを作成し、任意のシートに適用します。 ソート 週、日、頻度などにより; フィルタ 太字、式、コメントで...
  • 300の強力な機能以上。 Office 2007-2019および365で動作します。 すべての言語をサポートしています。 会社で簡単に展開できます。 フル機能の60日間の無料トライアル。

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


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

1。 押す 他の + F11 キーを同時に押して アプリケーション用Microsoft Visual Basic 窓。

2。 の中に アプリケーション用Microsoft Visual Basic ウィンドウのダイアログボックスで、をクリックします。 インセット > モジュール。 次に、下の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 ボタン。

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

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


あなたは興味があるかもしれません:

Excelでn行ごとにタイトル行を簡単に繰り返す

Kutools for Excel's タイトル行を挿入する ユーティリティを使用すると、Excelで選択範囲のn番目の行の前にタイトル行をすばやく挿入できます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 自由に60日に制限なしで試してみてください。 もっと詳しく 今すぐ無料トライアルをダウンロードする


Kutools for Excel-最高のOffice生産性向上ツールにより、生産性が80%向上

  • 再利用: すばやく挿入 複雑な数式、チャート そして、以前に使用したもの; セルを暗号化する パスワード付き メーリングリストの作成 そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストや数式を簡単に編集する) レイアウトを読む (多数のセルを簡単に読んで編集できます)。 フィルター範囲に貼り付ける...
  • セル/行/列を結合 データを失うことなく; セルコンテンツの分割。 重複する行/列を結合する...重複セルの防止。 範囲の比較...
  • 重複または一意を選択します空白行を選択 (すべてのセルは空です)。 スーパー検索とファジー検索 多くのワークブックで。 ランダム選択
  • 完全コピー 式の参照を変更せずに複数のセル。 参照を自動作成 複数のシートに 箇条書きを挿入、チェックボックスなど
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷 セルのコンテンツとコメント間の変換...
  • スーパーフィルター (保存して他のシートにフィルタ方式を適用する)。 高度な並べ替え 月/週/日、頻度などによる。 特殊フィルター 太字、斜体で...
  • ワークブックとワークシートを組み合わせる; キー列に基づいて表をマージします。 データを複数のシートに分割する; xls、xlsx、およびPDFのバッチ変換...
  • 300を超える強力な機能。 Office / Excel 2007-2019および365をサポートします。 すべての言語をサポートします。 企業または組織に簡単に展開できます。 フル機能の60日間の無料トライアル。
KTEタブ201905

OfficeタブはOfficeにタブ付きインターフェイスを提供し、作業をより簡単にします

  • Word、Excel、PowerPointでタブ付き編集と読み取りを有効にする、出版社、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を50%向上させ、毎日数百回のマウスクリックを削減します。
オフィシタブ底
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Tim · 3 months ago
    Hi,

    I've been trying to use the above code but when I try to print te code it doesn't work. I followed all above steps and it doesn't give me any errors.
    I'm using office 365. Any tips ?

    Thanks in advance,
    • To post as a guest, your comment is unpublished.
      crystal · 1 months ago
      Hi Tim,
      Hi, the selected row will be inserted into the page footer, you need to switch to the Page Layout view to check for the result. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Tim · 3 months ago
    Hi,

    When I start the macro and select the wished rows it doesn't work when I try to print. What can this be?
    Using office 365.

    Thanks,
  • To post as a guest, your comment is unpublished.
    SVazquez · 4 months ago
    Hi,
    I am trying a few times but it's not working. Please advise.
    • To post as a guest, your comment is unpublished.
      crystal · 3 months ago
      Good day,
      Thank you for your comment. Which Office version do you use?
  • To post as a guest, your comment is unpublished.
    Shakeel Rao · 1 years ago
    Thank you So Muchhhh...
    It helped me very much.
  • To post as a guest, your comment is unpublished.
    vijay · 2 years ago
    Thanks for sharing.

    is any possibility of VBA code to repeated footer same as with "print titles" option including lines and auto page number.

    if possible please help me.
  • To post as a guest, your comment is unpublished.
    Vamsi · 2 years ago
    Thanks for sharing the macro to repeat the rows at the bottom of the page.

    Can this Macro be modified to Repeat selected Rows with the format as well..
    In the provided Macro only Values are repeated at the bottom of each page, I am looking forward to copy the format as well at the bottom of the page..
  • To post as a guest, your comment is unpublished.
    Prayerson Khristi · 2 years ago
    Thanks a lot.

    This macro serves my purpose,

    Thanks to the creator and the person who had shared Macro
  • To post as a guest, your comment is unpublished.
    Prayerson Khristi · 2 years ago
    Thanks for Macro sharing. It serves my purpose. Thanks a lot.