[VBA] Διαγραφή γραμμών

[ΔΗΜΗΤΡΙΟΣ]

Δεν διαγράφονται κάποιες γραμμές όταν υπάρχουν κενά κελιά.

[kapetang]

Καλησπέρα

Δημήτρη, για να δεις τι συμβαίνει, αρίθμησε τις γραμμές στη στήλη I από 1 έως 30.

Εφαρμόζοντας ακολούθως τον κώδικα θα δεις ότι δεν διαγράφονται οι γραμμές 21, 23, 25, 27, και 29. Γιατί;

Όταν διαγράφεται μία γραμμή οι από κάτω γραμμές μετακινούνται μία γραμμή προς τα πάνω

Όταν διαγράφεται η 20 οι από κάτω γραμμές μετακινούνται προς τα πάνω και συνεπώς η 21 γίνεται 20, 22 γίνεται 21 και τελικά η 30 γίνεται 29.

Όταν ο κώδικας διαγράφει μια άλλη γραμμή έχουμε πάλι μετακίνηση και νέα αρίθμηση.

Αποτέλεσμα: Κάθε γραμμή που παίρνει τη θέση της διαγραμμένης, δεν εξετάζεται από τον κώδικα και δεν διαγράφεται.

Για να αντιμετωπιστεί το πρόβλημα, ο κώδικας θα πρέπει να διαγράφει τις γραμμές, από κάτω προς τα πάνω.

Αυτό κάνει ο παρακάτω κώδικας:

Sub DeleteRowIfCellBlank1()

    Dim Cell As Range, i As Long

    For i = Range("A1:A30").Rows.Count To 1 Step -1
        Set Cell = Range("a1:a30")(i)
        If Cell.Value = "" Then Cell.EntireRow.Delete
    Next

End Sub

[ΔΗΜΗΤΡΙΟΣ]

Καλημέρα Γίώργο!
Ο κώδικας αναφέρετε στην στήλη Α αλλά από απροσεξία μου παρουσίασα το πρόβλημα στην στήλη Β.
Τώρα μόλις πήγα να διορθώσω το αρχείο που έστειλα αλλά είδα ότι κατάλαβες το λάθος μου.

Σε ευχαριστώ πάρα πολύ για την αναλυτική σου εξήγηση!

[kapetang]

Να είσαι καλά και καλή συνέχεια.