Как повторять строки вверху каждой распечатанной страницы в Excel, за исключением последней?
Во многих случаях возникает необходимость повторять строку заголовка вверху каждой распечатанной страницы в Excel. Но как настроить повторение строк вверху каждой страницы, кроме последней? В этой статье описан способ достижения такого результата.
Повтор строк вверху каждого распечатанного документа, за исключением Последняя страница, с помощью кода VBA
Вы можете запустить приведённый ниже код VBA, чтобы напечатать все страницы с повторяющимися строками вверху, за исключением последней страницы. Выполните следующие действия.
1. Откройте лист, на котором нужно повторять строки вверху, кроме последней страницы, затем одновременно нажмите клавиши Alt+F11, чтобы открыть окно Microsoft Visual Basic for Applications.
2. В окне Microsoft Visual Basic for Applications выберите Insert > Module, затем скопируйте и вставьте приведённый ниже код 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, чтобы выполнить код. После этого откроется диалоговое окно Kutools for Excel. Укажите диапазон строк, которые нужно повторять вверху каждой распечатанной страницы, за исключением последней — для этого снимите галочку с пункта «Последняя страница» и нажмите кнопку OK. См. снимок экрана:
Затем все страницы этого листа будут распечатаны с определённой повторяющейся строкой вверху, за исключением последней страницы.
Раскройте магию Excel с помощью KUTOOLS AI
- Интеллектуальное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это доступно через простые команды.
- Пользовательские формулы: создавайте индивидуальные формулы для оптимизации рабочих процессов.
- Программирование на VBA: Пишите и внедряйте код VBA легко и без усилий.
- Анализ формул: Легко разбирайтесь даже в самых сложных формулах.
- Перевод текста: Ломайте языковые барьеры прямо в ваших таблицах.
Связанные статьи:
- Как повторять значение ячейки до появления нового значения в Excel?
- Как повторить символ n раз в ячейке Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек