Hur skriver man ut rader flera gånger längst ner på varje utskriven sida i Excel?

Som standard har Excel en funktion för användare att skriva ut rader upprepade gånger överst. Men i vissa fall kanske du föredrar att skriva ut rader upprepade gånger längst ner på sidorna istället för längst upp. Den här artikeln kommer att visa dig små knep.

Skriv ut rader upprepade gånger längst ner med VBA-kod

Skriv ut rader upprepade gånger längst ner med VBA-kod

Du kan köra nedanstående VBA-kod för att infoga den angivna raden i sidfoten på varje sida. Du kan sedan skriva ut den här raden upprepade gånger längst ned på varje utskriven sida i Excel.

1. Tryck andra + F11 samtidigt för att öppna Microsoft Visual Basic för applikation fönster.

2. I Microsoft Visual Basic för applikation dialogrutan, klicka Insert > Modulerna. Och sedan kopiera och klistra in nedanstående VBA-kod i modulfönstret.

VBA-kod: Infoga angiven rad i sidfötter på varje utskriven sida

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. tryck på F5 nyckel för att köra koden. Då dyker en Kutools för Excel-dialogruta upp, välj raden du behöver skriva ut upprepade gånger längst ner på varje utskriven sida och klicka sedan på OK knapp.

Nu läggs det angivna radinnehållet till i sidfoten på varje utskriven sida i det aktuella kalkylbladet. Du kan börja skriva ut kalkylbladet.

Anmärkningar: Om du vill skriva ut det valda innehållet upprepade gånger längst ned på varje sida i hela arbetsboken, kan du använda sidfotsfunktionen för att infoga innehållet i sidfoten på alla ark.