Как повторить строки поверх каждой распечатки, кроме последней страницы в 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 Sub

3. нажмите F5 ключ для запуска кода, затем Kutool для Excel появится диалоговое окно, выберите диапазон строк, который необходимо повторять поверх каждой распечатки, кроме последней страницы, а затем нажмите кнопку OK кнопка. Смотрите скриншот:

Затем все страницы этого рабочего листа распечатываются с повторением определенной строки сверху, кроме последней страницы.

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Статьи по теме:

• Как повторять значение ячейки, пока новое значение не будет видно или достигнуто в Excel?
• Как в Excel повторить символ n раз в ячейке?