Note: The other languages of the website are Google-translated. Back to English

Hvordan udskrives rækker gentagne gange i bunden af ​​hver udskrevet side i Excel?

Som standard giver Excel funktion til, at brugere kan udskrive rækker gentagne gange øverst. Men i nogle tilfælde foretrækker du måske at udskrive rækker gentagne gange nederst på siderne undtagen øverst. Denne artikel viser dig små tricks.

Udskriv rækker gentagne gange nederst med VBA-kode


Udskriv rækker gentagne gange nederst med VBA-kode

Du kan køre nedenstående VBA-kode for at indsætte den angivne række i sidefoden på hver side. Og så kan du udskrive denne række gentagne gange i bunden af ​​hver udskrevet side i Excel.

1. Trykke andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til anvendelse vindue.

2. i Microsoft Visual Basic til anvendelse vinduesdialogboks, skal du klikke indsatte > Moduler. Og derefter kopiere og indsætte nedenstående VBA-kode i modulvinduet.

VBA-kode: Indsæt den angivne række i bundfoden på hver udskrevet side

Sub MyFooter()
	Dim xTxt As String
	Dim xAddress As String
	Dim xRg As Range
	Dim xCell As Range
	On Error Resume Next
	xAddress = ActiveWindow.RangeSelection.Address
	Set xRg  = Application.InputBox("Select the row you will insert repeatedly at the bottom:", "Kutools for Excel", xAddress, , , , , 8)
	If xRg Is Nothing Then Exit Sub
		For Each xCell In xRg
			xTxt = xTxt & xCell.Value & " "
		Next
		ActiveSheet.PageSetup.LeftFooter = xTxt
	End Sub

3. Tryk på F5 nøgle for at køre koden. Derefter dukker en Kutools til Excel-dialogboks op, vælg venligst den række, du skal udskrive gentagne gange nederst på hver udskrevet side, og klik derefter på OK .

Nu føjes det angivne rækkeindhold til sidefoden på hver udskrevet side i det aktuelle regneark. Du kan begynde at udskrive regnearket.

Bemærk: Hvis du vil udskrive det valgte indhold gentagne gange nederst på hver side i hele projektmappen, kan du anvende sidefodsfunktionen for at indsætte indholdet i sidefoden på alle ark.


Gentag titlerækker let i hver nende række i Excel:

Kutools til Excel's Indsæt titlerækker værktøj kan hurtigt indsætte titlerække før hver nionde række i et valgt interval i Excel som vist nedenstående skærmbillede.
Download og prøv det nu! (30-dag gratis spor)


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
officetab bund
Sorter kommentarer efter
Kommentarer (11)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Tak for makrodeling. Det tjener mit formål. Mange tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak. Denne makro tjener mit formål, tak til skaberen og den person, der havde delt makro
Denne kommentar blev minimeret af moderatoren på webstedet
Tak fordi du deler makroen for at gentage rækkerne nederst på siden. Kan denne makro ændres til at gentage valgte rækker også med formatet.. I den medfølgende makro gentages kun værdier nederst på hver side, jeg ser frem til også at kopiere formatet nederst på siden..
Denne kommentar blev minimeret af moderatoren på webstedet
Tak fordi du delte. er enhver mulighed for VBA-kode til gentaget sidefod samme som med "udskriv titler"-indstillingen inklusive linjer og automatisk sidenummer. hvis det er muligt venligst hjælp mig.
Denne kommentar blev minimeret af moderatoren på webstedet
Tusind tak skal du have...
Det hjalp mig rigtig meget.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Jeg prøver et par gange, men det virker ikke. Rådgiv venligst.
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Tak for din kommentar. Hvilken Office-version bruger du?
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis jeg må, bruger jeg Office365, men det virker ikke. Har prøvet at sætte visningen på sidelayouttilstand uden held. Håber du kan hjælpe. Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Når jeg starter makroen og vælger de ønskede rækker, virker det ikke når jeg prøver at printe. Hvad kan dette være?
Bruger office 365.

Tak,
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

Jeg har prøvet at bruge ovenstående kode, men når jeg prøver at udskrive koden virker det ikke. Jeg fulgte alle ovenstående trin, og det giver mig ingen fejl.
Jeg bruger office 365. Nogle tips?

Tak på forhånd,
Denne kommentar blev minimeret af moderatoren på webstedet
Hej tim
Hej, den valgte række vil blive indsat i sidefoden, du skal skifte til sidelayoutvisningen for at se efter resultatet. Tak for din kommentar.
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL