Μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να αντιγράψετε δεδομένα από ένα φύλλο εργασίας του Excel σε άλλο φύλλο στο ίδιο βιβλίο εργασίας
Θα θέλατε να μεταφέρετε το περιεχόμενο μιας περιοχής από το ένα φύλλο εργασίας στο άλλο; Είναι εύκολο να το κάνετε με τη διαδραστική χρήση του Excel. Αλλά πώς κάνετε τη δουλειά με μια μακροεντολή; Δημιουργήστε έναν βρόχο που επαναλαμβάνεται σε όλα τα κελιά που θέλετε να αντιγράψετε. Αυτή είναι η μακροεντολή:
Υποπεριοχή αντιγραφής ()
Dim Quelltab ως φύλλο εργασίας
Χαμηλή καρτέλα στόχου ως φύλλο εργασίας
Dim Cell As Range
Dim Counter Όσο καιρό
Μετρητής = 1
Εύρος = "A1: A10"
Ορισμός καρτέλας πηγής = ActiveWorkbook.Worksheets ("Table1")
Ορισμός καρτέλας στόχου = ActiveWorkbook.Worksheets ("Table2")
Για κάθε κελί στην περιοχή SourceTab.Range ("A1: A10")
Πίνακας στόχων Κελιά (μετρητής, 1) = κελί
Μετρητής = μετρητής + 1
Επόμενο κελί
Τέλος υπο
Στον ορισμό της μεταβλητής "Καρτέλα Πηγή", καθορίζετε το όνομα του πίνακα προέλευσης μέσα στο βιβλίο εργασίας. Αυτό είναι το φύλλο εργασίας από το οποίο θέλετε να αντιγράψετε τα δεδομένα. Στη μακροεντολή είναι το φύλλο "Πίνακας 1".
Χρησιμοποιήστε την ετικέτα "Καρτέλα στόχος" για να ορίσετε το όνομα του φύλλου εργασίας στο οποίο θέλετε να αντιγράψετε τα δεδομένα.
Η περιοχή A1: A10 αντιγράφεται στη μακροεντολή. Εάν θέλετε να χρησιμοποιήσετε διαφορετική περιοχή, προσαρμόστε τη μακροεντολή ανάλογα.
Χρησιμοποιείτε την ετικέτα "Μετρητής" για να ελέγξετε τη σειρά στον πίνακα προορισμού, στην οποία πρόκειται να ξεκινήσει η εισαγωγή των κελιών. Τα δεδομένα αντιγράφονται το ένα κάτω από το άλλο στα κελιά
Για να εισαγάγετε τη μακροεντολή, πατήστε ALT F11 στο Excel για να εμφανιστεί ο επεξεργαστής VBA. Χρησιμοποιήστε την εντολή INSERT - MODULE για να εισαγάγετε ένα κενό φύλλο λειτουργικής μονάδας. Για να ξεκινήσετε τη μακροεντολή απευθείας από το Excel, χρησιμοποιήστε τον συνδυασμό πλήκτρων ALT F8.
Αντιγράψτε ένα ολόκληρο φύλλο εργασίας μέσα σε ένα βιβλίο εργασίας
Έχετε επίσης την επιλογή να αντιγράψετε ολόκληρο το φύλλο εργασίας μέσα σε ένα βιβλίο εργασίας χρησιμοποιώντας μια μακροεντολή. Για να αντιγράψετε το ενεργό φύλλο του τρέχοντος βιβλίου εργασίας στο τέλος του βιβλίου εργασίας, χρησιμοποιήστε την ακόλουθη μακροεντολή:
Sub CopyActiveTable ()
ActiveSheet.Copy After: = Φύλλα εργασίας (Worksheets.Count)
Τέλος υπο
Αφού ξεκινήσει η μακροεντολή, ένα φύλλο εργασίας προστίθεται στο ενεργό βιβλίο εργασίας. Αυτό είναι το αντίγραφο του φύλλου εργασίας που ήταν ενεργό όταν κλήθηκε η μακροεντολή. Για να διακρίνει τα δύο φύλλα εργασίας το ένα από το άλλο, το Excel δημιουργεί έναν συνεχόμενο αριθμό πίσω από το αντιγραμμένο φύλλο εργασίας. Το παρακάτω σχήμα δείχνει πώς φαίνεται στο μητρώο πίνακα μετά την αντιγραφή του φύλλου εργασίας "Πωλήσεις":
