1 Κάντε κλικ στην καρτέλα " Φύλλο1 " και " δεδομένα στο Φύλλο1 " τύπος στην Α1 . Κάντε κλικ στο " Sheet2 " και πληκτρολογήστε " δεδομένα Sheet2 " στην Α1 . 2
Κάντε κλικ στην καρτέλα "Προγραμματιστής " , κάντε κλικ στο " Visual Basic " και κάντε κλικ στο μενού "Εισαγωγή" . Κάντε κλικ στο " Ενότητα " για να εισάγετε μια νέα λειτουργική μονάδα κώδικα .
Εικόνων 3
Δημιουργήστε μια νέα διαδικασία ρουτίνας .
Private copyDataBetweenSheets Sub ( )
Η 4
Προσθέστε τον παρακάτω κώδικα για να επιλέξετε το Φύλλο1 και αντιγράψτε τα δεδομένα στην Α1 : .
Sheets ( " Φύλλο1 " ) Επιλέξτε
Range ( "A1" ) Επιλέξτε
. Selection.Copy
5
Προσθέστε τον ακόλουθο κώδικα για να επιλέξετε Sheet2 και να επικολλήσετε τα δεδομένα που έχουν αντιγραφεί από το Φύλλο1 : .
Sheets ( " Sheet2 " ) Επιλέξτε
Range ( . " A2 " ) Επιλέξτε
ActiveSheet.Paste
Η 6
Επιλέξτε τα δεδομένα στο κελί A1 και να το αντιγράψετε με την προσθήκη του παρακάτω κώδικα :
Range ( "A1 " . ) Επιλέξτε
Selection.Copy
Η 7
Επικολλήστε τα δεδομένα που αντιγράφονται από το Φύλλο2 με την προσθήκη του παρακάτω κώδικα :
Sheets ( " . Φύλλο1 " ) Επιλέξτε
Range ( " A2 " ) . Επιλέξτε
ActiveSheet.Paste
8
Ολοκληρώστε τη διαδικασία με την προσθήκη " End Sub ". Πατήστε το πλήκτρο " F5 " για να εκτελέσει τη διαδικασία υπο .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα