
23-10-15, 23:36
|
 | Συντονιστής Όνομα: Σπύρος Τσιλιγιάννης Έκδοση λογισμικού Office: Ms-Office 2003, Ms-Office 2007, Ms-Office 2010, Ms-Office 2013, Ms-Office 2016, Ms-Office 365 Γλώσσα λογισμικού Office: Ελληνική, Αγγλική | | Εγγραφή: 22-11-2011 Περιοχή: Αθήνα
Μηνύματα: 2.321
| |
Στο βιβλίο που ακολουθεί, υπάρχει λύση με VBA, όπου συμβαίνουν τα εξής:
1 Τρέχουμε τον κώδικα, από το κουμπί του φύλλου.
2
Ανοίγει Inputbox, στο οποίο, ορίζουμε την περιοχή, που θέλουμε (πχ b2:b20)
3 Πιέζουμε, Ok Αποτέλεσμα:
Όλα τα συνεχόμενα κελιά, της περιοχής που επιλέξαμε,
θα συγχωνευθούν, εφ' όσον περιέχουν την ίδια τιμή.
Για τον κώδικα, το κενό κελί, θεωρείται τιμή.
Οπότε αν υπάρχουν δύο συνεχόμενα κενά θα συγχωνευθούν. Σημείωση:
Ο κώδικας, μας επιτρέπει να επιλέξουμε, μια ή και περισσότερες στήλες,
που για το συγκεκριμένο παράδειγμα, σημαίνει, ότι αν επιλέξουμε, τις b, c στήλες
θα συγχωνεύσει, την b, ως προς ονόματα και την c, ως προς Yes/No...
|