Як повторити рядки поверх кожного роздруківки, крім останньої сторінки в Excel?
У багатьох випадках вам може знадобитися повторити рядок заголовка поверх кожної друкованої сторінки в Excel. Але як повторити рядки поверх кожного роздруківки, крім останньої сторінки? Ця стаття покаже вам спосіб її досягнення.
Повторіть рядки поверх кожного роздруківки, крім останньої сторінки, з кодом VBA
Повторіть рядки поверх кожного роздруківки, крім останньої сторінки, з кодом VBA
Ви можете запустити наведений нижче код VBA, щоб надрукувати всі сторінки з повторюваними рядками зверху, крім останньої. Будь ласка, виконайте наступне.
1. Відкрийте робочий аркуш, в якому потрібно повторити рядки, крім останньої сторінки, а потім натисніть інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте наведений нижче код VBA у вікно модуля.
VBA: Повторіть рядки поверх кожного роздруківки, крім останньої сторінки в Excel
Sub RepeatRowsExceptLastPage()
Dim xPages As Long, I As Integer, xRg As Range
On Error Resume Next
xPages = ActiveSheet.PageSetup.Pages.Count
Set xRg = Application.InputBox("Please select a row you need to repeat:", "Kutools for Excel", , , , , , Type:=8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
If xPages > 0 Then
With ActiveSheet.PageSetup
.PrintTitleRows = xRg.AddressLocal
ActiveSheet.PrintOut from:=1, To:=xPages - 1
.PrintTitleRows = ""
ActiveSheet.PrintOut from:=xPages, To:=xPages
End With
End If
End Sub
3 Натисніть кнопку F5 клавіша для запуску коду, потім a Kutool для Excel спливає діалогове вікно, виберіть діапазон рядків, який потрібно повторити поверх кожного роздруківки, крім останньої сторінки, а потім натисніть OK кнопку. Дивіться знімок екрана:
Потім усі сторінки цього аркуша друкуються з певним рядком, що повторюється зверху, крім останньої сторінки.
Статті по темі:
- Як повторити значення клітинки, доки в Excel не з’явиться чи не з’явиться нове значення?
- Як повторити символ n разів у комірці в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!