Πώς να διαγράψετε κενές στήλες με κεφαλίδα στο Excel;
Εάν έχετε ένα μεγάλο φύλλο εργασίας που περιέχει πολλές στήλες, αλλά ορισμένες από τις στήλες περιέχουν μόνο μια κεφαλίδα και τώρα, θέλετε να διαγράψετε αυτές τις κενές στήλες που με μόνο μια κεφαλίδα για να εμφανιστεί το ακόλουθο στιγμιότυπο οθόνης. Αυτό μπορεί να επιλυθεί γρήγορα και εύκολα στο Excel;
Διαγράψτε τις κενές στήλες με μια κεφαλίδα χρησιμοποιώντας τον κώδικα VBA
Διαγράψτε πολλές κενές στήλες σε εύρος / φύλλο εργασίας / βιβλίο εργασίας με το Kutools για Excel
Διαγράψτε τις κενές στήλες με μια κεφαλίδα χρησιμοποιώντας τον κώδικα VBA
Στο Excel, δεν υπάρχει άμεση μέθοδος αντιμετώπισης αυτής της εργασίας εκτός από τη διαγραφή τους μία προς μία με μη αυτόματο τρόπο, αλλά, εδώ, μπορώ να εισαγάγω έναν κωδικό για εσάς, κάντε τα εξής:
1. Κρατήστε πατημένο το ALT + F11 και μετά ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε τον ακόλουθο κώδικα στο Μονάδα μέτρησης Παράθυρο.
Κωδικός VBA: Διαγραφή κενών στηλών με κεφαλίδα:
Sub Macro1()
'updateby Extendoffice
Dim xEndCol As Long
Dim I As Long
Dim xDel As Boolean
On Error Resume Next
xEndCol = Cells.Find("*", SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
If xEndCol = 0 Then
MsgBox "There is no data on """ & ActiveSheet.Name & """ .", vbExclamation, "Kutools for Excel"
Exit Sub
End If
Application.ScreenUpdating = False
For I = xEndCol To 1 Step -1
If Application.WorksheetFunction.CountA(Columns(I)) <= 1 Then
Columns(I).Delete
xDel = True
End If
Next
If xDel Then
MsgBox "All blank and column(s) with only a header row have now been deleted.", vbInformation, "Kutools for Excel"
Else
MsgBox "There are no Columns to delete as each one has more data (rows) than just a header.", vbExclamation, "Kutools for Excel"
End If
Application.ScreenUpdating = True
End Sub
3. Στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι θα διαγραφούν οι κενές στήλες με κεφαλίδα, δείτε το στιγμιότυπο οθόνης:
4. Και στη συνέχεια κάντε κλικ στο κουμπί OK κουμπί, όλες οι κενές στήλες με μόνο κεφαλίδα στο τρέχον φύλλο εργασίας διαγράφονται ταυτόχρονα.
Note: Εάν υπάρχουν κενές στήλες, θα διαγραφούν επίσης.
Διαγράψτε πολλές κενές στήλες σε εύρος / φύλλο εργασίας / βιβλίο εργασίας με το Kutools για Excel
Μερικές φορές, απλώς χρειάζεται να διαγράψετε τις κενές στήλες, το Kutools για Excel'S Διαγραφή κρυφών (ορατών) γραμμών και στηλών βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να ολοκληρώσετε αυτήν την εργασία με ευκολία.
Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. |
Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:
1. Επιλέξτε το εύρος στηλών που περιλαμβάνει τις κενές στήλες που πρέπει να διαγραφούν.
2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Διαγραφή > Διαγραφή κρυφών (ορατών) γραμμών και στηλών, δείτε το στιγμιότυπο οθόνης:
3. Στην Διαγραφή κρυφών (ορατών) γραμμών και στηλών πλαίσιο διαλόγου, μπορείτε να επιλέξετε το πεδίο διαγραφής από το αναπτυσσόμενο μενού Look in όπως χρειάζεστε, επιλέξτε Στήλες από το Διαγραφή τύπου ενότητα και, στη συνέχεια, επιλέξτε Κενές στήλες από το Λεπτομερής τύπος ενότητα, δείτε το στιγμιότυπο οθόνης:
4. Στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί και μόνο οι κενές στήλες διαγράφονται ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:
Συμβουλές: Με αυτήν την ισχυρή δυνατότητα, μπορείτε επίσης να διαγράψετε κενές γραμμές, ορατές στήλες ή σειρές, κρυφές στήλες ή σειρές όπως χρειάζεστε.
Κάντε κλικ στην επιλογή Δωρεάν λήψη Kutools για Excel τώρα!
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου. Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...
Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη
- Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
- Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
- Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!