Как повторить строки поверх каждой распечатки, кроме последней страницы в Excel?
Во многих случаях вам может потребоваться повторить строку заголовка поверх каждой распечатанной страницы в Excel. Но как повторить строки поверх каждой распечатки, кроме последней страницы? Эта статья покажет вам, как этого добиться.
Повторять строки поверх каждой распечатки, кроме последней страницы с кодом VBA
Повторять строки поверх каждой распечатки, кроме последней страницы с кодом VBA
Вы можете запустить приведенный ниже код VBA для печати всех страниц с повторяющимися строками вверху, кроме последней страницы. Пожалуйста, сделайте следующее.
1. Откройте рабочий лист, в котором нужно повторить строки сверху, кроме последней страницы, затем нажмите другой + F11 клавиши одновременно, чтобы открыть Microsoft Visual Basic для приложений окно.
2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте и вставьте приведенный ниже код 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 Sub3. нажмите F5 ключ для запуска кода, затем Kutool для Excel появится диалоговое окно, выберите диапазон строк, который необходимо повторять поверх каждой распечатки, кроме последней страницы, а затем нажмите кнопку OK кнопка. Смотрите скриншот:
Затем все страницы этого рабочего листа распечатываются с повторением определенной строки сверху, кроме последней страницы.
Статьи по теме:
- Как повторять значение ячейки, пока новое значение не будет видно или достигнуто в Excel?
- Как в Excel повторить символ n раз в ячейке?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
