Ευχαριστώ τον Mike που παρείχε την ερώτηση του Excel αυτήν την εβδομάδα:
Προσπαθώ να γράψω μια μακροεντολή και είμαι νέος σε αυτό. Έχω ένα υπολογιστικό φύλλο Excel με μήκος εκατοντάδων σελίδων και πολλές στήλες. Θα ήθελα η μακροεντολή να αναζητήσει μόνο τη στήλη "A" για "" (χωρίς δεδομένα) και στη συνέχεια να χρησιμοποιήσει τα δεδομένα από την προηγούμενη σειρά, επιλέγοντας από τις στήλες "A" έως "CB" και στη συνέχεια να συμπληρώσει μέχρι να ανιχνεύσει δεδομένα σε ένα κελί στη στήλη "Α". Τότε πρέπει να επαναληφθεί μέχρι να γίνουν όλα.
Η παρακάτω μακροεντολή θα κάνει το κόλπο:
Public Sub CopyDown() LastRow = Range("A65536").End(xlUp).Row For i = 1 To LastRow If Range("A" & i).Value = "" Then Range("A" & i - 1 & ":CB" & i - 1).Copy Destination:=Range("A" & i) End if Next i End SubΩστόσο, ίσως να μην χρειάζεται να χρησιμοποιήσετε μια μακροεντολή για να κάνετε αυτό που θέλετε. Ένας γρηγορότερος τρόπος είναι να χρησιμοποιήσετε τα κόλπα που εισήχθησαν στις 12/12/98 για να επιτύχετε το ίδιο πράγμα χωρίς μακροεντολή.
Το πρώτο κόλπο είναι να επιλέξετε όλα τα κενά κελιά στην επιλογή σας. Επισήμανση από Α1 έως CB στην τελευταία σειρά των δεδομένων σας. Επιλέξτε Επεξεργασία> GoTo> Ειδικά> Κενά> ΟΚ.
Στη συνέχεια, θέλετε να εισαγάγετε τον ίδιο τύπο σε όλα αυτά τα κενά κελιά. Για να το κάνετε αυτό, πατήστε το πλήκτρο Equals, πατήστε το επάνω βέλος και, στη συνέχεια, κρατήστε πατημένο το Ctrl και πατήστε Enter. Αυτό θα αναπαράγει τον τύπο σε όλα τα κενά κελιά.
Τέλος, αλλάξτε τους τύπους σε τιμές. Επισημάνετε ολόκληρο το εύρος δεδομένων, επιλέξτε Επεξεργασία> Αντιγραφή, Επεξεργασία> Επικόλληση ειδικών> Τιμές> ΟΚ.
Σημειώστε ότι εάν τα αρχικά δεδομένα του Mike περιείχαν τύπους ή περιείχαν μερικές σειρές που ήταν εν μέρει κενές, τότε αυτή η διαδικασία δεν θα λειτουργήσει, θα ήταν καλύτερα να ακολουθήσετε τη μακροεντολή που φαίνεται παραπάνω.
