Συνδυάστε εύκολα πολλά φύλλα εργασίας / βιβλία εργασίας σε ένα φύλλο εργασίας / βιβλίο εργασίας

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

Βήμα 1: Επιλέξτε το καθορισμένο κελί από το οποίο θα δημιουργήσετε τη λίστα σας. Στην περίπτωσή μας, επιλέγουμε το Cell E6.

Βήμα 2: Πατήστε άλλος + F11 ταυτόχρονα για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Applications, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, επικολλήστε τον ακόλουθο κώδικα στο παράθυρο της λειτουργικής μονάδας.

VBA: Δημιουργήστε μια λίστα από τα ίδια κελιά σε πολλά φύλλα

Sub CreateList()
Dim xAddWs As Worksheet
Dim xWs As Worksheet
Dim RngAddress As String
xTitleId = "KutoolsforExcel"
RngAddress = Application.ActiveCell.Address
Set xAddWs = Application.ActiveWorkbook.Sheets.Add
xAddWs.Name = xTitleId
i = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
If xWs.Name <> xTitleId Then
xAddWs.Cells(i, 1).Value = xWs.Range(RngAddress).Value
i = i + 1
End If
Next
End Sub

Βήμα 3: Πατήστε F5 ή κάντε κλικ στο τρέξιμο για να εκτελέσετε αυτό το VBA.

Στη συνέχεια, όλες οι τιμές από το καθορισμένο κελί σε όλα τα φύλλα εργασίας αντιγράφονται σε ένα νέο φύλλο εργασίας που ονομάζεται KutoolsforExcel. Δείτε το στιγμιότυπο οθόνης:

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

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

Αυτή η μέθοδος θα εισαγάγει Kutools για Excel'S Ανατρέξτε δυναμικά σε φύλλα εργασίας βοηθητικό πρόγραμμα για τη δημιουργία μιας δυναμικής λίστας από τα ίδια κελιά σε πολλά φύλλα εργασίας.

Βήμα 1: Επιλέξτε το εύρος όπου θα συμπληρώσετε τη δυναμική λίστα και κάντε κλικ στο Kutools > Περισσότερες > Ανατρέξτε δυναμικά σε φύλλα εργασίας.

Βήμα 2: Στο παράθυρο διαλόγου Συμπλήρωση αναφορών φύλλων εργασίας,

(1) Κάντε κλικ στο Συμπληρώστε την παραγγελία πλαίσιο και επιλέξτε έναν τύπο πλήρωσης από την αναπτυσσόμενη λίστα. Στην περίπτωσή μας, επιλέγουμε Γεμίστε κάθετα κελί μετά κελί;

(2) Στο Συμπληρώστε τον τύπο πλαίσιο, καθορίστε τη διεύθυνση κελιού από την οποία θα δημιουργήσετε μια δυναμική λίστα και, στη συνέχεια, κάντε κλικ στο Κλειδαριά κουμπί  για να κλειδώσετε τον τύπο.

(3) Κάντε κλικ στο Συμπληρώστε το εύρος κουμπί.

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

Όταν αλλάξουν οι αρχικές τιμές, οι αντίστοιχες τιμές σε αυτήν την καθορισμένη λίστα θα αλλάξουν αυτόματα.

Πώς να συμπληρώσετε αυτόματα το ίδιο κελί από διαφορετικά φύλλα σε ένα φύλλο στο Excel;