Δυσλειτουργία διαγραφής γραμμών σε πίνακα του Excel

Δοκίμασα το φιλτράρισμα των κενών εγγραφών από την επιλογή στις κεφαλίδες του πίνακα ωστόσο χωρίς επιτυχία καθώς εμφάνιζε πάλι τις κενές (και υποτίθεται διαγραμμένες) γραμμές.

Σε απόπειρα διαγραφής η αντίδραση της εφαρμογής ήταν η ίδια, οι γραμμές παρέμεναν εκεί.

Σχετικά με το σφάλμα της μακροεντολής δεν μπόρεσα να βρω κάποια λύση.

Ο κώδικας VB που επικόλλησα λειτουργεί για καθαρό πίνακα excel.

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

Έχετε δοκιμάσει την επιλογή φιλτραρίσματος που ανέφερα παραπάνω;

Επιλέξτε την επάνω σειρά ή τη σειρά κεφαλίδας και κάντε κλικ στο Φίλτρο στην κορδέλα. Τώρα επιλέξτε Κενές εγγραφές κάνοντας κλικ στο Φίλτρο εικονίδιο δίπλα στη στήλη.

Μπορείτε να δοκιμάσετε το VBScript αντ 'αυτού;

1. Δημιουργήστε αντίγραφα ασφαλείας του αρχείου Excel ως <filename>_bkp. (ΠΡΈΠΕΙ)
2. Ανοίξτε το αρχείο Excel και πατήστε Alt + F11 για να ανοίξετε το πρόγραμμα επεξεργασίας VBA
3. Μόλις ανοίξει το VBA Editor, αντιγράψτε τον παρακάτω κώδικα και αποθηκεύστε τον.
4. Κάντε κλικ στο εικονίδιο Εκτέλεση. Τώρα ελέγξτε αν Οι κενές σειρές διαγράφονται.

Sub DeleteBlankRows()
    Dim ws As Worksheet
    Dim rng As Range
    Dim r As Long
    Set ws = ActiveSheet
    Set rng = ws.UsedRange
    For r = rng.Rows.Count To 1 Step -1
        If Application.WorksheetFunction.CountA(rng.Rows(r)) = 0 Then
            rng.Rows(r).Delete
        End If
    Next r
End Sub

Γεια σου!

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

Επιπλέον, όταν εργάζεστε με μεγάλους πίνακες, το Excel μερικές φορές δεν μπορεί να επαναφέρει σωστά τις διαγραμμένες γραμμές με Ctrl+Zτο , επομένως η αναίρεση δεν λειτουργεί όπως αναμένεται. Για να διορθώσετε αυτό το πρόβλημα, θα πρέπει να χρησιμοποιήσετε το "Delete Table Rows" αντί να πατήσετε απλώς το πλήκτρο Delete, το οποίο καταργεί εντελώς τη σειρά από τον πίνακα.

Συμβουλή για μεγάλα σύνολα δεδομένων.

• Να εργάζεστε πάντα σε ένα αντίγραφο ασφαλείας.
• Κατά την εξαγωγή, βεβαιωθείτε ότι έχετε καταργήσει όλες τις κενές γραμμές πριν από την εξαγωγή, χρησιμοποιώντας είτε Ctrl + G → Special → Blanks → Delete Αυτό λειτουργεί όταν δεν υπάρχουν κενά κελιά αλλά υπάρχουν κενές γραμμές.

Εάν δεν λειτούργησε, τότε φιλτράρετε τις κενές εγγραφές και αφαιρέστε τις ταυτόχρονα.

Ενημερώστε με αν έχετε περαιτέρω ερωτήσεις.