Gå til hovedindhold

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:

Bedste kontorproduktivitetsværktøjer

Populære funktioner: Find, fremhæv eller identificer dubletter   |  Slet tomme rækker   |  Kombiner kolonner eller celler uden at miste data   |   Runde uden formel ...
Super opslag: VLookup med flere kriterier    Multiple Value VLookup  |   VOpslag på tværs af flere ark   |   Fuzzy Lookup ....
Avanceret rulleliste: Opret hurtigt rulleliste   |  Afhængig rulleliste   |  Multivælg rulleliste ....
Column Manager: Tilføj et bestemt antal kolonner  |  Flyt kolonner  |  Skift synlighedsstatus for skjulte kolonner  |  Sammenlign områder og kolonner ...
Fremhævede funktioner: Grid fokus   |  Designvisning   |   Stor Formel Bar    Arbejdsbog & Ark Manager   |  Ressourcebibliotek (Autotekst)   |  Datovælger   |  Kombiner regneark   |  Krypter/Dekrypter celler    Send e-mails efter liste   |  Superfilter   |   Specielt filter (filter fed/kursiv/gennemstreget...) ...
Top 15 værktøjssæt12 tekst Værktøj (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøj (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøj (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøj (Avancerede kombinere rækker, Opdel celler, ...)   |   ... og mere

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...

kte-fane 201905


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!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In the old Lotus 1-2-3 application, this was easily performed by inserting double colons (::) in the top left most cell (A1) of the sheet where you did not want a header or row repeat. Why can't Microsoft do something just as simple? This should be a built-in process that could be enabled with a single click of the mouse. Why all this complication????
This comment was minimized by the moderator on the site
Hello,


How can i modify the code to export the file to pdf using the same principles instead of printing the document?


Thank you
This comment was minimized by the moderator on the site
Yeah... You would have to export to two .pdfs with different names, then combine those two pdfs (in Adobe?)... I'm in the same boat. Is there a way to automate this last step (via Excel?)? The last page of my exported pdf doesn't require a header.
This comment was minimized by the moderator on the site
Yeah... You would have to export to two .pdfs with different names, then combine those two pdfs (in Adobe?)... I'm in the same boat. Is there a way to automate this last step (via Excel?)? The last page of my exported pdf doesn't require a header.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations