Note: The other languages of the website are Google-translated. Back to English

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

Μερικές φορές, όταν εισάγετε δεδομένα στο Microsoft Excel από κάποια πηγή, όπως ιστοσελίδα, CSV, κείμενο κ.λπ., ενδέχεται να υπάρχουν πολλές κενές στήλες. Πρέπει να είναι χρονοβόρα για τη διαγραφή κάθε κενής στήλης μία προς μία. Επομένως, μερικοί από εμάς αναζητούν εύκολους τρόπους για την επίλυση αυτού του προβλήματος. Αυτό το άρθρο συλλέγει μερικές δύσκολες συμβουλές για να σας βοηθήσει να διαγράψετε γρήγορα πολλές κενές στήλες.

Διαγράψτε πολλές κενές στήλες στο φύλλο εργασίας με τον τύπο

Διαγράψτε πολλές κενές στήλες στο φύλλο εργασίας με κώδικα VBA

Διαγράψτε πολλές κενές στήλες στην επιλογή / ενεργό φύλλο / ολόκληρο βιβλίο εργασίας με μια χρήσιμη λειτουργία

Διαγράψτε πολλές κενές στήλες με κεφαλίδα χρησιμοποιώντας τον κώδικα VBA


Διαγράψτε πολλές κενές στήλες στο φύλλο εργασίας με τον τύπο

Στο Excel, μπορείτε να εφαρμόσετε έναν τύπο για να προσδιορίσετε εάν οι στήλες είναι κενές ή όχι και, στη συνέχεια, χρησιμοποιήστε το Είδος λειτουργία για να ταξινομήσετε όλες τις κενές στήλες και στη συνέχεια να τις διαγράψετε ταυτόχρονα Κάντε το ως εξής:

1. Προσθέστε μια νέα σειρά στο επάνω μέρος του εύρους δεδομένων σας, δείτε το στιγμιότυπο οθόνης:

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

=COUNTA(A2:A1048576)=0

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

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

5. Κλίκ OK κουμπί για να επιστρέψετε το Είδος διαλόγου και, στη συνέχεια, επιλέξτε Σειρά 1 από το Ταξινόμηση κατά πατήστε κάτω και επιλέξτε Τιμές κελιού από Ταξινόμηση τμήμα, επιλέξτε Μεγαλύτερο έως μικρότερο από το ΣΥΝΟΨΗ ενότητα, δείτε το στιγμιότυπο οθόνης:

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


Διαγράψτε πολλές κενές στήλες στο φύλλο εργασίας με κώδικα VBA

Εάν θέλετε να χρησιμοποιήσετε τη μακροεντολή VBA, τα πράγματα γίνονται πολύ πιο εύκολα. Ο παρακάτω κώδικας VBA μπορεί να σας βοηθήσει, κάντε το ως εξής:

1. Κρατήστε πατημένο το άλλος + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Διαγραφή πολλαπλών κενών στηλών στην επιλογή:

Sub DeleteEmptyColumns () 'Ενημέρωση από Extendoffice
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 Στη συνέχεια rng. Διαγραφή τερματισμού εάν Επόμενη εφαρμογή.ScreenUpdating = True End Sub

3. πάτα το F5 για να εκτελέσετε αυτήν τη μακροεντολή, επιλέξτε το εύρος εργασίας που χρειάζεστε στο αναδυόμενο παράθυρο διαλόγου. Δείτε το στιγμιότυπο οθόνης:

4. Πατήστε OK, τότε αφαιρούνται όλες οι κενές στήλες στην επιλογή. Δείτε το στιγμιότυπο οθόνης:


Διαγράψτε πολλές κενές στήλες στην επιλογή / ενεργό φύλλο / ολόκληρο βιβλίο εργασίας με μια χρήσιμη λειτουργία

Η καλύτερη Διαγραφή κρυφών (ορατών) γραμμών και στηλών χρησιμότητα του Kutools για Excel μπορεί να σας βοηθήσει να αφαιρέσετε γρήγορα πολλές κενές σειρές ή στήλες ταυτόχρονα.

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

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

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

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

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


