Πώς να διαγράψετε όλες τις κενές στήλες στο Microsoft Excel

Υπάρχουν πολλοί τρόποι για να διαγράψετε κενές στήλες σε ένα αρχείο Microsoft Excel. Γιατί θα έπρεπε να το κάνετε αυτό; - Απλός.

Δείτε επίσης το άρθρο μας Πώς να παγώσετε την κορυφαία σειρά στο Excel

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

Όταν συμβεί, η διαγραφή των στηλών με το χέρι μπορεί να μην είναι πάντα εύκολη. Σίγουρα, αν έχετε μόνο δύο ή τρεις κενές στήλες, είναι εντάξει να τις διαγράψετε μη αυτόματα. Τι γίνεται όμως αν το εισαγόμενο έργο σας δημιουργεί 57 κενές και μη συνεχείς στήλες; - Για αυτό, θα χρειαστείτε μια αυτοματοποιημένη διαδικασία.

Χρησιμοποιώντας τη μακροεντολή VBA

Γρήγοροι σύνδεσμοι

• Χρησιμοποιώντας τη μακροεντολή VBA
  • • • Μεταβείτε στο αρχείο Excel
      • Κρατήστε τα πλήκτρα Alt και F11 μαζί
      • Περιμένετε να εμφανιστεί το παράθυρο της Microsoft Visual Basic for Applications
      • Κάντε κλικ στην επιλογή Εισαγωγή
      • Επιλέξτε Ενότητα
      • Επικολλήστε τις ακόλουθες γραμμές κώδικα στο παράθυρο
      • Πατήστε το πλήκτρο F5 για να μεταγλωττίσετε και να εκτελέσετε τη μακροεντολή
      • Εισαγάγετε το κατάλληλο εύρος εργασίας στο παράθυρο διαλόγου
      • $ A $ 1 - Κορυφή γωνία
      • $ J $ 12 - Κάτω γωνία
      • Πατήστε OK
• Χρησιμοποιώντας εργαλεία του Excel
  • • • Πρώτα επιλέξτε το εύρος δεδομένων
      • Πατήστε F5
      • Κάντε κλικ στην επιλογή Ειδικά
      • Επιλέξτε Επιλογή κενών
      • Κάντε κλικ στο κουμπί OK (Αυτή η επιλογή θα διασφαλίσει ότι όλα τα κενά κελιά θα επιλεγούν στο στοχευόμενο εύρος)
      • Μεταβείτε στην καρτέλα Αρχική σελίδα
      • Επιλέξτε το αναπτυσσόμενο μενού Διαγραφή κάτω από την ομάδα εργαλείων "Κύτταρα"
      • Επιλέξτε Διαγραφή κελιών
      • Επιλέξτε Shift Cells αριστερά για την αφαίρεση και αναδιάταξη των στηλών
      • Κάντε κλικ στο κουμπί OK
      • Επιλέξτε τα κελιά "Shift" για να αφαιρέσετε και να αναδιατάξετε τις σειρές
• Άλλες εύκολες στην εκτέλεση εργασίες ταξινόμησης
• Μια Τελική Σκέψη

Η πρώτη μέθοδος περιλαμβάνει τη χρήση μιας μακροεντολής VBA.

1. Μεταβείτε στο αρχείο Excel

2. Κρατήστε τα πλήκτρα Alt και F11 μαζί

3. Περιμένετε να εμφανιστεί το παράθυρο της Microsoft Visual Basic for Applications

4. Κάντε κλικ στην επιλογή Εισαγωγή

5. Επιλέξτε Ενότητα

   

6. Επικολλήστε τις ακόλουθες γραμμές κώδικα στο παράθυρο

Sub DeleteEmptyColumns()
'Updateby20140317
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Columns.Count To 1 Step -1
Set rng = InputRng.Cells(1, i).EntireColumn
If Application.WorksheetFunction.CountA(rng) = 0 Then
rng.Delete
End If
Next
Application.ScreenUpdating = True
End Sub

1. Πατήστε το πλήκτρο F5 για να μεταγλωττίσετε και να εκτελέσετε τη μακροεντολή

