Καλησπέρα.
Αυτό το ζητούμενο, δεν μπορεί να γίνει με τύπους,
ή καλύτερα δεν αξίζει να γίνει με τύπους, διότι θα πρέπει:
Να γράψουμε σε διπλανή περιοχή τον τύπο,
να τραβήξουμε δεξιά και κάτω, να αφήσουμε και την παλιά περιοχή ή
να αντιγράψουμε το αποτέλεσμα ως τιμές, επάνω στην παλιά .... κλπ
Από την άλλη, δεν είναι εύκολο να γίνει εφαρμογή σε κάθε στήσιμο φύλλου,
που κάποιος χρήστης θα ήθελε...
Πάμε λοιπόν σε μια λύση με κώδικα...
Προσοχή:
Συνιστάται
μόνο για αλφαριθμητικά.
Στο βιβλίο υπάρχει μια ρουτίνα,
που εξαφανίζει τους αριθμούς, από κελιά με αλφαριθμητικά.
Σημειώσεις:
1
Όπου Sh1, το κωδικό όνομα φύλλου.
2
Ο κώδικας, θα διαγράψει αριθμούς από την UsedRange του φύλλου.
3
Προσοχή, θα διαγραφούν
όλοι οι αριθμοί, στην UsedRange,
ακόμα κι αν σε ένα κελί, δεν υπάρχουν γράμματα...
Οι ακέραιοι θετικοί, θα διαγραφούν.
Οι ακέραιοι αρνητικοί, θα διαγραφούν, εκτός το (-).
Αντίστοιχα οι δεκαδικοί θετικοί, θα διαγραφούν, εκτός το (,) και τέλος
οι δεκαδικοί αρνητικοί, θα διαγραφούν, εκτός το (- και ,).
Ακόμα...
Οι ημερομηνίες μορφής 1/1/2018, θα διαγραφούν, εκτός τα (//)
Επομένως, σκεφθείτε τι θέλετε, πριν τρέξει ο κώδικας...
4
Αν θέλετε να διαγράφει κατ' επιλογήν, αντικαταστήστε την γραμμή:
Κώδικας:
For Each c In Sh1.UsedRange
με την γραμμή:
Κώδικας:
For Each c In Selection