Wie kann man Zeilen über jedem Ausdruck außer der letzten Seite in Excel wiederholen?
In vielen Fällen müssen Sie möglicherweise die Kopfzeile über jeder gedruckten Seite in Excel wiederholen. Aber wie kann man Zeilen über jedem Ausdruck außer der letzten Seite wiederholen? Dieser Artikel zeigt Ihnen die Methode, um dies zu erreichen.
Wiederholen Sie die Zeilen über jedem Ausdruck mit Ausnahme der letzten Seite mit VBA-Code
Wiederholen Sie die Zeilen über jedem Ausdruck mit Ausnahme der letzten Seite mit VBA-Code
Sie können den folgenden VBA-Code ausführen, um alle Seiten mit wiederholten Zeilen oben außer der letzten Seite zu drucken. Bitte gehen Sie wie folgt vor.
1. Öffnen Sie das Arbeitsblatt, das Sie benötigen, um die Zeilen oben mit Ausnahme der letzten Seite zu wiederholen, und drücken Sie dann Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA: Wiederholen Sie die Zeilen über jedem Ausdruck mit Ausnahme der letzten Seite in 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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes, dann a Kutool für Excel Das Dialogfeld wird angezeigt. Wählen Sie den Zeilenbereich aus, den Sie über jedem Ausdruck mit Ausnahme der letzten Seite wiederholen möchten, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Dann werden alle Seiten in diesem Arbeitsblatt ausgedruckt, wobei eine bestimmte Zeile mit Ausnahme der letzten Seite oben wiederholt wird.
In Verbindung stehende Artikel:
- Wie kann man einen Zellenwert wiederholen, bis ein neuer Wert in Excel angezeigt oder erreicht wird?
- Wie kann man ein Zeichen n-mal in einer Zelle in Excel wiederholen?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!