Διαγράψτε πολλές κενές στήλες με κεφαλίδα χρησιμοποιώντας τον κώδικα VBA

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

1. Κρατήστε πατημένο το άλλος + F11 στο Excel και ανοίγει το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Κλίκ Κύριο θέμα > Μονάδα μέτρησηςκαι επικολλήστε την ακόλουθη μακροεντολή στο Μονάδα μέτρησης Παράθυρο.

Κωδικός VBA: Διαγράψτε όλες τις κενές στήλες με μια κεφαλίδα

Sub deleteblankcolwithheader()
'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 column(s) with only a header row have 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, όλες οι κενές στήλες με μόνο κεφαλίδα στο τρέχον φύλλο εργασίας διαγράφονται ταυτόχρονα. Δείτε στιγμιότυπα οθόνης:


Σχετικά άρθρα:

  • Διαγραφή όλων των κρυφών σειρών ή στηλών στο Excel
  • Εάν έχετε ένα μεγάλο βιβλίο εργασίας με πολλές κρυφές σειρές και στήλες και τώρα τα κρυφά δεδομένα δεν είναι διαθέσιμα, θα θέλατε να τα διαγράψετε όλα. Πώς θα μπορούσατε να τα διαγράψετε γρήγορα;
  • Διαγραφή όλων των εικόνων ή άλλων αντικειμένων στο Excel
  • Εάν θέλετε να διαγράψετε όλες τις εικόνες από το Microsoft Excel, ίσως είναι χρονοβόρο να επιλέξετε κάθε εικόνα και να τις διαγράψετε μία προς μία. Τα παρακάτω κόλπα μπορεί να διευκολύνουν τη δουλειά σας για να διαγράψετε όλες τις εικόνες.
  • Διαγραφή σειρών με βάση το χρώμα φόντου στο Excel
  • Πώς θα μπορούσατε να διαγράψετε ολόκληρες σειρές με βάση το χρώμα φόντου; Σε αυτό το παράδειγμα, πρέπει να διαγράψω όλες τις σειρές τις οποίες τα κελιά γεμίζουν με μπλε χρώμα φόντου όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης. Με αυτό το άρθρο, θα λάβετε ορισμένους κωδικούς για να επιτύχετε αυτήν την εργασία στο Excel.


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

Το Kutools για Excel λύνει τα περισσότερα από τα προβλήματά σας και αυξάνει την παραγωγικότητά σας κατά 80%

  • Επαναχρησιμοποίηση: Εισαγάγετε γρήγορα σύνθετοι τύποι, γραφήματα και οτιδήποτε έχετε χρησιμοποιήσει στο παρελθόν. Κρυπτογράφηση κυττάρων με κωδικό πρόσβασης Δημιουργία λίστας αλληλογραφίας και στείλτε email ...
  • Super Formula Bar (επεξεργαστείτε εύκολα πολλές γραμμές κειμένου και τύπου). Διάταξη ανάγνωσης (εύκολη ανάγνωση και επεξεργασία μεγάλου αριθμού κελιών). Επικόλληση σε φιλτραρισμένο εύρος...
  • Συγχώνευση κελιών / σειρών / στηλών χωρίς απώλεια δεδομένων · Περιεχόμενο διαχωρισμού κελιών Συνδυάστε διπλές σειρές / στήλες... Αποτροπή διπλών κυττάρων; Συγκρίνετε τα εύρη...
  • Επιλέξτε Διπλότυπο ή Μοναδικό Σειρές; Επιλέξτε Κενές σειρές (όλα τα κελιά είναι κενά). Σούπερ εύρεση και ασαφής εύρεση σε πολλά βιβλία εργασίας. Τυχαία επιλογή ...
  • Ακριβές αντίγραφο Πολλαπλά κελιά χωρίς αλλαγή της αναφοράς τύπου. Αυτόματη δημιουργία αναφορών σε πολλαπλά φύλλα? Εισαγωγή κουκκίδων, Πλαίσια ελέγχου και άλλα ...
  • Εξαγωγή κειμένου, Προσθήκη κειμένου, Κατάργηση κατά θέση, Αφαιρέστε το διάστημα; Δημιουργία και εκτύπωση υποσύνολων σελιδοποίησης. Μετατροπή περιεχομένου και σχολίων μεταξύ κελιών...
  • Σούπερ φίλτρο (αποθηκεύστε και εφαρμόστε σχήματα φίλτρων σε άλλα φύλλα). Προηγμένη ταξινόμηση ανά μήνα / εβδομάδα / ημέρα, συχνότητα και άλλα. Ειδικό φίλτρο με έντονη, πλάγια ...
  • Συνδυάστε βιβλία εργασίας και φύλλα εργασίας; Συγχώνευση πινάκων βάσει βασικών στηλών. Διαχωρίστε τα δεδομένα σε πολλά φύλλα; Μαζική μετατροπή xls, xlsx και PDF...
  • Περισσότερα από 300 ισχυρά χαρακτηριστικά. Υποστηρίζει Office / Excel 2007-2021 και 365. Υποστηρίζει όλες τις γλώσσες. Εύκολη ανάπτυξη στην επιχείρηση ή τον οργανισμό σας. Πλήρεις δυνατότητες δωρεάν δοκιμής 30 ημερών. Εγγύηση επιστροφής χρημάτων 60 ημερών.
