Αυτό το άρθρο θα δείξει πώς να χρησιμοποιήσετε το VBA για να αντιγράψετε μια σειρά κελιών σε άλλο φύλλο ή βιβλίο εργασίας.
Για περισσότερες πληροφορίες, διαβάστε το σεμινάριο αντιγραφής και επικόλλησης VBA.
Αντιγραφή στο υπάρχον φύλλο
Για να αντιγράψετε μια σειρά κελιών από ένα φύλλο σε άλλο φύλλο που υπάρχει ήδη, μπορούμε να χρησιμοποιήσουμε τον ακόλουθο κώδικα:
123456 | Sub CopyAndPasteActiveSheet.Range ("A1: D10"). ΕπιλέξτεΕπιλογή. ΑντιγραφήΦύλλα ("Φύλλο2"). ΕπιλέξτεActiveSheet.PasteΤέλος υπο |
Αυτό θα αντιγράψει τις πληροφορίες που είναι αποθηκευμένες στο ενεργό εύρος φύλλων A1: D10 και θα τις επικολλήσει σε ένα υπάρχον φύλλο2. Καθώς δεν έχουμε καθορίσει το εύρος για επιλογή στο Φύλλο 2, θα το επικολλήσει αυτόματα στο Εύρος ("A1"). Θα επικολλήσει επίσης οποιαδήποτε μορφοποίηση στο Φύλλο 2 που ήταν στην περιοχή του Φύλλου 1.
Αν θέλουμε να το επικολλήσουμε σε διαφορετική θέση στο Φύλλο 2, μπορούμε να επιλέξουμε το αρχικό κελί ή το εύρος για επικόλληση. Ο παρακάτω κώδικας θα επικολλήσει τις πληροφορίες που ξεκινούν στο κελί Ε2.
1234567 | Sub CopyAndPasteToRangeActiveSheet.Range ("A1: D10"). ΕπιλέξτεΕπιλογή. ΑντιγραφήΦύλλα ("Φύλλο2"). ΕπιλέξτεΕύρος ("E1"). ΕπιλέξτεActiveSheet.PasteΤέλος υπο |
Για να επικολλήσουμε μόνο τις τιμές στο Φύλλο 2 και να μην συμπεριλάβουμε τη μορφοποίηση, μπορούμε να χρησιμοποιήσουμε τον ακόλουθο κώδικα. Για άλλη μια φορά, δεν χρειάζεται να καθορίσουμε το εύρος στη σελίδα, εάν επιθυμούμε να επικολλήσουμε στο κελί A1.
123456 | Sub CopyAndPasteValuesActiveSheet.Range ("A1: D10"). ΕπιλέξτεΕπιλογή. ΑντιγραφήΦύλλα ("Φύλλο2"). ΕπιλέξτεSelection.PasteSpecial Paste: = xlPasteValuesΤέλος υπο |
Αντιγραφή σε νέο φύλλο
Για να αντιγράψετε και στη συνέχεια να επικολλήσετε σε ένα νέο φύλλο, μπορούμε να χρησιμοποιήσουμε τον ακόλουθο κώδικα:
123456 | Υπο CopyAndPasteNewSheetActiveSheet.Range ("A1: D10"). ΕπιλέξτεΕπιλογή. ΑντιγραφήSheets.Add After: = ActiveSheetActiveSheet.PasteΤέλος υπο |
Για να αντιγράψουμε μόνο τιμές, μπορούμε να χρησιμοποιήσουμε για άλλη μια φορά xlPasteValues.
Αντιγραφή στο υπάρχον τετράδιο εργασίας
Για να αντιγράψετε και να επικολλήσετε εντελώς σε ένα διαφορετικό βιβλίο εργασίας, μπορούμε είτε να έχουμε ήδη ανοιχτά και τα δύο βιβλία εργασίας, είτε να χρησιμοποιήσουμε τον κώδικα για να ανοίξουμε ένα άλλο βιβλίο εργασίας και, στη συνέχεια, να το επικολλήσουμε σε αυτό το βιβλίο εργασίας.
Αυτός ο κώδικας παρακάτω αντιγράφει σε ένα υπάρχον βιβλίο εργασίας που είναι ήδη ανοιχτό.
1234567 | Sub CopyAndPasteExistingBookΕύρος ("A1: D10"). ΕπιλέξτεΕπιλογή. ΑντιγραφήWindows ("CombinedBranches.xlsx"). ΕνεργοποιήστεSheets.Add After: = ActiveSheetActiveSheet.PasteΤέλος υπο |
Προγραμματισμός VBA | Το Code Generator λειτουργεί για εσάς!
Αυτός ο κώδικας παρακάτω θα αντιγράψει και επικολλήσει σε ένα νέο φύλλο σε ένα 2ο βιβλίο εργασίας που θα ανοίξει από τον κώδικα.
1234567 | Sub CopyAndPasteOpenWorkbookΕύρος ("A1: D9"). ΕπιλέξτεΕπιλογή. ΑντιγραφήΒιβλία εργασίας. Άνοιγμα ονόματος αρχείου: = "C: \ ExcelFiles \ CombinedBranches.xlsx"Sheets.Add After: = ActiveSheetActiveSheet.PasteΤελικό φύλλο |
ΣΥΜΒΟΥΛΗ: αντικαταστήστε το όνομα του αρχείου στα βιβλία εργασίας. Ανοίξτε το όρισμα με το δικό σας όνομα αρχείου!
Αντιγραφή στο νέο βιβλίο εργασίας
Μπορούμε επίσης να αντιγράψουμε και να επικολλήσουμε σε ένα νέο βιβλίο εργασίας.
123456 | Sub CopyAndPasteNewWorkbookΕύρος ("A1: D9"). ΕπιλέξτεΕπιλογή. ΑντιγραφήΤετράδια εργασίας. ΠροσθήκηActiveSheet.PasteΤέλος υπο |