Πώς να επαναλάβετε σειρές πάνω από κάθε εκτύπωση εκτός από την τελευταία σελίδα στο Excel;
Σε πολλές περιπτώσεις, ίσως χρειαστεί να επαναλάβετε τη γραμμή κεφαλίδας πάνω από κάθε εκτυπωμένη σελίδα στο Excel. Αλλά πώς να επαναλάβετε σειρές πάνω από κάθε εκτύπωση εκτός από την τελευταία σελίδα; Αυτό το άρθρο θα σας δείξει τη μέθοδο για να το επιτύχετε.
Επαναλάβετε τις σειρές πάνω από κάθε εκτύπωση εκτός από την τελευταία σελίδα με τον κώδικα VBA
Επαναλάβετε τις σειρές πάνω από κάθε εκτύπωση εκτός από την τελευταία σελίδα με τον κώδικα VBA
Μπορείτε να εκτελέσετε τον παρακάτω κώδικα VBA για να εκτυπώσετε όλες τις σελίδες με επαναλαμβανόμενες σειρές στην κορυφή εκτός από την τελευταία σελίδα. Κάντε τα εξής:
1. Ανοίξτε το φύλλο εργασίας που πρέπει να επαναλάβετε σειρές στην κορυφή εκτός από την τελευταία σελίδα και, στη συνέχεια, πατήστε άλλος + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο Module.
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 για να εκτελέσετε τον κωδικό και μετά Kutool για Excel εμφανίζεται το παράθυρο διαλόγου, επιλέξτε το εύρος σειρών που πρέπει να επαναλάβετε πάνω από κάθε εκτύπωση εκτός από την τελευταία σελίδα και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
Στη συνέχεια, όλες οι σελίδες σε αυτό το φύλλο εργασίας εκτυπώνονται με συγκεκριμένη σειρά να επαναλαμβάνεται στην κορυφή εκτός από την τελευταία σελίδα.
Σχετικά Άρθρα:
- Πώς να επαναλάβετε μια τιμή κελιού μέχρι να εμφανιστεί ή να επιτευχθεί νέα τιμή στο Excel;
- Πώς να επαναλάβετε έναν χαρακτήρα n φορές σε ένα κελί στο Excel;
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!