kte καρτέλα 201905

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

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
κάτω μέρος γραφείου

Σχόλια (8)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Μου φάνηκε πολύ πιο απλό να πάω στη γραμμή μετά την τελευταία γραμμή δεδομένων μου, να πληκτρολογήσω "Shift-Ctrl-End" για να επισημάνω όλες τις κενές γραμμές που ακολούθησαν (πολύ πιο γρήγορα), να κάνω δεξί κλικ και να εισάγω "διαγραφή όλων των γραμμών/στήλων". Το σύστημα δεν έχασε τόσο χρόνο ψάχνοντας με αυτόν τον τρόπο και έτσι ήταν καθαρό εν ριπή οφθαλμού και τα αρχεία που ήταν 20 MB έπεσαν σε μέγεθος 20 kb.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
οι παραπάνω λεπτομέρειες είναι πολύ χρήσιμες για προσωπική μου χρήση. Ευχαριστώ για την καθοδήγησή σας. M.KARTHIKEYAN :-)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ χρήσιμη σελίδα. Σας ευχαριστώ. :-) Η πρόκλησή μου είναι ότι έχω στήλες με κεφαλίδες, αλλά όχι δεδομένα σε αυτήν τη στήλη. Υπάρχει μόνο η κεφαλίδα. Πώς θα πήγαινε κανείς για τη διαγραφή στηλών όπου δεν υπάρχουν δεδομένα, αλλά η κεφαλίδα είναι εκεί; :o
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας, αυτό που αναφέρεστε είναι πολύ χρήσιμο. Θέλω μια μικρή βοήθεια από την πλευρά σου. Καθημερινά κατεβάζω ορισμένα αρχεία και χρησιμοποιώντας το pivot προετοιμάζω τις αναφορές. Είναι καθημερινή δουλειά για μένα και διαδικασία ρουτίνας. Πώς μπορώ να το κάνω χωρίς τη χρήση του pivot. Π.χ.: Αν ετοίμασα τις αναφορές χθες σε αρχείο Excel "A". Την επόμενη μέρα στο αρχείο Excel "A" απλώς αντικαθιστώ τα νέα δεδομένα αρχείου "B" Excel. Με αυτήν την αυτόματη αναφορά θα δημιουργηθεί; Είναι δυνατόν?
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, μπορεί κάποιος να καθοδηγήσει πώς μπορώ να διαγράψω κενά κελιά σε μια γραμμή ή στήλη...σημειώστε ολόκληρη κενή στήλη ή σειρές... μόνο κενό κελί που πρέπει να διαγράψω σε μια στήλη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Χαίρετε Κ.


προσπαθήστε να εφαρμόσετε τον παρακάτω κώδικα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστώ την πολύ χρήσιμη σελίδα της με βασική επιλογή excel :)
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Διέγραψε όλα τα ονόματά μου στη στήλη του ονόματος μου! Ωχ!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL