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 Sub3. 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.
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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
