Salt la conținutul principal

Cum se imprimă rânduri în mod repetat în partea de jos a fiecărei pagini tipărite în Excel?

În mod implicit, Excel oferă funcției pentru utilizatori de a imprima rânduri în mod repetat în partea de sus. Dar, în unele cazuri, este posibil să preferați să imprimați rânduri în mod repetat în partea de jos a paginilor, cu excepția celor din partea de sus. Acest articol vă va arăta mici trucuri.

Imprimați rânduri în mod repetat în partea de jos cu codul VBA


Imprimați rânduri în mod repetat în partea de jos cu codul VBA

Puteți rula codul VBA de mai jos pentru a insera rândul specificat în subsolul fiecărei pagini. Și apoi puteți imprima acest rând în mod repetat în partea de jos a fiecărei pagini tipărite în Excel.

1. presa Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicație fereastră.

2. În Microsoft Visual Basic pentru aplicație fereastră de dialog fereastră, faceți clic pe Insera > Module. Și apoi copiați și lipiți codul VBA de mai jos în fereastra Module.

Cod VBA: introduceți rândul specificat în subsolurile fiecărei pagini tipărite

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. apasă pe F5 tasta pentru a rula codul. Apoi apare o casetă de dialog Kutools pentru Excel, selectați rândul pe care trebuie să îl imprimați în mod repetat în partea de jos a fiecărei pagini tipărite, apoi faceți clic pe OK butonul.

Acum, conținutul rândului specificat este adăugat la subsolul fiecărei pagini tipărite în foaia de lucru curentă. Puteți începe să imprimați foaia de lucru.

notițe: Dacă doriți să imprimați conținutul selectat în mod repetat în partea de jos a fiecărei pagini din întregul registru de lucru, puteți aplica funcția subsol pentru a insera conținutul în subsolul tuturor foilor.


Repetați cu ușurință rândurile de titlu în fiecare al nouălea rând din Excel:

Kutools pentru Excel's Introduceți rândurile de titlu utilitarul vă poate ajuta să inserați rapid rândul de titlu înainte de fiecare al nouălea rând dintr-un interval selectat în Excel, după cum se arată în imaginea de mai jos.
Descărcați și încercați acum! (traseu gratuit de 30 de zile)

Cele mai bune instrumente de productivitate de birou

🤖 Kutools AI Aide: Revoluționați analiza datelor pe baza: Execuție inteligentă   |  Generați codul  |  Creați formule personalizate  |  Analizați datele și generați diagrame  |  Invocați funcțiile Kutools...
Caracteristici populare: Găsiți, evidențiați sau identificați duplicatele   |  Ștergeți rândurile goale   |  Combinați coloane sau celule fără a pierde date   |   Rundă fără Formula ...
Super căutare: VLookup cu mai multe criterii    VLookup cu valori multiple  |   VLookup pe mai multe foi   |   Căutare fuzzy ....
Listă derulantă avansată: Creați rapid o listă derulantă   |  Listă drop-down dependentă   |  Listă derulantă cu selectare multiplă ....
Manager de coloane: Adăugați un număr specific de coloane  |  Mutați coloanele  |  Comutați starea vizibilității coloanelor ascunse  |  Comparați intervale și coloane ...
Caracteristici prezentate: Focus pe grilă   |  Vedere de proiectare   |   Big Formula Bar    Manager registru de lucru și foi   |  Biblioteca de resurse (Text automat)   |  Data Picker   |  Combinați foi de lucru   |  Criptare/Decriptare celule    Trimiteți e-mailuri după listă   |  Super Filtru   |   Filtru special (filtrează bold/italic/barat...) ...
Top 15 seturi de instrumente12 Text Instrumente (Adăuga text, Eliminați caractere,...)   |   50+ Diagramă Tipuri de (Gantt Chart,...)   |   40+ Practic Formule (Calculați vârsta pe baza zilei de naștere,...)   |   19 inserare Instrumente (Introduceți codul QR, Inserați imaginea din cale,...)   |   12 Convertire Instrumente (Numere la cuvinte, conversie valutara,...)   |   7 Merge & Split Instrumente (Rânduri combinate avansate, Celule divizate,...)   |   ... și altele

Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp.  Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...

Descriere


Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

  • Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
  • Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
  • Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!
Comments (11)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I've been trying to use the above code but when I try to print te code it doesn't work. I followed all above steps and it doesn't give me any errors.
I'm using office 365. Any tips ?

Thanks in advance,
This comment was minimized by the moderator on the site
Hi Tim,
Hi, the selected row will be inserted into the page footer, you need to switch to the Page Layout view to check for the result. Thank you for your comment.
This comment was minimized by the moderator on the site
Hi,

When I start the macro and select the wished rows it doesn't work when I try to print. What can this be?
Using office 365.

Thanks,
This comment was minimized by the moderator on the site
Hi,
I am trying a few times but it's not working. Please advise.
This comment was minimized by the moderator on the site
Good day,
Thank you for your comment. Which Office version do you use?
This comment was minimized by the moderator on the site
If I may, I use Office365 but its not working. Have tried putting the view on Page Layout Mode to no avail. Hope you can help. Thanks.
This comment was minimized by the moderator on the site
Thank you So Muchhhh...
It helped me very much.
This comment was minimized by the moderator on the site
Thanks for sharing. is any possibility of VBA code to repeated footer same as with "print titles" option including lines and auto page number. if possible please help me.
This comment was minimized by the moderator on the site
Thanks for sharing the macro to repeat the rows at the bottom of the page. Can this Macro be modified to Repeat selected Rows with the format as well.. In the provided Macro only Values are repeated at the bottom of each page, I am looking forward to copy the format as well at the bottom of the page..
This comment was minimized by the moderator on the site
Thanks a lot. This macro serves my purpose, Thanks to the creator and the person who had shared Macro
This comment was minimized by the moderator on the site
Thanks for Macro sharing. It serves my purpose. Thanks a lot.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations