Όταν έχουμε να κάνουμε με πολλαπλά φύλλα του Excel, μερικές φορές πρέπει να αντιγράψουμε δεδομένα από το ένα φύλλο στο άλλο. Εφαρμόζοντας VBA είναι η πιο αποτελεσματική, γρήγορη και ασφαλής μέθοδος για να εκτελέσετε οποιαδήποτε λειτουργία στο Excel. Σε αυτό το άρθρο, θα σας δείξουμε πώς να αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο στο Excel με το Μακροεντολή VBA .

Λήψη βιβλίου εργασίας

Μπορείτε να κατεβάσετε το δωρεάν βιβλίο ασκήσεων Excel από εδώ.

Αντιγραφή και επικόλληση από ένα φύλλο εργασίας σε ένα άλλο.xlsm

15 μέθοδοι με VBA για την αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο στο Excel

Σε αυτή την ενότητα, θα μάθετε 15 μεθόδους για το πώς μπορείτε να αντιγραφή δεδομένων από ένα φύλλο εργασίας και επικόλλησή τους σε ένα άλλο με VBA στο Excel.

Παραπάνω είναι το σύνολο δεδομένων που αυτό το άρθρο θα θεωρήσει ως παράδειγμά μας.

1. Ενσωματώστε τη μακροεντολή VBA για την αντιγραφή και επικόλληση μιας περιοχής δεδομένων από ένα φύλλο εργασίας σε ένα άλλο

Τα βήματα για να αντιγραφή και επικόλληση ενός εύρους δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με VBA περιγράφονται κατωτέρω.

Βήματα:

• Στην αρχή, πατήστε Alt + F11 στο πληκτρολόγιό σας ή πηγαίνετε στην καρτέλα Προγραμματιστής -> Visual Basic για να ανοίξετε Visual Basic Editor .

• Στο αναδυόμενο παράθυρο κώδικα, από τη γραμμή μενού, κάντε κλικ στην επιλογή Εισαγωγή -> Ενότητα .

• Τώρα, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα .

 Sub CopyPasteToAnotherSheet() Worksheets("Dataset").Range("B2:F9").Copy Worksheets("CopyPaste").Range("B2") End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

Αυτό το κομμάτι κώδικα θα αντιγράψτε το εύρος από το B2 στο F9 από το φύλλο με όνομα Σύνολο δεδομένων και επικολλήστε τα στο Β2 Εύρος στο CopyPaste ονομαστικό φύλλο .

• Στη συνέχεια, πατήστε F5 στο πληκτρολόγιό σας ή από τη γραμμή μενού επιλέξτε Εκτέλεση -> Εκτέλεση Sub/UserForm Μπορείτε επίσης να κάνετε κλικ στο μικρό εικονίδιο Play στη γραμμή υπομενού για να εκτελέσετε τη μακροεντολή.

Κοιτάξτε την ακόλουθη εικόνα.

Τέλος, όλα τα δεδομένα από το Σύνολο δεδομένων αντιγράφεται τώρα στο φύλλο CopyPaste φύλλο στο βιβλίο εργασίας του Excel.

Διαβάστε περισσότερα: Excel VBA: Αντιγραφή περιοχής σε άλλο βιβλίο εργασίας

2. Μακροεντολή VBA για την αντιγραφή και επικόλληση δεδομένων από ένα ενεργό φύλλο εργασίας σε ένα άλλο στο Excel

Στην προηγούμενη ενότητα, δεν απαιτήσαμε την ενεργοποίηση του φύλλου εργασίας. Αλλά σε αυτή την ενότητα, θα μάθουμε πώς να αντιγραφή και επικόλληση δεδομένων σε ένα ενεργό φύλλο εργασίας .

Βήματα:

