Για να μεταφέρετε πλήρως τα δεδομένα από την τρέχουσα περιοχή κελιών σε έναν νέο πίνακα, πρέπει να γνωρίζετε πόσο μεγάλο είναι το εύρος των κελιών που χρησιμοποιούνται γύρω από το ενεργό κελί. Or μπορείτε να αφήσετε το Excel να το κάνει αυτό για εσάς και να αντιγράψετε το g
Θέλετε να αντιγράψετε αυτόματα όλα τα κελιά από ένα συνεχόμενο εύρος κελιών σε μια μακροεντολή; Αυτό είναι ιδιαίτερα χρήσιμο εάν θέλετε να αντιδράσετε με ευελιξία στις πληροφορίες από τους χρήστες και δεν γνωρίζετε πόσο μεγάλες είναι οι περιοχές δεδομένων που έχουν εισαχθεί.
Μπορείτε να χρησιμοποιήσετε μια μακροεντολή για να κάνετε αυτήν τη δουλειά. Η μακροεντολή καθορίζει όλα τα κελιά γύρω από το ενεργό κελί και αντιγράφει ακριβώς αυτά τα κελιά σε ένα νέο βιβλίο εργασίας.
Το παρακάτω σχήμα δείχνει έναν πίνακα με τρεις διαφορετικές περιοχές δεδομένων. Είναι χρωματικά κωδικοποιημένα για να είναι πιο εύκολα ορατά.
Όλα τα κελιά που συνδέονται με γειτονικά κελιά χωρίς κενά θεωρούνται ότι ανήκουν μεταξύ τους.
Με μια κατάλληλη μακροεντολή, μπορείτε να διασφαλίσετε ότι αφού κάνετε κλικ σε ένα κελί σε μια περιοχή κελιών, όλα τα κελιά που του ανήκουν αντιγράφονται σε έναν νέο πίνακα. Ακολουθεί ο κατάλληλος κωδικός προγράμματος:
Υπο -αντίγραφο τρέχουσας περιοχής ()
Αμυδρή περιοχή πηγής As Range
Dim NewSheet As Worksheet
Ορισμός περιοχής πηγής = ActiveCell.CurrentRegion
Ορισμός NeuesBlatt = Workbooks.Add.Worksheets (1)
Περιοχή πηγής. Προορισμός αντιγραφής: = NeuesBlatt.Range ("A1")
Τέλος υπο
Πριν καλέσετε τη μακροεντολή, κάντε κλικ σε οποιοδήποτε κελί σε έναν πίνακα. Η μακροεντολή καθορίζει όλα τα κελιά που, μαζί με το επιλεγμένο κελί, ανήκουν σε μια περιοχή και αντιγράφουν αυτό το εύρος δεδομένων σε ένα νέο, κενό βιβλίο εργασίας. Το παρακάτω σχήμα δείχνει πώς φαίνεται το αποτέλεσμα μετά την κλήση της μακροεντολής εάν το κελί E9 του πίνακα από το πρώτο σχήμα έχει επιλεγεί πριν ξεκινήσει η μακροεντολή.
Για να εισαγάγετε τη μακροεντολή, πατήστε ALT F11 στο Excel για να εμφανιστεί ο επεξεργαστής VBA. Επιλέξτε την εντολή INSERT - MODULE στον επεξεργαστή VBA και εισαγάγετε τη μακροεντολή. Για να ξεκινήσετε τη μακροεντολή, ενεργοποιήστε τον συνδυασμό πλήκτρων ALT F8 στο Excel. Οι δύο συντομεύσεις πληκτρολογίου για την εκκίνηση του προγράμματος επεξεργασίας VBA και η μακροεντολή λειτουργούν σε όλες τις εκδόσεις του Excel.
