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.