• Με τον ίδιο τρόπο όπως και πριν, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση αυτό.

 Sub CopyPasteToAnotherActiveSheet() 'Αντιγραφή δεδομένων από το φύλλο προέλευσης Sheets("Dataset").Range("B2:F9").Copy 'Ενεργοποίηση φύλλου προορισμού Sheets("Paste").Activate 'Επιλογή περιοχής προορισμού Range("B2").Select 'Επικόλληση στον προορισμό ActiveSheet.Paste Application.CutCopyMode = False End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση τον κώδικα όπως φαίνεται παραπάνω και δείτε το αποτέλεσμα στην ακόλουθη εικόνα.

Αυτή τη φορά, όλα τα δεδομένα από το Σύνολο δεδομένων αντιγράφεται τώρα στο φύλλο Επικόλληση φύλλο που ενεργοποιήσαμε πριν από την αντιγραφή των δεδομένων.

Διαβάστε περισσότερα: Τύπος Excel για την αντιγραφή κειμένου από ένα κελί σε ένα άλλο φύλλο

3. Αντιγραφή και επικόλληση ενός μεμονωμένου κελιού από ένα φύλλο εργασίας σε ένα άλλο στο Excel με μακροεντολή VBA

Στις παραπάνω ενότητες, μάθατε πώς να αντιγράφετε και να επικολλάτε ένα εύρος δεδομένων από ένα φύλλο εργασίας σε ένα άλλο. Τώρα, θα δείτε πώς να αντιγραφή και επικόλληση όταν έχετε ένα και μόνο δεδομένο στο φύλλο Excel.

Κοιτάξτε την ακόλουθη εικόνα, το Εύρος φύλλο αποτελείται από μία μόνο τιμή.

Θα δούμε πώς μπορούμε να αντιγραφή και επικόλληση αυτού του κελιού σε ένα άλλο φύλλο στο Excel με VBA .

Βήματα:

• Όπως φαίνεται παραπάνω, ανοικτή Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Στο παράθυρο κώδικα, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση

 Sub CopyPasteSingleRangeToAnotherSheet() Worksheets("Range").Range("B4").Copy Worksheets("CopyRange").Range("B2") End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτό το κομμάτι κώδικα και παρατηρήστε την ακόλουθη εικόνα.

Αυτό το μοναδικό στοιχείο " Αντιγράψτε αυτό το κελί " στο Κύτταρο B4 στο Σύνολο δεδομένων αντιγράφεται τώρα στο φύλλο CopyRange φύλλο σε Κελί B2 .

Διαβάστε περισσότερα: Excel VBA για την αντιγραφή μόνο τιμών στον προορισμό (μακροεντολή, UDF και UserForm)

4. Επικόλληση αντιγραμμένων δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με τη μέθοδο PasteSpecial στο Macro του Excel

Μπορείτε να να αντιγράψετε δεδομένα από ένα φύλλο εργασίας και να τα επικολλήσετε με διάφορους τρόπους με το Excel PasteSpecial μέθοδος με VBA Τα βήματα για να το κάνετε αυτό δίνονται παρακάτω.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyPasteSpecial() Worksheets("Dataset").Range("B2:F9").Copy Worksheets("PasteSpecial").Range("B2").PasteSpecial End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτό το κομμάτι κώδικα.

Κοιτάξτε την παραπάνω εικόνα. Δεδομένα από το Σύνολο δεδομένων φύλλο μεταφέρεται τώρα στο PasteSpecial φύλλο στο Excel.

Διαβάστε περισσότερα: Ειδική επικόλληση VBA για την αντιγραφή τιμών και μορφών στο Excel (9 παραδείγματα)

5. Μακροεντολή για την αντιγραφή και επικόλληση δεδομένων κάτω από το τελευταίο κελί από ένα φύλλο εργασίας σε ένα άλλο στο Excel

Έχουμε ήδη κάποια δεδομένα στο Σύνολο δεδομένων φύλλο (που παρουσιάστηκε στο εισαγωγικό τμήμα). Τώρα, κοιτάξτε το επόμενο μέρος αυτού του τμήματος. Τώρα έχουμε κάποια νέα δεδομένα σε ένα άλλο φύλλο με όνομα Τελευταίο κελί .

Αυτό που θέλουμε να κάνουμε εδώ είναι, θα ειδικά δεδομένα αντιγραφής (κελιά B5 έως F9) από το Σύνολο δεδομένων φύλλο και επικόλληση εκείνες σε κάτω από το τελευταίο κελί αυτού Τελευταίο κελί φύλλο.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyPasteBelowTheLastCell() 'Ορισμός μεταβλητών Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim iSourceLastRow As Long Dim iTargetLastRow As Long 'Ορισμός μεταβλητών για τα φύλλα προέλευσης και προορισμού Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Last Cell") 'Εύρεση της τελευταίας χρησιμοποιούμενης γραμμής στο φύλλο προέλευσης με βάση τα δεδομένα στη στήλη B iSourceLastRow = wsSource.Cells(wsSource.Rows.Count,"B").End(xlUp).Row 'Βρείτε την πρώτη κενή γραμμή στο φύλλο προορισμού με βάση τα δεδομένα στη στήλη B 'Η ιδιότητα Offset είναι για να μετακινήσετε τα αντιγραμμένα δεδομένα 1 γραμμή προς τα κάτω iTargetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Offset(1).Row 'Αντιγράψτε τα δεδομένα από την πηγή και επικολλήστε τα στον προορισμό wsSource.Range("B5:F9" & iSourceLastRow).Copy wsTarget.Range("B" & iTargetLastRow) End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση Κοιτάξτε την παρακάτω εικόνα.

Εδώ, μόνο η επιλεγμένα στοιχεία από το Σύνολο δεδομένων φύλλο είναι τώρα αντιγράφεται κάτω από το τελευταίο κελί του Τελευταίο κελί φύλλο στο Excel.

Διαβάστε περισσότερα: Τύπος αντιγραφής και επικόλλησης τιμών στο Excel (5 παραδείγματα)

6. Μακροεντολή VBA για να καθαρίσετε πρώτα το φύλλο εργασίας και στη συνέχεια να το αντιγράψετε και να το επικολλήσετε σε άλλο φύλλο εργασίας

Τι γίνεται αν έχετε τα λάθος δεδομένα στο υπάρχον φύλλο σας και θέλετε να εξαγάγετε τα αρχικά δεδομένα εκεί.

Κοιτάξτε την παρακάτω εικόνα. διαγράψτε τα δεδομένα από το Clear Range φύλλο και αποθηκεύστε εδώ τα δεδομένα από το Σύνολο δεδομένων φύλλο με VBA κωδικός.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub ClearAndCopyPasteData() 'Ορισμός μεταβλητών Dim wsSource As Worksheet Dim wsTarget As Worksheet Dim iSourceLastRow As Long Dim iTargetLastRow As Long 'Ορισμός μεταβλητών για τα φύλλα προέλευσης και προορισμού Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Clear Range") 'Εύρεση της τελευταίας χρησιμοποιούμενης γραμμής στο φύλλο προέλευσης με βάση τα δεδομένα στη στήλη B iSourceLastRow = wsSource.Cells(wsSource.Rows.Count,"B").End(xlUp).Row 'Βρείτε την πρώτη κενή γραμμή στο φύλλο προορισμού με βάση τα δεδομένα στη στήλη B 'Η ιδιότητα Offset είναι για να μετακινήσετε τα αντιγραμμένα δεδομένα 1 γραμμή προς τα κάτω iTargetLastRow = wsTarget.Cells(wsTarget.Rows.Count, "B").End(xlUp).Offset(1).Row 'Καθαρίστε τα δεδομένα από την περιοχή προορισμού wsTarget.Range("B5:F9" & iTargetLastRow).ClearContents 'Αντιγράψτε τα δεδομένα από την πηγή και επικολλήστε τα στον προορισμό.wsSource.Range("B5:F9" & iSourceLastRow).Copy wsTarget.Range("B5") End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση Κοιτάξτε την ακόλουθη εικόνα.

Τα προηγούμενα δεδομένα στο Clear Range αντικαθίσταται τώρα από τα δεδομένα από το φύλλο Σύνολο δεδομένων φύλλο.

Διαβάστε περισσότερα: Μακροεντολή για την αντιγραφή δεδομένων από ένα βιβλίο εργασίας σε ένα άλλο βάσει κριτηρίων

7. Μακροεντολή για την αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με τη λειτουργία Range.Copy

Τώρα, θα μάθουμε το VBA κώδικα για το πώς να αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με το Range.Copy στο Excel.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyWithRangeCopyFunction() 'Ορισμός μεταβλητών Dim wsSource As Worksheet Dim wsTarget As Worksheet 'Ορισμός μεταβλητών για τα φύλλα πηγής και προορισμού Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Copy Range") 'Αντιγραφή δεδομένων από την πηγή και επικόλληση στον προορισμό Call wsSource.Range("B2:F9").Copy(wsTarget.Range("B2")) End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτό το κομμάτι κώδικα και δείτε την ακόλουθη εικόνα.

Αντιγράψαμε με επιτυχία δεδομένα από το Σύνολο δεδομένων φύλλο στο Εύρος αντιγραφής φύλλο με το Range.Copy λειτουργία.

Διαβάστε περισσότερα: Τύπος Excel για να αντιγράψετε την τιμή κελιού σε άλλο κελί

Παρόμοιες αναγνώσεις

• Excel VBA για την αντιγραφή σειρών σε άλλο φύλλο εργασίας με βάση τα κριτήρια
• Χρήση VBA για επικόλληση τιμών μόνο χωρίς μορφοποίηση στο Excel
• Πώς να αντιγράψετε και να επικολλήσετε ορατά κελιά μόνο στο Excel (3 εύκολοι τρόποι)
• Η αντιγραφή και επικόλληση δεν λειτουργεί στο Excel (9 λόγοι και λύσεις)
• Πώς να αντιγράψετε πολλαπλές σειρές στο Excel χρησιμοποιώντας μακροεντολές (4 παραδείγματα)

8. Εφαρμογή κώδικα μακροεντολών για την αντιγραφή δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με την ιδιότητα USEDRANGE

Αυτή τη φορά, θα μάθουμε το VBA κώδικα για το πώς να αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με το UsedRange στο Excel.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyWithUsedRange() 'Ορισμός μεταβλητών Dim wsSource As Worksheet Dim wsTarget As Worksheet 'Ορισμός μεταβλητών για τα φύλλα πηγής και προορισμού Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("UsedRange") 'Αντιγραφή δεδομένων από την πηγή και επικόλληση στον προορισμό Call wsSource.UsedRange.Copy(wsTarget.Cells(2, 2)) End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτό το κομμάτι κώδικα.

Όπως βλέπουμε στην παραπάνω εικόνα, έχουμε αντιγράψει και επικολλήσει με επιτυχία δεδομένα από το Σύνολο δεδομένων φύλλο στο UsedRange φύλλο με το USEDRANGE ιδιοκτησία.

Διαβάστε περισσότερα: Πώς να αντιγράψετε την ίδια τιμή σε πολλαπλά κελιά στο Excel (4 μέθοδοι)

9. Μακροεντολή VBA για την αντιγραφή και επικόλληση επιλεγμένων δεδομένων από ένα φύλλο σε ένα άλλο στο Excel

Μπορείτε να αντιγραφή και επικόλληση μόνο ορισμένων επιλεγμένων δεδομένων από ένα φύλλο εργασίας σε ένα άλλο με VBA Τα βήματα για να το κάνετε αυτό φαίνονται παρακάτω.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyPasteSelectedData() 'Ορισμός μεταβλητών Dim wsSource As Worksheet Dim wsTarget As Worksheet 'Ορισμός μεταβλητών για τα φύλλα πηγής και προορισμού Set wsSource = Worksheets("Dataset") Set wsTarget = Worksheets("Paste Selected") 'Αντιγραφή δεδομένων από την πηγή wsSource.Range("B4:F7").Copy 'Επικόλληση δεδομένων στον προορισμό Κλήση wsTarget.Range("B2").PasteSpecial(Paste:=xlPasteValues) End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

Αυτός ο κώδικας θα αντιγράψτε μόνο την περιοχή από B4 έως F7 από το Σύνολο δεδομένων φύλλο και επικολλήστε τα στο Β2 Εύρος στο PasteSelected ονομαστικό φύλλο .

• Επόμενος, Εκτέλεση αυτόν τον κωδικό.

Τέλος, μόνο τα επιλεγμένα δεδομένα από το Σύνολο δεδομένων αντιγράφονται και επικολλώνται επιτυχώς στο φύλλο Επικόλληση Επιλεγμένο φύλλο στο βιβλίο εργασίας του Excel.

Διαβάστε περισσότερα: Πώς να εφαρμόσετε το VBA PasteSpecial και να διατηρήσετε τη μορφοποίηση της πηγής στο Excel

10. Κώδικας μακροεντολών για την αντιγραφή δεδομένων από ένα φύλλο εργασίας σε ένα άλλο στην πρώτη κενή γραμμή

Εδώ, θα δούμε πώς να αντιγραφή δεδομένων από το Σύνολο δεδομένων φύλλο και επικόλληση εκείνους που βρίσκονται στο πρώτο κενό κελί σε άλλο φύλλο εργασίας στο Excel με VBA .

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub FirstBlankCell() Range("B2:F9", Range("B" & Rows.Count).End(xlUp)).Copy Sheet13.Range("A65536").End(xlUp) End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενος, Εκτέλεση αυτό το κομμάτι κώδικα.

Δείτε στην παραπάνω εικόνα. Φύλλο13 ήταν εντελώς κενό. Ως αποτέλεσμα, ο εκτελούμενος κώδικας επικόλλησε τα αντιγραμμένα δεδομένα από το Σύνολο δεδομένων φύλλο στο πολύ πρώτο κελί στο Φύλλο13 φύλλο στο Excel.

Διαβάστε περισσότερα: Αντιγραφή και επικόλληση τιμών στην επόμενη κενή γραμμή με το Excel VBA (3 παραδείγματα)

11. Ενσωμάτωση VBA για την αντιγραφή και επικόλληση των δεδομένων με αυτόματο φιλτράρισμα από ένα φύλλο του Excel σε ένα άλλο φύλλο

Μπορούμε να να φιλτράρετε το σύνολο δεδομένων της πηγής και να αντιγράψετε και να επικολλήσετε μόνο τα φιλτραρισμένα δεδομένα σε ένα άλλο φύλλο εργασίας στο Excel. Ακολουθήστε αυτό το άρθρο για να μάθετε πώς να το κάνετε αυτό βήμα προς βήμα με VBA .

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Option Explicit Sub AutoFilter() Range("B4:B101").AutoFilter 1, "Dean" Range("B4:F9").Copy Sheet17.Range("B" & Rows.Count).End(xlUp)(2) Range("B4").AutoFilter End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση Μόνο η γραμμή που έχει " Dean " σε αυτό, θα φιλτραριστεί και θα αντιγραφεί σε άλλο φύλλο.

Παρατηρήστε στην παραπάνω εικόνα. Μόνο τα φιλτραρισμένα δεδομένα " Dean " από το Στήλη Β αντιγράφεται τώρα και επικολλάται στο Φύλλο15 φύλλο.

Διαβάστε περισσότερα: Πώς να αντιγράψετε και να επικολλήσετε στο Excel χρησιμοποιώντας την VBA (7 μέθοδοι)

Παρόμοιες αναγνώσεις

• Τρόπος αυτόματου φιλτραρίσματος και αντιγραφής ορατών σειρών με το Excel VBA
• Αντιγραφή μοναδικών τιμών σε άλλο φύλλο εργασίας στο Excel (5 μέθοδοι)
• Πώς να αντιγράψετε συγχωνευμένα και φιλτραρισμένα κελιά στο Excel (4 μέθοδοι)
• Σφάλμα χρόνου εκτέλεσης 1004: Η μέθοδος PasteSpecial της κλάσης Range απέτυχε
• Πώς να επικολλήσετε τη σύνδεση και την αντιμετάθεση στο Excel (8 γρήγοροι τρόποι)

12. Επικόλληση μιας γραμμής στο κάτω μέρος μιας περιοχής διατηρώντας την αντιγραμμένη φόρμουλα από την παραπάνω περιοχή

Όταν θέλετε να αντιγράψτε μια τιμή και κρατήστε τον τύπο μέσα σε αυτήν ενώ το επικολλάτε σε μια άλλη γραμμή, στη συνέχεια με VBA κώδικα μπορείτε να εκτελέσετε την εργασία εύκολα.

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub PasteRowWithFormulaFromAbove() Rows(Range("B" & Rows.Count).End(xlUp).Row).Copy Rows(Range("B" & Rows.Count).End(xlUp).Row + 1).Insert xlDown End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτόν τον κώδικα και δείτε την παρακάτω εικόνα.

Το η τελευταία σειρά αντιγράφεται ακριβώς ως έχει στη διπλανή σειρά.

Διαβάστε περισσότερα: Πώς να αντιγράψετε δεδομένα από ένα κελί σε ένα άλλο στο Excel αυτόματα

13. VBA για την αντιγραφή δεδομένων από ένα φύλλο σε ένα άλλο φύλλο σε ένα άλλο ανοιχτό αλλά όχι αποθηκευμένο βιβλίο εργασίας

Παρατηρήστε το όνομα του βιβλίου εργασίας του παραδείγματός μας, Βιβλίο εργασίας πηγής Θα αντιγράψουμε τα δεδομένα από το Σύνολο δεδομένων φύλλο από αυτό το βιβλίο εργασίας και επικολλήστε το σε ένα άλλο φύλλο εργασίας σε ένα άλλο βιβλίο εργασίας με όνομα Βιβλίο εργασίας προορισμού δηλαδή ανοιχτό αλλά δεν έχει αποθηκευτεί ακόμα .

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyOneFromAnotherNotSaved() Workbooks("Source Workbook").Worksheets("Dataset").Range("B2:F9").Copy Workbooks("Destination Workbook").Worksheets("Sheet1").Range("B2") End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτόν τον κωδικό.

Δεδομένα από το Σύνολο δεδομένων φύλλο στο Βιβλίο εργασίας πηγής αντιγράφεται τώρα στο Φύλλο1 φύλλο στο Βιβλίο εργασίας προορισμού .

Διαβάστε περισσότερα: Excel VBA: Αντιγραφή τιμής κελιού και επικόλληση σε άλλο κελί

14. Μακροεντολή για την αναπαραγωγή δεδομένων από ένα φύλλο σε ένα άλλο φύλλο σε ένα άλλο ανοικτό και αποθηκευμένο βιβλίο εργασίας

Αυτή τη φορά, θα αντιγραφή των δεδομένων από το Σύνολο δεδομένων φύλλο από το Βιβλίο εργασίας πηγής και επικόλληση στο Φύλλο2 φύλλο εργασίας στο Βιβλίο εργασίας προορισμού . Αλλά τώρα, η το βιβλίο εργασίας είναι ανοιχτό και αποθηκευμένο .

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyOneFromAnotherSaved() Workbooks("Source Workbook.xlsm").Worksheets("Dataset").Range("B2:F9").Copy _ Workbooks("Destination Workbook.xlsx").Worksheets("Sheet2").Range("B2") End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενος, Εκτέλεση αυτόν τον κωδικό.

Δεδομένα από το Σύνολο δεδομένων φύλλο στο Βιβλίο εργασίας πηγής αντιγράφεται τώρα στο Φύλλο2 φύλλο στο Βιβλίο εργασίας προορισμού . Και κοιτάξτε το όνομα, αυτό το βιβλίο εργασίας αποθηκεύτηκε αυτή τη φορά.

Διαβάστε περισσότερα: Πώς να αντιγράψετε και να επικολλήσετε στο Excel χωρίς να αλλάξετε τη μορφή

15. Εφαρμογή της VBA για την αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο φύλλο εργασίας σε ένα άλλο κλειστό βιβλίο εργασίας

