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 Sub3. 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?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
