Excel - Μια μακροεντολή για την αντιγραφή και επικόλληση δεδομένων στο επόμενο κενό κελί

Θέμα

Έχω δύο φύλλα σε ένα βιβλίο εργασίας. Το φύλλο1 είναι για περίληψη και το φύλλο2 είναι για τα ακατέργαστα δεδομένα. Πρέπει να ενημερώσω / εισάγω / αντιγράψω δεδομένα στο φύλλο2 στο φύλλο1. Παρακάτω είναι ο δείκτης macro code:

 Υπολογίστε την περιοχή επιλογής ("A6: AT6") Επιλέξτε Selection.Copy Sheets ("ImprovementLog") Επιλέξτε Range ("B283") Επιλέξτε Selection.PasteSpecial Paste: = xlValues, Operation: = xlNone, SkipBlanks: False, Transpose: = Ψεύτικο εύρος ("B283") Επιλέξτε End Sub 

Ο παραπάνω κώδικας λειτουργεί, αλλά κάθε φορά που αλλάζω δεδομένα στο Φύλλο2, το Φύλλο1 αντικαθιστά μόνο τα δεδομένα του. Αυτό που χρειάζομαι είναι ότι κάθε φορά που αλλάζω δεδομένα στο Φύλλο2, θα πρέπει να προστεθεί (προστεθεί) στο Φύλλο1.

Λύση

Πρέπει να γνωρίζετε την τελευταία χρησιμοποιούμενη σειρά. Here Range ("B283") Η επιλογή βρίσκει το τελευταίο χρησιμοποιημένο κελί στη στήλη B και στη συνέχεια επιλέγει ένα κελί κάτω από αυτό

 lMaxRows = Κύτταρα (Rows.Count, "B") Τέλος (xlUp) .Row Range ("B" & lMaxRows +1). 

Χάρη στην rizvisa1 για αυτή την συμβουλή.