Στις δύο προηγούμενες ενότητες, μάθαμε πώς να αντιγράφουμε και να επικολλάμε δεδομένα από ένα φύλλο εργασίας σε ένα άλλο σε ένα άλλο βιβλίο εργασίας που είναι ανοιχτό. Σε αυτή την ενότητα, θα μάθουμε τον κώδικα για το πώς να αντιγραφή και επικόλληση δεδομένων όταν το βιβλίο εργασίας είναι κλειστό .

Βήματα:

• Πρώτον, ανοίξτε Visual Basic Editor από το Προγραμματιστής και Εισαγωγή a Ενότητα στο παράθυρο κώδικα.
• Δεύτερον, αντιγράψτε τον ακόλουθο κώδικα και επικόλληση στο παράθυρο κώδικα.

 Sub CopyOneFromAnotherClosed() 'Για να ανοίξετε το βιβλίο εργασίας που είναι αποθηκευμένο στο σύστημά σας 'αλλάξτε την παρακάτω διαδρομή ανάλογα με τη θέση του αρχείου στο σύστημά σας Workbooks.Open "D:\ExcelWIKI\Excel Folder\Destination Workbook.xlsx" 'Αντιγράφει τα δεδομένα από το βιβλίο εργασίας που ονομάζεται Source Workbook και 'τα επικολλά στο βιβλίο εργασίας-στόχο που ονομάζεται Destination Workbook Workbooks("SourceWorkbook").Worksheets("Dataset").Range("B2:F9").Copy Workbooks("Destination Workbook").Worksheets("Sheet3").Range("B2") 'Κλείσιμο του βιβλίου εργασίας-στόχου μετά την αποθήκευση Workbooks("Destination Workbook").Close SaveChanges:=True End Sub 

Ο κώδικάς σας είναι τώρα έτοιμος για εκτέλεση.

• Επόμενο, Εκτέλεση αυτόν τον κωδικό.

Παρόλο που αυτή τη φορά το βιβλίο εργασίας έκλεισε, αλλά και πάλι μετά την εκτέλεση του κώδικα, τα δεδομένα από το Σύνολο δεδομένων φύλλο στο Βιβλίο εργασίας πηγής αντιγράφεται τώρα στο Φύλλο3 φύλλο στο Βιβλίο εργασίας προορισμού .

Διαβάστε περισσότερα: Excel VBA για την αντιγραφή δεδομένων από άλλο βιβλίο εργασίας χωρίς άνοιγμα

Πράγματα που πρέπει να θυμάστε

• Οι μέθοδοι 1 έως 14 απαιτούν το άνοιγμα των βιβλίων εργασίας σας Όταν εκτελείτε τους κωδικούς μακροεντολών που εμφανίζονται σε αυτές τις μεθόδους, μην ξεχνάτε να κρατάτε ανοιχτά τόσο το βιβλίο εργασίας προέλευσης όσο και το βιβλίο εργασίας προορισμού.
• Ενώ το τα βιβλία εργασίας αποθηκεύονται, τότε γράψτε το όνομα του αρχείου με τον τύπο αρχείου μέσα στον κώδικα. τα βιβλία εργασίας δεν αποθηκεύονται, τότε γράψτε μόνο το όνομα του αρχείου χωρίς τον τύπο του αρχείου. Για παράδειγμα, αν το αρχείο σας το βιβλίο εργασίας αποθηκεύεται , τότε γράψτε " Προορισμός. xlsx ", αλλά αν το το βιβλίο εργασίας δεν αποθηκεύεται , τότε γράψτε " Προορισμός " μέσα στον κώδικα.

Συμπέρασμα

Αυτό το άρθρο σας έδειξε πώς να αντιγραφή και επικόλληση δεδομένων από ένα φύλλο εργασίας σε ένα άλλο στο Excel με VBA Ελπίζω αυτό το άρθρο να σας ήταν πολύ χρήσιμο. Μη διστάσετε να ρωτήσετε αν έχετε οποιεσδήποτε ερωτήσεις σχετικά με το θέμα.