- Αντιγραφή (αποκοπή) και επικόλληση ενός κελιού
- Αντιγραφή επιλογής
- Αντιγραφή (Αποκοπή) και Επικόλληση εύρους κελιών
- Αντιγραφή (αποκοπή) και επικόλληση ολόκληρης στήλης
- Αντιγραφή (αποκοπή) και επικόλληση ολόκληρης σειράς
- Αντιγραφή (Αποκοπή) και Επικόλληση σε άλλο φύλλο εργασίας ή τετράδιο εργασίας
- Επικόλληση αξίας
- Επικόλληση Ειδικού
Σε αυτό το σεμινάριο, θα μάθετε πολλές διαφορετικές μεθόδους για να αντιγράψετε και να επικολλήσετε και να κόψετε και να επικολλήσετε χρησιμοποιώντας μια μακροεντολή VBA. Διαβάστε το συνοδευτικό σεμινάριο για την επικόλληση αξίας και την επικόλληση ειδικών για πιο προηγμένες επιλογές αντιγραφής και επικόλλησης.
Για να χρησιμοποιήσετε αυτόν τον κωδικό: Ανοίξτε το Visual Basic Editor (Alt + F11), Εισαγάγετε μια νέα ενότητα (Εισαγωγή> Ενότητα) και αντιγράψτε και επικολλήστε τον επιθυμητό κώδικα στη μονάδα.
Αντιγραφή (αποκοπή) και επικόλληση ενός κελιού
Αυτό το παράδειγμα αντιγράφει ή κόβει και επικολλά ένα κελί, το Α1 στο Β1:
| 123456789 | Sub Paste_OneCell ()'Αντιγραφή και επικόλληση ενός κελιούΕύρος ("A1"). Εύρος αντιγραφής ("B1")'Cut and Paste Single CellΕύρος ("A1"). Εύρος κοπής ("B1")Τέλος υπο |
Αντιγραφή επιλογής
Εάν θέλετε να αντιγράψετε την ενεργή επιλογή, χρησιμοποιήστε αυτό:
| 123456789101112 | Sub CopySelection ()«Επικόλληση σε καθορισμένο εύροςΕύρος Selection.copy ("b1")'Offset Paste (αντισταθμίζει 2 κελιά προς τα κάτω και 1 προς τα δεξιάΕπιλογή.αντιγραφήSelection.offset (2,1) .πάσταApplication.CutCopyMode = ΛάθοςΤέλος υπο |
Αντιγραφή (Αποκοπή) και Επικόλληση εύρους κελιών
Αυτό το παράδειγμα αντιγράφει ή κόβει και επικολλά μια σειρά κελιών, A1: A3 σε B1: B3:
| 123456789 | Sub Paste_Range ()«Αντιγράψτε και επικολλήστε μια σειρά κελιώνΕύρος ("A1: A3"). Εύρος αντιγραφής ("B1: B3")«Κόψτε και επικολλήστε μια σειρά κυττάρωνΕύρος ("A1: A3"). Εύρος κοπής ("B1: B3")Τέλος υπο |
Αντιγραφή (αποκοπή) και επικόλληση ολόκληρης στήλης
Παρακάτω θα δείξουμε μερικά γρήγορα παραδείγματα. Διαβάστε το άρθρο μας σχετικά με την αντιγραφή και επικόλληση γραμμών και στηλών για λεπτομερή παραδείγματα, επεξηγήσεις και παραλλαγές.
Αυτό το παράδειγμα αντιγράφει ή κόβει και επικολλά μια ολόκληρη στήλη, το Α στο Β:
| 12345678910 | Sub PasteOneColumn ()Αντιγραφή και επικόλληση στήληςΕύρος ("A: A"). Εύρος αντιγραφής ("B: B")«Αποκοπή και επικόλληση στήληςΕύρος ("A: A"). Εύρος κοπής ("B: B")Τέλος υπο |
Αντιγραφή (αποκοπή) και επικόλληση ολόκληρης σειράς
Αυτό το παράδειγμα αντιγράφει ή κόβει και επικολλά μια ολόκληρη σειρά, 1 πάνω σε 2:
| 12345678910 | Sub Paste_OneRow ()'Αντιγραφή και επικόλληση σειράςΕύρος ("1: 1"). Εύρος αντιγραφής ("2: 2")'Cut and Paste RowΕύρος ("1: 1"). Εύρος κοπής ("2: 2")Τέλος υπο |
Αντιγραφή (Αποκοπή) και Επικόλληση σε άλλο φύλλο εργασίας ή τετράδιο εργασίας
| 1234567891011121314 | Υποεπικολλήστε_Other_Sheet_or_Book ()«Αποκοπή ή αντιγραφή και επικόλληση σε άλλο φύλλο εργασίαςΦύλλα εργασίας ("φύλλο1"). Εύρος ("Α1"). Αντιγραφή φύλλων εργασίας ("φύλλο2"). Εύρος ("Β1") "ΑντιγραφήΦύλλα εργασίας ("φύλλο1"). Εύρος ("Α1"). Κόψτε φύλλα εργασίας ("φύλλο2"). Εύρος ("Β1") "Αποκοπή«Αποκοπή ή αντιγραφή και επικόλληση σε άλλο βιβλίο εργασίαςΤετράδια εργασίας ("book1.xlsm"). Φύλλα εργασίας ("φύλλο1"). Εύρος ("A1"). Αντιγραφή _Βιβλία εργασίας ("book2.xlsm"). Φύλλα εργασίας ("φύλλο1"). Εύρος ("B1") "ΑντιγραφήΤετράδια εργασίας ("book1.xlsm"). Φύλλα εργασίας ("sheet1"). Εύρος ("A1"). Cut _Τετράδια εργασίας ("book2.xlsm"). Φύλλα εργασίας ("φύλλο1"). Εύρος ("B1") "CutApplication.CutCopyMode = ΛάθοςΤέλος υπο |
Επικόλληση αξίας
Κανονικά, όταν αντιγράφετε και επικολλάτε, επικολλάτε όλες τις ιδιότητες ενός κελιού: μορφοποίηση, τύπους κλπ … Η επικόλληση αξίας σάς επιτρέπει να αντιγράψετε και να επικολλήσετε τις τιμές των κελιών και τίποτα άλλο. Ο ευκολότερος τρόπος για να επικολλήσετε αξία στο VBA είναι να καθορίσετε την τιμή του κελιού απευθείας:
| 123456789101112131415 | Sub ValuePaste ()'Value Paste CellsΕύρος ("B1"). Τιμή = Εύρος ("A1"). ΤιμήΕύρος ("B1: B3"). Value = Range ("A1: A3"). Τιμή«Ορίστε τιμές μεταξύ φύλλων εργασίαςΦύλλα εργασίας ("φύλλο2"). Εύρος ("Α1"). Αξία = Φύλλα εργασίας ("φύλλο 1"). Εύρος ("Α1"). Τιμή«Ορίστε τιμές μεταξύ βιβλίων εργασίαςΤετράδια εργασίας ("book2.xlsm"). Φύλλα εργασίας ("φύλλο1"). Εύρος ("A1"). Αξία = _Τετράδια εργασίας ("book1.xlsm"). Φύλλα εργασίας ("φύλλο1"). Εύρος ("A1"). ΤιμήApplication.CutCopyMode = ΛάθοςΤέλος υπο |
Επικόλληση Ειδικού
Το Paste Special σάς επιτρέπει να αντιγράψετε και να επικολλήσετε συγκεκριμένες ιδιότητες κελιών (παραδείγματα: μορφές, τιμές, πλάτη στηλών κ.λπ.). Σας επιτρέπει επίσης να εκτελείτε ειδικές λειτουργίες επικόλλησης (παραδείγματα: παράλειψη κενών, μεταφορά). Θα δούμε αρκετά παραδείγματα παρακάτω, αλλά για σε βάθος διαβάστε το σεμινάριό μας για την επικόλληση αξίας και την επικόλληση ειδικών.
| 12345678910111213141516171819 | Sub PasteSpecial ()«Εκτέλεση μίας Ειδικής Λειτουργίας Επικόλλησης:Εύρος ("A1"). Αντιγραφή«Επικόλληση μορφώνΕύρος ("B1"). PasteSpecial Paste: = xlPasteFormats«Επικόλληση πλάτους στήληςΕύρος ("B1"). PasteSpecial Paste: = xlPasteColumnWidths«Επικόλληση τύπωνΕύρος ("B1"). PasteSpecial Paste: = xlPasteFormulas«Εκτελέστε πολλαπλές ειδικές λειτουργίες επικόλλησης ταυτόχρονα:Εύρος ("A1"). Αντιγραφή«Επικόλληση μορφών και μεταφοράΕύρος ("B1"). PasteSpecial Paste: = xlPasteFormats, Λειτουργία: = xlΚανένα, SkipBlanks: = _Λάθος, Μεταφορά: = ΣωστόApplication.CutCopyMode = ΛάθοςΤέλος υπο |
Διαγραφή Πρόχειρο
Μετά την αντιγραφή και επικόλληση, ίσως θέλετε να καθαρίσετε το πρόχειρο (το κάνουμε σε μερικά από τα παραδείγματα κώδικα παραπάνω). Για να καθαρίσετε το πρόχειρο του Excel, ορίζουμε την εφαρμογή.CutCopyMode σε False:
| 1 | Application.CutCopyMode = Λάθος |
Αυτό θα καθαρίσει το πρόχειρο του Excel. Ωστόσο, δεν θα καθαρίσει το Πρόχειρο των Windows. Για να καθαρίσετε το πρόχειρο του παραθύρου ακολουθήστε τις οδηγίες εδώ.
