Excelの最後のページを除くすべての印刷出力の上に行を繰り返す方法は？

多くの場合、Excelで印刷されたすべてのページの上にヘッダー行を繰り返す必要があります。 しかし、最後のページを除くすべてのプリントアウトの上に行を繰り返すにはどうすればよいですか？ この記事では、それを実現する方法を紹介します。

VBAコードの最後のページを除くすべての印刷出力の上に行を繰り返します

VBAコードの最後のページを除くすべての印刷出力の上に行を繰り返します

以下のVBAコードを実行して、最後のページを除くすべてのページを繰り返し行で印刷できます。 次のようにしてください。

1.最後のページを除いて上に行を繰り返す必要があるワークシートを開き、を押します 他の + F11 キーを同時に開いて アプリケーション向け Microsoft Visual Basic 窓。

2。 の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール。 次に、以下のVBAコードをコピーしてモジュールウィンドウに貼り付けます。

VBA：Excelの最後のページを除くすべての印刷出力の上に行を繰り返します

Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
    If xPages > 0 Then
        With ActiveSheet.PageSetup
            .PrintTitleRows = xRg.AddressLocal
            ActiveSheet.PrintOut from:=1, To:=xPages - 1
            .PrintTitleRows = ""
             ActiveSheet.PrintOut from:=xPages, To:=xPages
        End With
    End If
End Sub

3。 プレス F5 コードを実行するためのキー、次に Excel用のKutool ダイアログボックスが表示されたら、最後のページを除くすべての印刷出力の上で繰り返す必要のある行範囲を選択して、[ OK ボタン。 スクリーンショットを参照してください：

次に、このワークシートのすべてのページが印刷され、最後のページを除いて特定の行が上に繰り返されます。

関連記事:

• Excelで新しい値が表示または到達されるまで、セルの値を繰り返すにはどうすればよいですか？
• Excelのセルで文字をn回繰り返す方法は？