Hogyan lehet megismételni a sorokat minden nyomtatás tetején, kivéve az Excel utolsó oldalát?
Sok esetben előfordulhat, hogy meg kell ismételnie a fejléc sort az Excel minden nyomtatott oldalának tetején. De hogyan lehet megismételni a sorokat minden nyomtatás tetején, kivéve az utolsó oldalt? Ez a cikk bemutatja az elérés módját.
Ismételje meg a sorokat minden nyomtatás tetején, kivéve az utolsó oldalt VBA kóddal
Ismételje meg a sorokat minden nyomtatás tetején, kivéve az utolsó oldalt VBA kóddal
Az alábbi VBA-kód futtatásával az összes oldal kinyomtatható, felül a megismételt sorokkal, kivéve az utolsó oldalt. Kérjük, tegye a következőket.
1. Nyissa meg azt a munkalapot, amelyen meg kell ismételni a sorokat a tetején, kivéve az utolsó oldalt, majd nyomja meg a gombot más + F11 gombok egyszerre a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja és illessze be az alábbi VBA kódot a Modul ablakba.
VBA: Ismételje meg a sorokat minden nyomtatás tetején, kivéve az Excel utolsó oldalát
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. megnyomni a F5 gombot a kód futtatásához, majd a Kutool az Excel számára megjelenik a párbeszédpanel, válassza ki az ismételni kívánt sortartományt minden nyomtatás tetején, kivéve az utolsó oldalt, majd kattintson a OK gomb. Lásd a képernyőképet:
Ezután a munkalap összes oldalát kinyomtatják, bizonyos sorok ismétlődnek a tetején, kivéve az utolsó oldalt.
Kapcsolódó cikkek:
- Hogyan ismételjük meg a cellaértéket, amíg új értéket nem látunk vagy el nem érünk az Excelben?
- Hogyan lehet megismételni egy karaktert n-szer az Excel cellájában?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
