Μετάβαση στο κύριο περιεχόμενο

Πώς να εκτυπώσετε μόνο σειρές / κελιά με δεδομένα στο Excel;

Κατά την εκτύπωση ενός εύρους ή ενός φύλλου εργασίας στο Excel, εκτυπώνονται επίσης μερικές κενές σειρές ή κενά κελιά και καταλαμβάνουν κενά σε χαρτιά. Αυτό το άρθρο μιλάει για το πώς να αγνοήσετε όλες τις κενές γραμμές / κελιά και να εκτυπώσετε μόνο σειρές / κελιά με δεδομένα στο Excel.

Εκτυπώστε μόνο σειρές με δεδομένα από το VBA στο Excel

Εκτυπώστε μόνο σειρές με δεδομένα καταργώντας κενές γραμμές στο Excel

Εκτυπώστε μόνο κελιά με δεδομένα αντιγράφοντας κελιά με δεδομένα σε ένα νέο φύλλο στο Excel

Μαζική εκτύπωση πολλών μη κενών σειρών με παράβλεψη κενών γραμμών στο Excel

Kutools για Excel Εκτύπωση Οδηγού πολλαπλών επιλογών μπορεί να σας βοηθήσει όχι μόνο να εκτυπώσετε εύκολα πολλές επιλογές από το ίδιο φύλλο εργασίας, αλλά και να εκτυπώσετε εύκολα πολλές περιοχές από πολλά φύλλα εργασίας.

διαφήμιση εκτύπωσης πολλαπλών επιλογών 2


Αυτή η μέθοδος θα εισαγάγει ένα VBA για γρήγορη εκτύπωση σειρών με δεδομένα μόνο σε ένα καθορισμένο εύρος στο Excel. Κάντε τα εξής:

1. Πάτα το άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications.

2. κλικ Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο νέο παράθυρο ανοίγματος Module.

VBA: Εκτύπωση μόνο σειρών με δεδομένα στο Excel

Sub PrintSummary()
Dim xRg As Range, xRg1 As Range, xCell As Range
Dim xSht As Worksheet
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the range to print:", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "You can't select multiple selections", , "Kutools for Excel"
Exit Sub
End If
Application.DisplayAlerts = False
Application.ScreenUpdating = False
Set xSht = Worksheets.Add(After:=Sheets(Sheets.Count))
xRg.Copy xSht.Range("A1")
Set xRg1 = xSht.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)
For Each xCell In xRg1.Columns(1).Cells
If Application.WorksheetFunction.CountA(xCell.EntireRow) = 0 Then
xCell.EntireRow.Hidden = True
End If
Next
xSht.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
xSht.Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

3. Πάτα το F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

4. Στο παράθυρο διαλόγου Kutools for Excel που ανοίγει, καθορίστε το εύρος που θέλετε να αγνοήσετε κενές γραμμές και εκτυπώστε μόνο σειρές με δεδομένα και κάντε κλικ στο OK κουμπί.

Στη συνέχεια, το καθορισμένο εύρος εκτυπώνεται αμέσως αγνοώντας όλες τις κενές σειρές.

Note: Αυτό το VBA δεν υποστηρίζει πολλές επιλογές εκτύπωσης κατά παρτίδες αγνοώντας τις κενές σειρές.


Αυτή η μέθοδος εισάγει το Kutools για Excel Διαγραφή κενών γραμμών βοηθητικό πρόγραμμα για να διαγράψετε όλα τα κενά κελιά στο ενεργό φύλλο εργασίας ή στο επιλεγμένο εύρος και, στη συνέχεια, να εκτυπώσετε αυτές τις σειρές με δεδομένα μόνο στο Excel. Κάντε τα εξής:

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

1. Μεταβείτε στο φύλλο εργασίας που θα εκτυπώσετε σειρές με δεδομένα μόνο και κάντε κλικ Kutools > Διαγραφή > Διαγραφή κενών γραμμών > Στο ενεργό φύλλο. Δείτε το στιγμιότυπο οθόνης:

Note: Για εκτύπωση σειρών με δεδομένα μόνο σε ένα καθορισμένο εύρος, επιλέξτε πρώτα αυτό το εύρος και, στη συνέχεια, κάντε κλικ στο Kutools > Διαγραφή > Διαγραφή κενών γραμμών > Σε επιλεγμένο εύρος.

2. Θα εμφανιστεί ένα παράθυρο διαλόγου Kutools για Excel και θα σας δείξει πόσες κενές σειρές έχουν διαγραφεί. Κάντε κλικ στο OK για να το κλείσετε.

Και τώρα θα δείτε ότι όλες οι κενές γραμμές διαγράφονται από το ενεργό φύλλο εργασίας / επιλεγμένο εύρος. Δείτε το στιγμιότυπο οθόνης:

3. Κάντε κλικ στο κουμπί ΑρχείαΚουμπί γραφείου)> για εκτύπωση μόνο σειρών με δεδομένα σε ενεργό φύλλο εργασίας ή επιλεγμένο εύρος.

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα


Μερικές φορές, μπορεί να θέλετε να εκτυπώσετε κελιά με δεδομένα μόνο αγνοώντας όλα τα κενά κελιά στο Excel. Αυτή η μέθοδος θα εισαγάγει το Kutools για Excel Επιλέξτε μη κενά κελιά χρησιμότητα και Εκτύπωση Οδηγού πολλαπλών επιλογών για να εκτυπώσετε κελιά μόνο με δεδομένα σε καθορισμένο εύρος στο Excel.

Kutools για Excel - Συσκευασμένο με πάνω από 300 βασικά εργαλεία για το Excel. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Κατέβασε τώρα!

1. Επιλέξτε το εύρος όπου θα εκτυπώσετε μόνο τα κελιά με δεδομένα και κάντε κλικ Kutools > Αγορά > Επιλέξτε μη κενά κελιά. Δείτε το στιγμιότυπο οθόνης:

2. Βγαίνει ένα παράθυρο διαλόγου Kutools για Excel και σας δείχνει πόσα κελιά έχουν επιλεγεί δεδομένα. Κάντε κλικ στο OK για να το κλείσετε.

3. Συνεχίστε να επιλέγετε αυτά τα μη κενά κελιά και κάντε κλικ στο Εταιρεία > Εκτύπωση > Εκτύπωση Οδηγού πολλαπλών επιλογών. Δείτε το στιγμιότυπο οθόνης:

4. Στο παράθυρο διαλόγου "Εκτύπωση πολλαπλών επιλογών", θα δείτε ότι όλα τα επιλεγμένα μη κενά κελιά παρατίθενται στο Σειρές για εκτύπωση λίστα, κάντε κλικ στο φινίρισμα κουμπί.

5. Τώρα όλα τα επιλεγμένα μη κενά κελιά αντιγράφονται και επικολλούνται ως συνδεδεμένες εικόνες σε ένα νέο φύλλο εργασίας. Παρακαλώ πατήστε ΑρχείαΚουμπί γραφείου)> για να εκτυπώσετε αυτά τα κελιά με δεδομένα.

Kutools για Excel - Supercharge Excel με πάνω από 300 βασικά εργαλεία. Απολαύστε μια ΔΩΡΕΑΝ δοκιμή 30 ημερών με πλήρεις δυνατότητες χωρίς να απαιτείται πιστωτική κάρτα! Παρ'το Τώρα


Kutools για Excel: Πάνω από 300 εύχρηστα εργαλεία στα χέρια σας! Ξεκινήστε τη δωρεάν δοκιμή 30 ημερών χωρίς περιορισμούς δυνατοτήτων σήμερα. Κατεβάστε τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations