Αυτό το άρθρο θα σας δείξει πώς μπορείτε να διαγράψετε κενές στήλες στο Excel με τρεις αποτελεσματικούς και εύκολους τρόπους.

Λήψη βιβλίου εργασίας

Μπορείτε να κατεβάσετε το βιβλίο ασκήσεων από εδώ.

3 απλοί τρόποι για να διαγράψετε κενές στήλες στο Excel

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

1. Χρησιμοποιώντας τα εργαλεία επεξεργασίας του Excel

Βήμα 1: Επιλέξτε το σύνολο δεδομένων.

Βήμα 2: Πηγαίνετε στο Αρχική σελίδα ->, Εύρεση & επιλογή ->, Πηγαίνετε στο Special .

Βήμα 3: Από το Πηγαίνετε στο Special αναδυόμενο παράθυρο, επιλέξτε Κενά , και στη συνέχεια κάντε κλικ στο OK .

Βήμα 4: Θα επιλεγούν μόνο τα κενά κελιά από το σύνολο δεδομένων σας. Κάντε δεξί κλικ με το ποντίκι, από την αναδυόμενη λίστα επιλογών, επιλέξτε Διαγραφή .

Βήμα 5: Στη συνέχεια, από το αναδυόμενο παράθυρο Διαγραφή box, pick Μετατόπιση κελιών προς τα αριστερά από τις επιλογές. ΕΝΤΆΞΕΙ.

Αυτό θα διαγράψει όλες τις κενές στήλες από το σύνολο δεδομένων.

Διαβάστε περισσότερα: Πώς να διαγράψετε αχρησιμοποίητες στήλες στο Excel

2. Με τη χρήση φόρμουλας

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

Αυτός είναι ένας άλλος αποτελεσματικός τρόπος για να διαγράψετε κενές στήλες στο Excel, ειδικά όταν έχετε πολλές κενές στήλες να επεξεργαστείτε. Ας μάθουμε πώς να το κάνετε αυτό.

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

Βήμα 2: Στο αριστερότερο κελί του φύλλου εργασίας σας, γράψτε τον ακόλουθο τύπο,

=COUNTA(A2:A1048576)=0

Ορίστε,

A2 αντιπροσωπεύει το πρώτο κελί του συνόλου δεδομένων,

A1048576 αντιπροσωπεύει το μέγιστο της γραμμής στο Excel (2007-2019).

Βήμα 3: Τύπος Εισάγετε το Θα εμφανιστεί Αλήθεια αν η στήλη είναι κενή, ή Ψευδές εάν υπάρχει τουλάχιστον ένα μη κενό κελί σε ολόκληρη τη στήλη.

Βήμα 4: Εφαρμόστε τον τύπο στις άλλες στήλες σύροντας το πεδίο Χειρολαβή πλήρωσης .

Βήμα 5: Τώρα πηγαίνετε στο Αρχική σελίδα ->, Ταξινόμηση & φίλτρο ->, Προσαρμοσμένη ταξινόμηση .

Βήμα 6: Από το αναδυόμενο παράθυρο Ταξινόμηση παράθυρο, κάντε κλικ στο Επιλογές Στη συνέχεια, επιλέξτε Ταξινόμηση από αριστερά προς τα δεξιά από το Επιλογές ταξινόμησης αναδυόμενο παράθυρο και κάντε κλικ στο OK .

Βήμα 7: Κάντε κλικ στο αναπτυσσόμενο πλαίσιο δίπλα στο Ταξινόμηση κατά και από εκεί επιλέξτε την επιλογή Σειρά 1 .

Βήμα 8: Κάντε κλικ στο αναπτυσσόμενο πλαίσιο κάτω από το Ταξινόμηση σε ετικέτα και επιλέξτε την επιλογή Τιμές κελιών από εκεί.

Βήμα 9: Κάντε κλικ στο αναπτυσσόμενο πλαίσιο κάτω από το Παραγγελία ετικέτα και επιλέξτε την επιλογή Από το μεγαλύτερο στο μικρότερο . OK .

Θα μετατοπίσει όλες τις κενές στήλες στην αριστερή πλευρά του φύλλου εργασίας.

Βήμα 10: Από εκεί απλά επιλέξτε ολόκληρο το σύνολο δεδομένων με τις κενές κενές στήλες, κάντε δεξί κλικ και στη συνέχεια επιλέξτε Διαγραφή .

Βήμα 11: Από το αναδυόμενο παράθυρο Διαγραφή πλαίσιο, επιλέξτε το Ολόκληρη η στήλη από τις επιλογές. OK .

Αυτό θα διαγράψει όλες τις κενές στήλες από το σύνολο δεδομένων.

Παρόμοιες αναγνώσεις:

• Πώς να διαγράψετε πολλαπλές στήλες στο Excel
• Διαγραφή διπλών στηλών στο Excel (6 τρόποι)
• Πώς να διαγράψετε επιπλέον στήλες στο Excel (7 μέθοδοι)
• Διαγραφή στηλών στο Excel χωρίς να επηρεαστεί ο τύπος (δύο τρόποι)

3. Με τη χρήση κώδικα VBA

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

Παρακάτω παρουσιάζεται ο αυτοματοποιημένος τρόπος διαγραφής κενών στηλών στο Excel.

Βήμα 1: Τύπος Alt + F11 στο πληκτρολόγιό σας ή πηγαίνετε στην καρτέλα Προγραμματιστής ->, Visual Basic για να ανοίξετε τον επεξεργαστή της Visual Basic.

Βήμα 2: Από τη γραμμή μενού, κάντε κλικ στο Εισαγωγή ->, Ενότητα .

Βήμα 3: Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τον στο παράθυρο κώδικα.

 Public Sub DeleteBlankColumns() Dim SrcRange As Range Dim EntrColumn As Range On Error Resume Next Set SrcRange = Application.InputBox( _ "Select a range:", "Delete Blank Columns", _ Application.Selection.Address, Type:=8) If Not (SrcRange Is Nothing) Then Application.ScreenUpdating = False For i = SrcRange.Columns.Count To 1 Step -1 Set EntrColumn = SrcRange.Cells(1, i).EntrColumn IfApplication.WorksheetFunction.CountA(EntrColumn) = 0 Then EntrColumn.Delete End If Next Application.ScreenUpdating = True End If End Sub 

Βήμα 4: Τύπος F5 στο πληκτρολόγιό σας ή από τη γραμμή μενού επιλέξτε Εκτέλεση ->, Εκτέλεση Sub/UserForm Μπορείτε επίσης να κάνετε κλικ στο μικρό Εικονίδιο αναπαραγωγής στη γραμμή υπομενού για να εκτελέσετε τη μακροεντολή.

Βήμα 5: Από το αναδυόμενο πλαίσιο διαλόγου, μεταβείτε στο φύλλο εργασίας που σας ενδιαφέρει, επιλέξτε το επιθυμητό εύρος και κάντε κλικ στο κουμπί OK .

Αυτό θα διαγράψει όλες τις κενές στήλες από τη βάση δεδομένων.

Συμπέρασμα

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