2. Εισαγάγετε το κατάλληλο εύρος εργασίας στο παράθυρο διαλόγου

Το εύρος εργασίας ή το εύρος δεδομένων είναι το συγκεκριμένο διάστημα μεταξύ των στηλών που θέλετε να στοχεύσετε. Η μορφή είναι $ A $ 1: $ J $ 12. Τα γράμματα αντιστοιχούν στη στήλη και οι αριθμοί αντιστοιχούν στις σειρές.

Εάν το σύρετε έξω με το ποντίκι σας ή κρατώντας Shift και χρησιμοποιώντας τα πλήκτρα βέλους, θα παρατηρήσετε ότι:

$ A $ 1 - Κορυφή γωνία

$ J $ 12 - Κάτω γωνία

Δεν μπορείτε να επιλέξετε το εύρος δεδομένων πριν ξεκινήσετε τη μεταφόρτωση της μακροεντολής, καθώς δεν θα παραμείνει επιλεγμένη.

Πατήστε OK

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

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

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

1. Πρώτα επιλέξτε το εύρος δεδομένων

2. Πατήστε F5

3. Κάντε κλικ στην επιλογή Ειδικά

   

4. Επιλέξτε Επιλογή κενών

5. Κάντε κλικ στο κουμπί OK (Αυτή η επιλογή θα διασφαλίσει ότι όλα τα κενά κελιά θα επιλεγούν στο στοχευόμενο εύρος)

   

6. Μεταβείτε στην καρτέλα Αρχική σελίδα

7. Επιλέξτε το αναπτυσσόμενο μενού Διαγραφή κάτω από την ομάδα εργαλείων "Κύτταρα"

8. Επιλέξτε Διαγραφή κελιών

   

9. Επιλέξτε Shift Cells αριστερά για την αφαίρεση και αναδιάταξη των στηλών

10. Κάντε κλικ στο κουμπί OK

Τώρα τα κενά κελιά από τις κενές στήλες θα έπρεπε να έχουν εξαφανιστεί και όλες οι άλλες σειρές θα μετακινηθούν πιο κοντά.

Μπορείτε να χρησιμοποιήσετε την ίδια προσέγγιση για να διαγράψετε ολόκληρες σειρές. Ωστόσο, αντί να μετακινήσετε τα κελιά προς τα αριστερά, επιλέγετε την άλλη επιλογή.

Επιλέξτε τα κελιά "Shift" για να αφαιρέσετε και να αναδιατάξετε τις σειρές

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

Αυτή η μέθοδος δεν αφαιρεί πλέον όλα τα κενά κελιά στην επιλογή. Πριν από το Excel 2013, αυτό θα αφαίρεσε κατά λάθος ακόμη και κενές σειρές που γενικά θα δυσκολευτούν την ταξινόμηση.

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

Άλλες εύκολες στην εκτέλεση εργασίες ταξινόμησης

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

Χρησιμοποιώντας την ίδια λειτουργική μονάδα VBA ή το μενού λειτουργίας Go To, μπορείτε να κάνετε πολλά περισσότερα στο Excel. Έχετε ορισμένους τύπους που δεν είναι πλέον σχετικοί; - Μπορείτε να τα αφαιρέσετε επίσης ή να τα αναδιατάξετε αναλόγως.

Μπορείτε επίσης να καταργήσετε περιττά σχόλια ή όλα τα σχόλια από το έργο σας, αν δεν θέλετε να εμφανίζονται κατά τη διάρκεια της παρουσίασής σας. Αναζητήστε το VBA εάν θέλετε να είστε χρήστης Power του Excel.

Μια Τελική Σκέψη

Με τα χρόνια, ένα ευρύ φάσμα add-ons εμφανίστηκε online. Ορισμένες από αυτές σας επιτρέπουν να λάβετε ακόμη περισσότερες συντομεύσεις κατά τη διαλογή μεγάλων υπολογιστικών φύλλων. Ωστόσο, αυτές οι εφαρμογές είναι σπάνια δωρεάν και δεν αξίζουν τον κόπο για απλές εργασίες όπως η αφαίρεση κενών γραμμών, κελιών και στηλών.

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