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

• Αφαιρέστε τις κενές σειρές
• Με μια βοηθητική στήλη
• Από Kutools σε 3 δευτερόλεπτα
• χειροκίνητα
• Χρησιμοποιώντας VBA
• Κατάργηση σειρών που περιέχουν κενά κελιά
• Με τη λειτουργία Μετάβαση σε Ειδική
• Σε μια βασική στήλη από τη δυνατότητα φίλτρου

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

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

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

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

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

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

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

Βήμα 1: Προσθέστε μια βοηθητική στήλη και χρησιμοποιήστε τη συνάρτηση COUNTA

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

   =COUNTA(A2:C2)

   

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



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

   

Βήμα 2: Φιλτράρετε τις κενές σειρές από τη βοηθητική στήλη

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

   

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

   

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

   

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

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

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

Αποτέλεσμα:

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

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

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

   

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

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

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

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

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

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

Αποτέλεσμα:

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

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

Βήμα 1: Αντιγράψτε το VBA στο παράθυρο Microsoft Visual Basic for Applications

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

   

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
   

   

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

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

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

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

  

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

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

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

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

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

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

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

Βήμα 1: Επιλέξτε τα κενά κελιά στην περιοχή

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

   

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

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

   

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

   

Βήμα 2: Διαγράψτε σειρές που περιέχουν κενά κελιά

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

   

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

   

Αποτέλεσμα:

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

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

Βήμα 1: Φιλτράρετε τα κενά κελιά στη στήλη κλειδιού

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

   

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

   

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

   

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

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

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

Αποτέλεσμα: