Παρακάτω θα δούμε ένα πρόγραμμα στο Excel VBA ότι διαγράφει κενά κελιά.
Κατάσταση:
1. Αρχικά, δηλώνουμε δύο μεταβλητές τύπου Integer. Ένας ονομαζόμενος μετρητής και ένας ονομαζόμενος i. Αρχικοποιούμε τον μετρητή μεταβλητών με τιμή 0.
Dim counter Ως ακέραιος, i Ως ακέραιος
μετρητής = 0
2. Στη συνέχεια, ελέγχουμε για κάθε κελί αν είναι κενό ή όχι (σημαίνει ότι δεν είναι ίσο με). Χρησιμοποιούμε ένα βρόχο για αυτό. Εάν δεν είναι κενό, γράφουμε την τιμή στη στήλη Β. Ο μετρητής παρακολουθεί τον αριθμό των κελιών που έχουν αντιγραφεί στη στήλη Β. Κάθε φορά που αντιγράφουμε μια τιμή στη στήλη Β, αυξάνουμε τον μετρητή κατά 1. Αυτό το κομμάτι του προγράμματος φαίνεται ως εξής:
Για i = 1 έως 10
Εάν κελιά (i, 1). Αξία "" Τότε
Κελιά (μετρητής + 1, 2). Αξία = Κελιά (i, 1). Αξία
μετρητής = μετρητής + 1
Τέλος εαν
Επόμενο i
Αποτέλεσμα μέχρι στιγμής:
3. Τέλος, αδειάζουμε το εύρος ("A1: A10"), αντιγράφουμε τις τιμές της στήλης B στη στήλη A και αδειάζουμε το εύρος ("B1: B10").
Εύρος ("A1: A10"). Τιμή = ""
Εύρος ("A1: A10"). Τιμή = Εύρος ("B1: B10"). Τιμή
Εύρος ("B1: B10") = ""
Αποτέλεσμα:
