Перейти до основного матеріалу

Як неодноразово друкувати рядки внизу кожної друкованої сторінки в Excel?

За замовчуванням Excel надає можливість користувачам неодноразово друкувати рядки вгорі. Але в деяких випадках, ви можете віддати перевагу надрукувати рядки неодноразово внизу сторінок, крім верхньої. Ця стаття покаже вам маленькі хитрощі.

Друкуйте рядки кілька разів унизу з кодом VBA


Друкуйте рядки кілька разів унизу з кодом VBA

Ви можете запустити наведений нижче код VBA, щоб вставити зазначений рядок у нижній колонтитул кожної сторінки. А потім ви можете надрукувати цей рядок кілька разів унизу кожної друкованої сторінки в Excel.

1. прес інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для програми вікна.

2 В Microsoft Visual Basic для програми у вікні діалогового вікна натисніть Insert > Модулі. А потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.

Код VBA: Вставте вказаний рядок у колонтитули кожної друкованої сторінки

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 Натисніть кнопку F5 ключ для запуску коду. Після цього з’явиться діалогове вікно Kutools для Excel, унизу кожної надрукованої сторінки виберіть рядок, який потрібно друкувати повторно, а потім натисніть кнопку OK кнопки.

Тепер зазначений вміст рядка додається до нижнього колонтитула кожної друкованої сторінки на поточному аркуші. Ви можете розпочати друк робочого аркуша.

примітки: Якщо ви хочете надрукувати вибраний вміст повторно внизу кожної сторінки в межах усієї книги, ви можете застосувати функцію нижнього колонтитула, щоб вставити вміст у нижній колонтитул усіх аркушів.


Легко повторити заголовки в кожному n-му рядку в Excel:

Kutools для Excel's Вставити рядки заголовків Утиліта може допомогти вам швидко вставити рядок заголовка перед кожним n-м рядком у вибраному діапазоні в Excel, як показано на скріншоті нижче.
Завантажте та спробуйте зараз! (30 днів безкоштовно)

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
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