Misschien ben je niet eerder bekend met het draaien van VBA, maar met de volgende stappen weet je misschien hoe je de VBA moet uitvoeren om elke X-rij een pagina-einde in te voegen. Hier zal ik een pagina-einde invoegen in elke 3 rijen.

1. pers Alt + F11 om de Microsoft Visual Basic voor toepassingen venster.

2. Klik in het venster op Invoegen > Module om een ​​nieuw modulevenster weer te geven en kopieer vervolgens de volgende VBA-code naar het modulevenster.

VBA: voeg een pagina-einde in elke X-rij in een werkblad in.

Sub InsertPageBreaks()
'Updateby20140618
Dim xLastrow As Long
Dim xWs As Worksheet
Set xWs = Application.ActiveSheet
xRow = Application.InputBox("Row", xTitleId, "", Type:=1)
xWs.ResetAllPageBreaks
xLastrow = xWs.Range("A1").SpecialCells(xlCellTypeLastCell).Row
For i = xRow + 1 To xLastrow Step xRow
    xWs.HPageBreaks.Add Before:=xWs.Cells(i, 1)
Next
End Sub

3. Klikken lopen en er verschijnt een dialoogvenster waarin u elke X-rij kunt specificeren waarin u een pagina-einde wilt invoegen. Hier voeg ik pagina-einde in elke 3 rijen in. Zie screenshot:

4. Klikken OK, en dan zal het een pagina-einde invoegen in elke X-rij.

Voeg snel een pagina-einde in op elke (n-de) rij in een actief werkblad

Normaal gesproken voegen we een pagina-einde in door te klikken Pagina layout > Breaks > Pagina-einde invoegen. Maar op deze manier is het te vervelend om batchgewijs meerdere pagina-einden in een werkblad in te voegen, zoals dat u elke rij een pagina-einde moet invoegen om elke rij op een afzonderlijke pagina af te drukken. Maak je geen zorgen! Kutools voor Excel's Voeg pagina-einde in elke rij in hulpprogramma kan u helpen het gemakkelijk te archiveren! Gratis proefversie met volledige functionaliteit 30 dagen!

Als u Kutools voor Excel hebt geïnstalleerd, is het Splitsen in kolommen hulpprogramma kan u helpen bij het batchgewijs invoegen van meerdere pagina-einden na elke x-rij door de titel op elke pagina eenvoudig in Excel te houden.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Nu gratis proberen!

1. Klikken Splitsen in kolommen op de Kutools Plus Tab.

2. In het dialoogvenster Splitsen naar kolommen openen, moet u:

(1) Klik op de knop Bladeren  functie in het Titels bereik vak en selecteer de titelrij in het opgegeven bereik waarin u batchgewijs pagina-einden wilt invoegen.
(2) Klik op de knop Bladeren functie in het Datumbereik vak en selecteer het bereik waarin u batchgewijs pagina-einden wilt invoegen.
(3) In de Rijen per afgedrukte pagina vak, voer een nummer in. (Tip: Als u bijvoorbeeld pagina-einden na elke 3 rijen moet invoegen, voert u 3 in het vak in; als u pagina-einden na elke rij inert wilt maken, voert u 1 in.)
(4) Voer 1 in in het Aantal segmenten doos.

3. Klik op de Ok knop.

Nu zult u zien dat het bereik naar een nieuw werkblad wordt gekopieerd en dat pagina-einden worden toegevoegd na elke x rijen met behoud van de bereiktitel. U kunt ook overschakelen naar de weergave Pagina-einde-voorbeeld door op te klikken Bekijk > Pagina-einde voorbeeld om deze pagina-einden te zien. Zie onderstaande schermafbeelding.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu

Kutools voor Excel ontwikkelt een ander hulpprogramma Pagina-einde elke rij invoegen, gespecialiseerd in het gemakkelijk invoegen van pagina-einden na elke x rijen.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Nu gratis proberen!

1. Selecteer het bereik waarin u pagina-einden wilt invoegen na elke x rijen en klik op Printen > Voeg pagina-einde in elke rij in op de Kutools Plus Tab.

2. Geef in het openingsdialoogvenster Pagina-einde elke rij invoegen het interval van rijen op waarin u pagina-einden wilt invoegen en klik op de Ok knop.

Vervolgens zult u zien dat pagina-einden met het opgegeven interval van rijen tegelijk worden ingevoegd.

Kutools for Excel - Bevat meer dan 300 handige tools voor Excel. Gratis proefperiode van 30 dagen met volledige functionaliteit, geen creditcard vereist! Snap het nu