Как да повторя редове отгоре на всяка разпечатка, с изключение на последната страница в 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 клавиш за изпълнение на кода, след това a Kutool за Excel се появи диалогов прозорец, моля, изберете диапазона от редове, който трябва да повторите върху всяка разпечатка, с изключение на последната страница, и след това щракнете върху OK бутон. Вижте екранна снимка:
След това всички страници в този работен лист се отпечатват с определен ред, който се повтаря отгоре, с изключение на последната страница.
Свързани статии:
- Как да повторя стойност на клетка, докато не се види или достигне нова стойност в Excel?
- Как да повторя знак n пъти в клетка в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!