Hvordan gentager man rækker oven på hver udskrift undtagen den sidste side i Excel?

I mange tilfælde skal du muligvis gentage overskriftsrækken oven på hver udskrevne side i Excel. Men hvordan gentager man rækker oven på hver udskrift undtagen den sidste side? Denne artikel viser dig metode til at opnå det.

Gentag rækker oven på hver udskrift undtagen den sidste side med VBA-kode

Gentag rækker oven på hver udskrift undtagen den sidste side med VBA-kode

Du kan køre nedenstående VBA-kode for at udskrive alle sider med gentagne rækker øverst undtagen den sidste side. Gør som følger.

1. Åbn det regneark, du skal gentage rækker på toppen undtagen den sidste side, og tryk derefter på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.

VBA: Gentag rækker oven på hver udskrift undtagen den sidste side i 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. Tryk på F5 nøgle for at køre koden, derefter a Kutool til Excel dialogboksen dukker op, skal du vælge det rækkeområde, du skal gentage oven på hver udskrift undtagen den sidste side, og klik derefter på OK knap. Se skærmbillede:

Derefter udskrives alle siderne i dette regneark med en bestemt række gentaget øverst undtagen den sidste side.

Relaterede artikler:

• Hvordan gentager man en celleværdi, indtil den nye værdi ses eller nås i Excel?
• Hvordan gentages et tegn n gange i en celle i Excel?