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

6 εύκολοι τρόποι για να αφαιρέσετε κενές σειρές στο Excel (Βήμα προς βήμα)

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

doc αφαιρέστε τις κενές σειρές 1


Βίντεο: Αφαιρέστε τις κενές σειρές

 


Αφαιρέστε τις κενές σειρές

 

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

  • Χρησιμοποιώντας "Πηγαίνετε στο ειδικό" για να επιλέξετε κενά κελιά και, στη συνέχεια, να αφαιρέσετε τις σειρές αυτών των επιλεγμένων κενών κελιών.
  • Χρήση του Φίλτρα δυνατότητα φιλτραρίσματος κενών κελιών σε μια βασική στήλη και, στη συνέχεια, κατάργηση των κενών σειρών στο φιλτραρισμένο εύρος.

Ωστόσο, και οι δύο αυτές μέθοδοι έχουν τη δυνατότητα να αφαιρέσουν κατά λάθος σειρές που περιέχουν σημαντικά δεδομένα όπως εμφανίζονται παρακάτω στιγμιότυπα οθόνης.

doc αφαιρέστε τις κενές σειρές 2

Για να αποφύγετε τέτοιες ακούσιες διαγραφές, συνιστάται να χρησιμοποιήστε μία από τις παρακάτω τέσσερις μεθόδους για να διαγράψετε με ακρίβεια τις κενές σειρές.


>> Καταργήστε τις κενές σειρές από μια βοηθητική στήλη

Βήμα 1: Προσθέστε μια βοηθητική στήλη και χρησιμοποιήστε τη συνάρτηση COUNTA
  1. Στην πιο δεξιά πλευρά του συνόλου δεδομένων, προσθέστε το "Βοηθόςστήλη " και χρησιμοποιήστε τον παρακάτω τύπο στο πρώτο κελί της στήλης:

    =COUNTA(A2:C2)

    Note: Στον τύπο, το A2:C2 είναι το εύρος που θέλετε να μετρήσετε τα μη κενά κελιά.

  2. Τότε σύρετε τη λαβή αυτόματης πλήρωσης προς τα κάτω για να συμπληρώσετε τον τύπο για να μετρήσετε τον αριθμό των μη κενών κελιών σε κάθε σειρά. "0" υποδηλώνει ότι η σχετική σειρά είναι εντελώς κενή.

Βήμα 2: Φιλτράρετε τις κενές σειρές από τη βοηθητική στήλη
  1. Κάντε κλικ σε οποιοδήποτε κελί της βοηθητικής στήλης, επιλέξτε ημερομηνία > Φίλτρα.

    doc αφαιρέστε τις κενές σειρές 5

  2. Στη συνέχεια κάντε κλικ στο βέλος φίλτρου και μόνο έλεγχος 0 στο αναπτυγμένο μενού και κάντε κλικ OK.

    Τώρα όλες οι κενές σειρές έχουν φιλτραριστεί.

Βήμα 3: Διαγράψτε τις κενές σειρές

Επιλέξτε τις κενές σειρές (κάντε κλικ στον αριθμό της σειράς και σύρετε προς τα κάτω για να επιλέξετε όλες τις κενές σειρές), στη συνέχεια κάντε δεξί κλικ για να επιλέξετε Διαγραφή σειράς από το μενού περιβάλλοντος (ή μπορείτε να χρησιμοποιήσετε συντομεύσεις Ctrl + -).

Βήμα 4: Επιλέξτε Φίλτρο στην ομάδα Ταξινόμηση & Φίλτρο για να διαγράψετε το εφαρμοζόμενο φίλτρο

doc αφαιρέστε τις κενές σειρές 10

Αποτέλεσμα:

Note: Εάν δεν χρειάζεστε πλέον τη βοηθητική στήλη, αφαιρέστε την μετά το φιλτράρισμα.

>> Καταργήστε τις κενές σειρές από το Kutools σε 3 δευτερόλεπτα

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

  1. Επιλέξτε το εύρος από το οποίο θέλετε να αφαιρέσετε κενές σειρές.
  2. Πατήστε Kutools > Διαγραφή > Διαγραφή κενών γραμμών > Σε επιλεγμένο εύρος.
  3. Επιλέξτε την επιλογή που θέλετε και κάντε κλικ OK στο αναδυόμενο παράθυρο διαλόγου.

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

  • Πριν χρησιμοποιήσετε τη δυνατότητα Διαγραφή κενών γραμμών, εγκαταστήστε το Kutools για Excel. Κάντε κλικ εδώ για να κατεβάσετε και να έχετε μια δωρεάν δοκιμή 30 ημερών.


