Gå til hovedindhold

Hvordan indsættes sideskift hver x række i Excel?

Det kan være let og enkelt for dig at indsætte et sideskift i et regneark. Nogle gange er det nødvendigt at indsætte sideskift i hver X-række for at udskrive pænt, hvordan kunne du gøre? Her introducerer jeg et par metoder til at løse dette problem i Excel.


Indsæt sideskift hver X-række med VBA i Excel

Måske er du ikke fortrolig med VBA, der kører før, men med følgende trin ved du måske, hvordan du kører VBA for at indsætte et sideskift hver X-række. Her vil jeg indsætte et sideskift i hver 3 række.

1. Trykke Alt + F11 for at vise Microsoft Visual Basic til applikationer vindue.

2. Klik på i vinduet indsatte > Moduler for at vise et nyt modulvindue, kopier derefter følgende VBA-kode til modulvinduet.

VBA: Indsæt sideskift i hver X-række i et regneark.

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. Klik Kør knappen, og der vises en dialogboks, hvor du kan angive hver X-række, du vil indsætte et sideskift i. Her indsætter jeg sideskift i hver 3 række. Se skærmbillede:
doc-insert-side-break-x-rækker-1

4. Klik OK, og derefter indsætter den et sideskift i hver X-række.

Indsæt hurtigt sideskift hver (n.) Række i det aktive regneark

Normalt indsætter vi et sideskift ved at klikke Sidelayout > Pauser > Indsæt sideskift. Men på denne måde er det for kedeligt at batch indsætte flere sideskift i et regneark, f.eks. Skal du indsætte en sideskift hver række for at udskrive hver række på en separat side. Vær ikke bekymret! Kutools til Excel Indsæt sideskift hver række værktøj kan hjælpe dig med nemt at arkivere det!


annonceindsats sideskift hver række 3

Batchindsatsbrud efter hver x række med Kutools til Excel

Hvis du har installeret Kutools til Excel, er det Opdel til kolonner værktøj kan hjælpe dig med at indsætte flere sideskift efter hver x række med at holde titlen på hver side let i Excel.

Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!

1. Klik Opdel til kolonner på den Kutools Plus fane.

2. I åbningsdialogen Opdel til kolonner skal du:

(1) Klik på knappen Gennemse  i Titler rækkevidde og vælg titlerække i det angivne interval, som du batch indsætter sideskift.
(2) Klik på knappen Gennemse i Dato interval og vælg det interval, som du vil indsætte sideskift i batch.
(3) I Rækker pr. Udskrevet side i feltet, indtast et nummer. (Tip: Hvis du f.eks. Skal indsætte sideskift efter hver 3. række, skal du indtaste 3 i feltet; hvis du har brug for inerte sideskift efter hver række, skal du indtaste 1.)
(4) Indtast 1 i Antal segmenter boks.

3. Klik på Ok .

Nu vil du se, at området kopieres til et nyt regneark, og sideskift tilføjes efter hver x række med at holde rækkevidde. Du kan også skifte til visning af visning af sideskift ved at klikke på Specifikation > Eksempel på sideskift for at se disse sideskift. Se nedenstående skærmbillede.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu


Indsæt sideskift efter hver x række med Kutools til Excel

Kutools til Excel udvikler et nyt Insert Page Break Every Row-værktøj, der er specialiseret i at indsætte sideskift efter hver x række med lethed.

Kutools til Excel - Pakket med over 300 vigtige værktøjer til Excel. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Download nu!

1. Vælg det interval, som du vil indsætte sideskift efter hver x række, og klik på Trykning > Indsæt sideskift hver række på den Kutools Plus fane.

2. I dialogboksen Indsæt sideskift hver række skal du angive intervallet for rækker, som du vil indsætte sideskift ved, og klikke på Ok .

Derefter vil du se sideskift indsættes med det angivne række interval på én gang.

Kutools til Excel - Supercharge Excel med over 300 vigtige værktøjer. Nyd en 30-dages GRATIS prøveperiode uden behov for kreditkort! Hent den nu


Demo: indsæt sideskift hver x række i Excel


Kutools til Excel: Over 300 praktiske værktøjer lige ved hånden! Start din 30-dages gratis prøveperiode uden funktionsbegrænsninger i dag. Hent nu!

Relative artikler:

Bedste kontorproduktivitetsværktøjer

🤖 Kutools AI Aide: Revolutionér dataanalyse baseret på: Intelligent udførelse   |  Generer kode  |  Opret brugerdefinerede formler  |  Analyser data og generer diagrammer  |  Aktiver Kutools funktioner...
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øjer (tilføje tekst, Fjern tegn, ...)   |   50 + Chart Typer (Gantt kort, ...)   |   40+ Praktisk formler (Beregn alder baseret på fødselsdag, ...)   |   19 Indsættelse Værktøjer (Indsæt QR-kode, Indsæt billede fra sti, ...)   |   12 Konvertering Værktøjer (Tal til ord, Valutaomregning, ...)   |   7 Flet og del Værktøjer (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...

Beskrivelse


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 (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Dear extendoffice.com
I would like to send feedback about feature: Print > Insert Page Break Every Row.

VBA Code:
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


When you use this function, you can only enter one variables is xRow.
So this feature will be almost useless because it is not flexible. Not all data start from Row 1, not to mention data usually is table and has Header row.

I think this feature should have another variable is xFirstRow, so that you can define the first row of data:
xFirstRow = Application.InputBox("First Row", xTitleId, "", Type:=1)

And the formula should be:
For i = xFirstRow + xRow + 1 To xLastrow Step xRow

Hopefully this feature will be upgraded in later versions.
Thanks,
Tuyen
This comment was minimized by the moderator on the site
Hi, Thanks a lot for the code. But when I press Cancel or x on the input box; the excel file crashes. Can you please help to resolve this issue.
This comment was minimized by the moderator on the site
Thanks a lot from Istanbul / Turkey :)
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations