Hur upprepar man rader ovanpå varje utskrift utom den sista sidan i Excel?

I många fall kan du behöva upprepa rubrikraden ovanpå varje utskriven sida i Excel. Men hur ska man upprepa rader ovanpå varje utskrift utom den sista sidan? Den här artikeln visar metod för att uppnå det.

Upprepa raderna ovanpå varje utskrift utom den sista sidan med VBA-kod

Upprepa raderna ovanpå varje utskrift utom den sista sidan med VBA-kod

Du kan köra nedanstående VBA-kod för att skriva ut alla sidor med upprepade rader överst utom den sista sidan. Gör så här.

1. Öppna kalkylbladet som du behöver för att upprepa rader på toppen utom den sista sidan och tryck sedan på andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna. Kopiera och klistra in nedanstående VBA-kod i modulfönstret.

VBA: Upprepa raderna ovanpå varje utskrift utom den sista sidan 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. tryck på F5 nyckel för att köra koden, sedan a Kutool för Excel dialogrutan dyker upp, välj det radintervall du behöver upprepa ovanpå varje utskrift utom den sista sidan och klicka sedan på OK knapp. Se skärmdump:

Sedan skrivs alla sidor i detta kalkylblad ut med vissa rader upprepa ovanför den sista sidan.

Lås upp Excel Magic med Kutools AI

• Smart utförande: Utför celloperationer, analysera data och skapa diagram – allt drivs av enkla kommandon.
• Anpassade formler: Skapa skräddarsydda formler för att effektivisera dina arbetsflöden.
• VBA-kodning: Skriv och implementera VBA-kod utan ansträngning.
• Formeltolkning: Förstå komplexa formler med lätthet.
• Textöversättning: Bryt språkbarriärerna i dina kalkylblad.

Förbättra dina Excel-funktioner med AI-drivna verktyg. Hämta hem nu och upplev effektivitet som aldrig förr!

Relaterade artiklar:

• Hur upprepar man ett cellvärde tills nytt värde visas eller nås i Excel?
• Hur upprepar jag ett tecken n gånger i en cell i Excel?