Υπάρχουν πολλοί τρόποι διαγραφής κενών στηλών σε ένα αρχείο Microsoft Excel. Γιατί θα πρέπει να το κάνετε αυτό; - Απλός.
Κάθε τόσο, τα δεδομένα που εισάγετε από ιστοσελίδες ενδέχεται να έχουν ως αποτέλεσμα την εμφάνιση μεγάλου αριθμού στηλών ακόμα και αν δεν χρησιμοποιούνται. Βλέπετε αυτό συμβαίνει με αρχεία CSV και αρχεία .txt εξίσου συχνά.
Όταν συμβαίνει, η μη αυτόματη διαγραφή στηλών ενδέχεται να μην είναι πάντα εύκολη. Σίγουρα, εάν έχετε μόνο δύο ή τρεις κενές στήλες, είναι εντάξει να τις διαγράψετε μη αυτόματα. Τι γίνεται όμως αν το έργο που έχετε εισαγάγει δημιουργεί 57 κενές και μη συνεχείς στήλες; - Για αυτό, θα χρειαστείτε μια αυτοματοποιημένη διαδικασία.
Χρήση της μακροεντολής VBA
Η πρώτη μέθοδος περιλαμβάνει τη χρήση μιας μακροεντολής VBA.
- Μεταβείτε στο αρχείο Excel.
- Κρατήστε τα Alt και F11 μαζί.
- Περιμένετε να εμφανιστεί το παράθυρο της Microsoft Visual Basic for Applications.
- Κάντε κλικ στο Εισαγωγή.
- Επιλέξτε Ενότητα.
- Επικολλήστε τις ακόλουθες γραμμές κώδικα στο παράθυρο.
Sub DeleteEmptyColumns()
'Updateby20140317
Dim rng As Range
Dim InputRng As Range
xTitleId = 'KutoolsforExcel'
Set InputRng = Application.SelectionSet 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
- Πατήστε F5 για να μεταγλωττίσετε και να εκτελέσετε τη μακροεντολή.
- Εισαγάγετε το κατάλληλο εύρος εργασίας στο παράθυρο διαλόγου.
Το εύρος εργασίας ή το εύρος δεδομένων είναι το συγκεκριμένο διάστημα μεταξύ των στηλών που θέλετε να στοχεύσετε. Η μορφή είναι $ A $ 1: $ J $ 12. Τα γράμματα αντιστοιχούν στη στήλη και οι αριθμοί αντιστοιχούν στις σειρές.
Εάν το σύρετε με το ποντίκι σας ή κρατώντας πατημένο το Shift και χρησιμοποιώντας τα πλήκτρα βέλους, θα παρατηρήσετε ότι:
$ 1 $ - Κορυφαία γωνία
$ J $ 12 - Κάτω γωνία
Δεν μπορείτε να επιλέξετε το εύρος δεδομένων πριν ξεκινήσετε τη μεταφόρτωση της μακροεντολής, καθώς δεν θα παραμείνει επιλεγμένη. - Πατήστε ΟΚ.
Μετά από αυτό, όλες οι κενές στήλες θα πρέπει να διαγραφούν και όλες οι γεμάτες στήλες να είναι η μία δίπλα στην άλλη.
πώς να ξεπεράσουμε τα πράγματα σε αντίθεση
Χρήση του Excel Tools
Προφανώς, το Excel δεν θα ήταν τόσο ισχυρό, αν δεν είχε μεγάλες δυνατότητες ταξινόμησης. Μπορείτε να χρησιμοποιήσετε το αναπτυσσόμενο μενού Διαγραφή για να διαγράψετε ολόκληρες σειρές, στήλες ή κενά κελιά.
- Πρώτα επιλέξτε το εύρος δεδομένων
- Πατήστε F5
- Κάντε κλικ στο Ειδικό
- Επιλέξτε την επιλογή Κενά
- Κάντε κλικ στο OK (Αυτή η επιλογή θα διασφαλίσει ότι όλα τα κενά κελιά είναι επιλεγμένα στο στοχευμένο εύρος)
- Μεταβείτε στην καρτέλα Αρχική σελίδα
- Επιλέξτε το αναπτυσσόμενο μενού Διαγραφή στην ομάδα εργαλείων Κελιά
- Επιλέξτε Διαγραφή κελιών
- Επιλέξτε Shift Cells Left για αφαίρεση και αναδιάταξη στηλών
- Κάντε κλικ στο OK
Τώρα τα κενά κελιά από τις κενές στήλες θα έπρεπε να είχαν εξαφανιστεί και όλες οι άλλες σειρές θα μετακινούνταν πιο κοντά.
Μπορείτε να χρησιμοποιήσετε την ίδια προσέγγιση για να διαγράψετε ολόκληρες σειρές. Ωστόσο, αντί να μετακινείτε τα κελιά προς τα αριστερά, επιλέγετε την άλλη επιλογή.
πώς να δείτε ποιες φωτογραφίες αρέσει σε κάποιον στο instagram 2020
Επιλέξτε Shift κελιά προς τα πάνω για αφαίρεση και αναδιάταξη σειρών
Ανάλογα με την έκδοση του Excel που χρησιμοποιείτε, ενδέχεται να λάβετε διαφορετικές διατυπώσεις. Ωστόσο, σε κάθε περίπτωση, οι δύο κορυφαίες επιλογές στο μενού Διαγραφή κελιών είναι πάντα οι ίδιες.
Αυτή η μέθοδος δεν αφαιρεί πλέον όλα τα κενά κελιά στην επιλογή. Πριν από το Excel 2013, αυτό θα αφαιρούσε κατά λάθος ακόμη και κενές σειρές, οι οποίες γενικά θα χάσουν τη διαλογή.
Τώρα το πρόβλημα δεν εμφανίζεται πλέον. Επομένως, εάν θέλετε επίσης να απαλλαγείτε από τις σειρές, μπορείτε να το κάνετε επιλέγοντας ξανά το εύρος δεδομένων και ακολουθώντας τα προηγούμενα βήματα. Στη συνέχεια, απλώς επιλέξτε να μετακινήσετε ή να διαγράψετε κελιά προς τα πάνω αντί για αριστερά.
Άλλες εύκολες στην εκτέλεση εργασίες ταξινόμησης
Αν και η τεχνική χρήση της γραμμής εργαλείων του Excel για τη διαγραφή κενών στηλών και γραμμών φαίνεται ευκολότερη, η μέθοδος μακροεντολής VBA είναι ανθεκτική, πράγμα που σημαίνει ότι μπορείτε να τη χρησιμοποιήσετε ακόμη και σε παλαιότερες εκδόσεις του Microsoft Excel.
Χρησιμοποιώντας την ίδια λειτουργική μονάδα VBA ή το μενού λειτουργίας Go To, μπορείτε να κάνετε πολλά περισσότερα στο Excel. Έχετε συγκεκριμένους τύπους που δεν είναι πλέον σχετικοί; - Μπορείτε επίσης να τα αφαιρέσετε ή να τα αναδιατάξετε ανάλογα.
πώς να ευρετηριάσετε τα παράθυρα ενός φακέλου 10
Μπορείτε επίσης να καταργήσετε περιττά σχόλια ή όλα τα σχόλια από το έργο σας, εάν δεν θέλετε να εμφανίζονται κατά τη διάρκεια της παρουσίασής σας. Εξετάστε το VBA εάν θέλετε να είστε χρήστης ισχύος του Excel.
Μια τελική σκέψη
Με τα χρόνια, ένα ευρύ φάσμα πρόσθετων έχει εμφανιστεί στο διαδίκτυο. Μερικά από αυτά σας επιτρέπουν να λαμβάνετε ακόμη περισσότερες συντομεύσεις κατά την ταξινόμηση μεγάλων υπολογιστικών φύλλων. Ωστόσο, αυτές οι εφαρμογές είναι σπάνια δωρεάν και δεν αξίζει τον κόπο για απλές εργασίες, όπως η αφαίρεση κενών γραμμών, κελιών και στηλών.
Εκτός αυτού, αν ήταν τόσο δύσκολο, η Microsoft θα είχε απλοποιήσει περαιτέρω τη διαδικασία έως τώρα ή θα είχε δημιουργήσει ακόμη πιο εκτεταμένους οδηγούς για τη διαλογή του Excel.