>> Αφαιρέστε τις κενές σειρές με μη αυτόματο τρόπο

Εάν υπάρχουν λίγες κενές σειρές προς κατάργηση, μπορείτε επίσης να τις αφαιρέσετε με μη αυτόματο τρόπο.

Βήμα 1: Επιλέξτε κενές σειρές

Κάντε κλικ στον αριθμό της σειράς για να επιλέξετε μια κενή σειρά. Εάν υπάρχουν πολλές κενές σειρές, κρατήστε πατημένο το Ctrl πληκτρολογήστε και κάντε κλικ στους αριθμούς σειρών έναν προς έναν για να τους επιλέξετε.

Βήμα 2: Διαγράψτε τις κενές σειρές

Αφού επιλέξετε τις κενές σειρές, κάντε δεξί κλικ και επιλέξτε Διαγραφή από το μενού περιβάλλοντος (ή μπορείτε να χρησιμοποιήσετε συντομεύσεις Ctrl + -).

Αποτέλεσμα:


>> Καταργήστε κενές σειρές χρησιμοποιώντας VBA

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

Βήμα 1: Αντιγράψτε το VBA στο παράθυρο Microsoft Visual Basic for Applications
  1. Ενεργοποιήστε το φύλλο από το οποίο θέλετε να αφαιρέσετε κενές σειρές και, στη συνέχεια, πατήστε άλλος + F11 κλειδιά.

    doc αφαιρέστε τις κενές σειρές 27

  2. Στο αναδυόμενο παράθυρο, κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης.

  3. Στη συνέχεια, αντιγράψτε και επικολλήστε έναν από τους παρακάτω κωδικούς στην κενή νέα μονάδα.

    Κωδικός 1: Καταργήστε τις κενές σειρές από το ενεργό φύλλο εργασίας

    Sub RemoveBlankRows()
    'UpdatebyExtendoffice
        Dim wsheet As Worksheet
        Dim lastRow As Long
        Dim i As Long
        
        ' Set the worksheet variable to the active sheet
        Set wsheet = ActiveSheet
        
        ' Get the last row of data in the worksheet
        lastRow = wsheet.Cells(wsheet.Rows.Count, 1).End(xlUp).Row
        
        ' Loop through each row in reverse order
        For i = lastRow To 1 Step -1
            ' Check if the entire row is blank
            If WorksheetFunction.CountA(wsheet.Rows(i)) = 0 Then
                ' If the row is blank, delete it
                wsheet.Rows(i).Delete
            End If
        Next i
    End Sub
    

    Κωδικός 2: Αφαιρέστε τις κενές σειρές από την επιλογή

    Sub RemoveBlankRowsInRange()
    'UpdatebyExtendoffice
    Dim sRange As Range
    Dim row As Range
    ' Prompt the user to select a range
    On Error Resume Next
    Set sRange = Application.InputBox(prompt:="Select a range", Title:="Kutools for Excel", Type:=8)
    ' Check if a range is selected
    If Not sRange Is Nothing Then
    ' Loop through each row in reverse order
    For Each row In sRange.Rows
    ' Check if the entire row is blank
    If WorksheetFunction.CountA(row) = 0 Then
    ' If the row is blank, delete it
    row.Delete
    End If
    Next row
    Else
    MsgBox "No range selected. Please select a range and run the macro again.", vbExclamation
    End If
    End Sub
    

    doc αφαιρέστε τις κενές σειρές 27

Βήμα 2: Εκτελέστε τον κώδικα και διαγράψτε τις κενές σειρές

Πατήστε Κουμπί εκτέλεσης ή πατήστε F5 κλειδί για την εκτέλεση του κώδικα.

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

  • Εάν χρησιμοποιείτε τον κωδικό 2 για να αφαιρέσετε κενές σειρές από την επιλογή, μετά την εκτέλεση του κώδικα, εμφανίζεται ένα παράθυρο διαλόγου, επιλέξτε μια περιοχή από την οποία θέλετε να αφαιρέσετε κενές σειρές στο παράθυρο διαλόγου και, στη συνέχεια, κάντε κλικ OK.

Αποτελέσματα:

Code1: Καταργήστε τις κενές σειρές στο ενεργό φύλλο

Code2: Αφαιρέστε τις κενές σειρές στην επιλογή

Καταργήστε τις σειρές που περιέχουν κενά κελιά

 

