Μετάβαση στο κύριο περιεχόμενο

Πώς να διαγράψετε κενές στήλες με κεφαλίδα στο Excel;

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

doc διαγράψτε κενές στήλες με κεφαλίδα 1

Διαγράψτε τις κενές στήλες με μια κεφαλίδα χρησιμοποιώντας τον κώδικα 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 κλειδί για την εκτέλεση αυτού του κώδικα και θα εμφανιστεί ένα πλαίσιο προτροπής για να σας υπενθυμίσει ότι θα διαγραφούν οι κενές στήλες με κεφαλίδα, δείτε το στιγμιότυπο οθόνης:

doc διαγράψτε κενές στήλες με κεφαλίδα 2

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

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


βέλος μπλε δεξιά φούσκα Διαγράψτε πολλές κενές στήλες σε εύρος / φύλλο εργασίας / βιβλίο εργασίας με το Kutools για Excel

Μερικές φορές, απλώς χρειάζεται να διαγράψετε τις κενές στήλες, το Kutools για Excel'S Διαγραφή κρυφών (ορατών) γραμμών και στηλών βοηθητικό πρόγραμμα μπορεί να σας βοηθήσει να ολοκληρώσετε αυτήν την εργασία με ευκολία.

Kutools για Excel : με περισσότερα από 300 εύχρηστα πρόσθετα Excel, δωρεάν δοκιμή χωρίς περιορισμό σε 30 ημέρες. 

Μετά την εγκατάσταση Kutools για Excel, κάντε τα εξής:

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

2. Στη συνέχεια κάντε κλικ στο κουμπί Kutools > Διαγραφή > Διαγραφή κρυφών (ορατών) γραμμών και στηλών, δείτε το στιγμιότυπο οθόνης:

3. Στην Διαγραφή κρυφών (ορατών) γραμμών και στηλών πλαίσιο διαλόγου, μπορείτε να επιλέξετε το πεδίο διαγραφής από το αναπτυσσόμενο μενού Look in όπως χρειάζεστε, επιλέξτε Στήλες από το Διαγραφή τύπου ενότητα και, στη συνέχεια, επιλέξτε Κενές στήλες από το Λεπτομερής τύπος ενότητα, δείτε το στιγμιότυπο οθόνης:

doc διαγράψτε κενές στήλες με κεφαλίδα 4

4. Στη συνέχεια κάντε κλικ στο κουμπί Ok κουμπί και μόνο οι κενές στήλες διαγράφονται ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:

doc διαγράψτε κενές στήλες με κεφαλίδα 5

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

Κάντε κλικ στην επιλογή Δωρεάν λήψη Kutools για Excel τώρα!

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

🤖 Kutools AI Aide: Επανάσταση στην ανάλυση δεδομένων με βάση: Ευφυής Εκτέλεση   |  Δημιουργία κώδικα  |  Δημιουργία προσαρμοσμένων τύπων  |  Αναλύστε δεδομένα και δημιουργήστε γραφήματα  |  Επίκληση Λειτουργιών Kutools...
Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

Περιγραφή


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (10)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
All I keep getting is "There are no Columns to delete as each one has more data (rows) than just a header." Yet I know for a fact I have about 700 columns with a header and no data. I have a spreadsheet with over 900 columns and only 200ish have data below the header. Another macro worked but I had to delete the header row. So I know this macro is not working correctly. What's up?
This comment was minimized by the moderator on the site
Hello, Paul
The VBA code works well if there is only one header row in the worksheet, if there are two or more header rows, it will pop out the prompt message you said.
So you need to check out if there are hidden heading rows in your data.
Thank you!
This comment was minimized by the moderator on the site
Hello, I have the same issue, I know by fact that I have a lot of columns that have only headers but the same Error "There are no Columns to delete as each one has more data (rows) than just a header." and I have checked there are no hidden rows in the data.
Can anyone help me ?
This comment was minimized by the moderator on the site
Hi, Simoch
In this case, you can upload your Excel file attachment here, so that we can help to check the problem if you don't mind.
Thank you!
This comment was minimized by the moderator on the site
Dear skyyang no need, It worked perfecty now !! thank you so much for that VBA code !
Rated 5 out of 5
This comment was minimized by the moderator on the site
Amazing! You are correct. There must have been something hidden. Everything is working great now. Thank you so much for the quick reply.
This comment was minimized by the moderator on the site
Can this be saved in one spreadsheet and run on other files?
This comment was minimized by the moderator on the site
Works perfectly. Greatly appreciated
This comment was minimized by the moderator on the site
OMG, this is genius!!! thank you
This comment was minimized by the moderator on the site
Hi, Thanks for the nice code above. Is it free to use?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations