Come ripetere le righe sopra ogni stampa tranne l'ultima pagina in Excel?
In molti casi, potrebbe essere necessario ripetere la riga di intestazione sopra ogni pagina stampata in Excel. Ma come ripetere righe sopra ogni stampa tranne l'ultima pagina? Questo articolo ti mostrerà il metodo per ottenerlo.
Ripeti le righe sopra ogni stampa tranne l'ultima pagina con il codice VBA
Ripeti le righe sopra ogni stampa tranne l'ultima pagina con il codice VBA
Puoi eseguire il codice VBA di seguito per stampare tutte le pagine con righe ripetute in alto tranne l'ultima pagina. Si prega di fare quanto segue.
1. Aprire il foglio di lavoro necessario per ripetere le righe in alto tranne l'ultima pagina, quindi premere altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA sottostante nella finestra del modulo.
VBA: ripeti le righe sopra ogni stampa tranne l'ultima pagina 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 Sub3. premi il F5 chiave per eseguire il codice, quindi un Kutool per Excel viene visualizzata la finestra di dialogo, selezionare l'intervallo di righe che è necessario ripetere sopra ogni stampa tranne l'ultima pagina, quindi fare clic sul OK pulsante. Vedi screenshot:
Quindi tutte le pagine in questo foglio di lavoro vengono stampate con determinate righe ripetute in alto tranne l'ultima pagina.
Articoli correlati:
- Come ripetere un valore di cella finché non viene visualizzato o raggiunto un nuovo valore in Excel?
- Come ripetere un carattere n volte in una cella in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