Υπάρχουν δύο μέρη σε αυτήν την ενότητα: το ένα χρησιμοποιεί τη λειτουργία Μετάβαση σε Ειδική για την κατάργηση σειρών που περιέχουν κενά κελιά και το άλλο χρησιμοποιεί τη λειτουργία Φίλτρο για την κατάργηση σειρών που έχουν κενά σε μια συγκεκριμένη στήλη κλειδιού.

>> Καταργήστε τις σειρές που περιέχουν κενά κελιά με το Μετάβαση στο Ειδικό

Η δυνατότητα Μετάβαση σε Ειδικό συνιστάται ευρέως για την αφαίρεση κενών σειρών. Μπορεί να είναι ένα χρήσιμο εργαλείο όταν πρέπει να αφαιρέσετε σειρές που περιέχουν τουλάχιστον ένα κενό κελί.

Βήμα 1: Επιλέξτε τα κενά κελιά στην περιοχή
  1. Επιλέξτε το εύρος από το οποίο θέλετε να διαγράψετε κενές σειρές, επιλέξτε Home > Εύρεση & Επιλογή > Πηγαίνετε στο ειδικό.

    doc αφαιρέστε τις κενές σειρές 12

    Ή μπορείτε να πατήσετε απευθείας F5 κλειδί για ενεργοποίηση Μετάβαση σε διαλόγου και κάντε κλικ στο Άμεση έκπτωση κουμπί για εναλλαγή Μετάβαση σε Άμεση έκπτωση διαλόγου.

  2. Στο Πηγαίνετε στο ειδικό διαλόγου, επιλέξτε Κενά Επιλογή και πατήστε OK.

    doc αφαιρέστε τις κενές σειρές 13

    Τώρα έχουν επιλεγεί όλα τα άδεια κελιά στο επιλεγμένο εύρος.

Βήμα 2: Διαγράψτε σειρές που περιέχουν κενά κελιά
  1. Κάντε δεξί κλικ σε οποιοδήποτε επιλεγμένο κελί και επιλέξτε Διαγραφή από το μενού περιβάλλοντος (ή μπορείτε να χρησιμοποιήσετε συντομεύσεις Ctrl + -).

  2. Στο Διαγραφή διαλόγου, επιλέξτε Ολόκληρη σειρά Επιλογή και πατήστε OK.

    doc αφαιρέστε τις κενές σειρές 16

Αποτέλεσμα:

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

>> Καταργήστε σειρές που περιέχουν κενά κελιά σε μια βασική στήλη με τη λειτουργία Φίλτρο

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

Βήμα 1: Φιλτράρετε τα κενά κελιά στη στήλη κλειδιού
  1. Επιλέξτε το σύνολο δεδομένων, κάντε κλικ ημερομηνία καρτέλα, πηγαίνετε στο Ταξινόμηση & φίλτρο ομάδα, πατήστε Φίλτρα για να εφαρμόσετε φίλτρο στο σύνολο δεδομένων.

  2. Κάντε κλικ στο βέλος φίλτρου της στήλης κλειδιού στην οποία θέλετε να καταργήσετε σειρές με βάση, σε αυτό το παράδειγμα, ID στήλη είναι η βασική στήλη, και μόνο έλεγχος Κενά από το διευρυμένο μενού. Κάντε κλικ OK.

    Τώρα όλα τα κενά κελιά στη στήλη κλειδιού έχουν φιλτραριστεί.

Βήμα 2: Διαγραφή σειρών

Επιλέξτε τις υπόλοιπες σειρές (κάντε κλικ στον αριθμό της σειράς και σύρετε προς τα κάτω για να επιλέξετε όλες τις κενές σειρές), στη συνέχεια κάντε δεξί κλικ για να επιλέξετε Διαγραφή σειράς στο μενού περιβάλλοντος (ή μπορείτε να χρησιμοποιήσετε συντομεύσεις Ctrl + -). Και κάντε κλικ OK στο αναδυόμενο παράθυρο διαλόγου.

Βήμα 3: Επιλέξτε Φίλτρο στην ομάδα Ταξινόμηση & Φίλτρο για να διαγράψετε το εφαρμοζόμενο φίλτρο

doc αφαιρέστε τις κενές σειρές 22

Αποτέλεσμα:

Note: Εάν θέλετε να αφαιρέσετε κενές σειρές που βασίζονται σε δύο ή περισσότερες στήλες κλειδιών, επαναλάβετε το Βήμα 1 για να φιλτράρετε τα κενά στις στήλες των κλειδιών ένα προς ένα και, στη συνέχεια, διαγράψτε τις υπόλοιπες κενές σειρές.

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

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: 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