Hoe herhaal je rijen bovenop elke afdruk behalve de laatste pagina in Excel?
In veel gevallen moet u de koptekstrij bovenaan elke afgedrukte pagina in Excel herhalen. Maar hoe herhaal je rijen bovenop elke afdruk behalve de laatste pagina? Dit artikel laat je de methode zien om dit te bereiken.
Herhaal rijen bovenaan elke afdruk behalve de laatste pagina met VBA-code
Herhaal rijen bovenaan elke afdruk behalve de laatste pagina met VBA-code
U kunt de onderstaande VBA-code uitvoeren om alle pagina's met herhaalde rijen bovenaan af te drukken, behalve de laatste pagina. Ga als volgt te werk.
1. Open het werkblad waarvoor u rijen bovenaan moet herhalen, behalve de laatste pagina, en druk op anders + F11 toetsen tegelijkertijd om het Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het modulevenster.
VBA: herhaal rijen bovenop elke afdruk behalve de laatste pagina in 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. druk de F5 sleutel om de code uit te voeren, en dan een Kutool voor Excel dialoogvenster verschijnt, selecteer het rijbereik dat u moet herhalen bovenaan elke afdruk behalve de laatste pagina, en klik vervolgens op de OK knop. Zie screenshot:
Vervolgens worden alle pagina's in dit werkblad afgedrukt met een bepaalde rij bovenaan, behalve de laatste pagina.
Gerelateerde artikelen:
- Hoe een celwaarde herhalen totdat een nieuwe waarde wordt gezien of bereikt in Excel?
- Hoe herhaal je een teken n keer in een cel in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!