Jak powtórzyć wiersze na górze każdego wydruku z wyjątkiem ostatniej strony w programie Excel?
W wielu przypadkach może być konieczne powtórzenie wiersza nagłówka na górze każdej drukowanej strony w programie Excel. Ale jak powtórzyć wiersze na górze każdego wydruku z wyjątkiem ostatniej strony? Ten artykuł pokaże Ci, jak to osiągnąć.
Powtórz wiersze na górze każdego wydruku z wyjątkiem ostatniej strony z kodem VBA
Powtórz wiersze na górze każdego wydruku z wyjątkiem ostatniej strony z kodem VBA
Możesz uruchomić poniższy kod VBA, aby wydrukować wszystkie strony z powtarzającymi się wierszami u góry, z wyjątkiem ostatniej strony. Wykonaj następujące czynności.
1. Otwórz arkusz roboczy, w którym chcesz powtórzyć wiersze na górze z wyjątkiem ostatniej strony, a następnie naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
VBA: Powtórz wiersze na górze każdego wydruku z wyjątkiem ostatniej strony w programie 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. wciśnij F5 klucz do uruchomienia kodu, a następnie a Kutool dla programu Excel pojawi się okno dialogowe, wybierz zakres wierszy, który chcesz powtórzyć na górze każdego wydruku z wyjątkiem ostatniej strony, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie wszystkie strony w tym arkuszu są drukowane z powtarzającym się wierszem u góry, z wyjątkiem ostatniej strony.
Powiązane artykuły:
- Jak powtórzyć wartość komórki, aż nowa wartość zostanie wyświetlona lub osiągnięta w programie Excel?
- Jak powtórzyć znak n razy w komórce w programie Excel?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!