[VBA] Διαγραφή Μη Συνεχόμενων Κενών Κελιών Excel

[kasnikos]

Καλησπέρα σας.

Χρειάζομαι την βοήθεια σας στο παρακάτω πρόβλημα μου:

Στον κώδικα που έχω γράψει δεν μπορώ να διαγράψω τα μη συνεχόμενα κενά κελιά.

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

Σας επισυνάπτω ενδεικτικά ένα αρχείο excel και τον κώδικα αρχείο txt.

Σας ευχαριστώ εκ των προτέρων για την βοήθεια σας.

[ChrisGT7]

Καλησπέρα Νίκο,

Έχω την εντύπωση πως με την παρακάτω διαδικασία δε θα χρειαστείς κώδικα για να διαγράψεις όλα τα κενά κελιά που βρίσκονται ανάμεσα στα δεδομένα.

Δοκίμασε τα παρακάτω βήματα στο αρχείο σου:

1. Επέλεξε το Α2 και πάντα Ctrl + Shift + End.
2. Στη συνέχεια πάτα Ctrl+G > Ειδικά σε... > Κενά.
3. Μετά Ctrl + - και στο νέο παράθυρο Μετακίνηση κελιών προς τα επάνω.

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