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

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

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

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

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

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

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

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

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

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

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, κάντε το ως εξής:

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

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