Μετάβαση στο κύριο περιεχόμενο

Πώς να συγχωνεύσετε ή να συνδυάσετε φύλλα εργασίας ή βιβλία εργασίας σε ένα φύλλο εργασίας;

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

doc συνδυάστε 1

ΓΡΗΓΟΡΗ ΠΛΟΗΓΗΣΗ

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


Συγχώνευση όλων των φύλλων του ενεργού βιβλίου εργασίας σε ένα φύλλο με το VBA

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

1. Ενεργοποιήστε το βιβλίο εργασίας που θέλετε να συνδυάσετε όλα τα φύλλα του και, στη συνέχεια, πατήστε + κλειδιά για άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο αναδυόμενο παράθυρο, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης για να δημιουργήσετε ένα νέο σενάριο Module.

3. Αντιγράψτε τον παρακάτω κώδικα και επικολλήστε τους στο σενάριο.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc συνδυάστε 2

4. Τύπος F5 κλειδί, τότε όλα τα δεδομένα σε όλα τα φύλλα έχουν συγχωνευτεί σε ένα νέο φύλλο που ονομάζεται Combined το οποίο τοποθετείται στο μπροστινό μέρος όλων των φύλλων.


μετακινηθείτε

Θέλετε να αυξήσετε τις πληρωμές και πολύ χρόνο για να συνοδεύσετε την οικογένεια;

Η καρτέλα του Office βελτιώνει την αποτελεσματικότητά σας κατά 50% στο Microsoft Office που λειτουργεί τώρα

Απίστευτο, η εργασία σε δύο ή περισσότερα έγγραφα είναι ευκολότερη και ταχύτερη από την εργασία σε ένα.

Σε σύγκριση με γνωστά προγράμματα περιήγησης, το εργαλείο καρτελών στο Office Tab είναι πιο ισχυρό και πιο αποτελεσματικό.

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

Εάν συνήθως εργάζεστε σε πολλά έγγραφα, η καρτέλα του Office θα είναι μια εξαιρετική εξοικονόμηση χρόνου για εσάς.

30- δωρεάν δοκιμή ημέρας, δεν απαιτείται πιστωτική κάρτα.

Δείτε ΠερισσότεραΔωρεάν Λήψη Τώρα


Συγχώνευση δεκάδων φύλλων ή βιβλίων εργασίας σε ένα φύλλο εργασίας / βιβλίο εργασίας με κλικ

Με το VBA, μπορείτε μόνο να συνδυάσετε φύλλα στο ενεργό βιβλίο εργασίας, αλλά πώς μπορείτε να συγχωνεύσετε φύλλα σε βιβλία εργασίας σε ένα φύλλο ή ένα βιβλίο εργασίας;

Συγχώνευση φύλλων σε βιβλία εργασίας σε ένα φύλλο
doc συνδυάστε 18

Συγχώνευση φύλλων σε βιβλία εργασίας σε ένα βιβλίο εργασίας
doc συνδυάστε 3

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

  • Συνδυάστε πολλά φύλλα ή βιβλία εργασίας σε ένα φύλλο
  • Συνδυάστε πολλά φύλλα ή βιβλία εργασίας σε ένα βιβλίο εργασίας
  • Συνδυάστε τα ίδια ονόματα σε ένα φύλλο
  • Συγκεντρώστε τιμές σε φύλλα ή βιβλία εργασίας σε ένα φύλλο

Ακολουθεί η δεύτερη επιλογή ως παράδειγμα:

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

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. Ενεργοποιήστε το Excel, κάντε κλικ στο Kutools Plus > Συνδυασμός, εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει ότι τα βιβλία εργασίας που θέλετε να συνδυάσετε πρέπει να κλείσουν. Κάντε κλικ OK για να συνεχίσετε.
doc συνδυάστε 4
doc συνδυάστε 5

2. Στο Συνδυάστε τα φύλλα εργασίας βήμα 1 διάλογος, ελέγξτε Συνδυάστε πολλά φύλλα εργασίας από βιβλία εργασίας σε ένα βιβλίο εργασίας επιλογή. Κάντε κλικ Επόμενο για να μεταβείτε στο επόμενο βήμα του οδηγού.
doc συνδυάστε 6

3. κλικ Πρόσθεση > Αρχεία or Folder για να προσθέσετε τα βιβλία εργασίας που θέλετε να συνδυάσετε στο Λίστα βιβλίων εργασίας και, στη συνέχεια, μπορείτε να καθορίσετε σε ποιο φύλλο εργασίας θα ενωθούν, ελέγχοντας τα ονόματα Λίστα φύλλων εργασίας τζάμι. Κάντε κλικ Επόμενο για να μεταβείτε στο τελευταίο βήμα του οδηγού.
doc συνδυάστε 7

4. Σε αυτό το βήμα, καθορίστε τις ρυθμίσεις που χρειάζεστε. Στη συνέχεια κάντε κλικ φινίρισμα.
doc συνδυάστε 8

5. Εμφανίζεται ένα παράθυρο για να επιλέξετε έναν φάκελο για να τοποθετήσετε το συνδυασμένο βιβλίο εργασίας και, στη συνέχεια, κάντε κλικ στο Αποθήκευση.
doc συνδυάστε 9

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

Επίδειξη: Συνδυάστε φύλλα / βιβλία εργασίας σε ένα φύλλο ή βιβλίο εργασίας

Kutools για Excel: 200 + χρήσιμα εύχρηστα εργαλεία, απλοποιώντας τις πολύπλοκες εργασίες στο Excel σε μερικά κλικ.

Πείτε αντίο στο χέρι του ποντικιού και την αυχενική σπονδυλίωση τώρα

Επίλυση 300 προηγμένων εργαλείων Kutools για Excel 80% Οι εργασίες του Excel σε δευτερόλεπτα, σας τραβούν από τα χιλιάδες κλικ του ποντικιού.

Αντιμετωπίστε εύκολα 1500 σενάρια εργασίας, δεν χρειάζεται να χάνετε χρόνο για αναζήτηση λύσεων, έχετε πολύ χρόνο για να απολαύσετε τη ζωή σας.

Βελτιώστε την παραγωγικότητα κατά 80% για 110000+ εξαιρετικά αποτελεσματικούς ανθρώπους καθημερινά, φυσικά συμπεριλαμβανομένου και εσάς.

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

Δωρεάν δοκιμή 30 ημερών με πλήρεις δυνατότητες, επιστροφή χρημάτων 30 ημερών χωρίς λόγους.

Ένα καλύτερο σώμα δημιουργεί μια καλύτερη ζωή.


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

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

Kutools για Excel: περισσότερα από 200 εύχρηστα πρόσθετα του Excel για απλοποίηση πολύπλοκων εργασιών σε λίγα κλικ στο Excel

Μετά το δωρεάν εγκατάσταση Kutools για Excel, κάντε τα παρακάτω:

1. κλικ Kutools Plus > Συγχώνευση πινάκων να επιτρέψει Συγχώνευση πινάκων οδηγός.
doc συνδυάστε 12

2. Στο βήμα 1 του οδηγού, πρέπει να επιλέξετε ξεχωριστά τον κύριο πίνακα και τα εύρη του πίνακα αναζήτησης. Στη συνέχεια κάντε κλικ Επόμενο.
doc συνδυάστε 13

3. Ελέγξτε τη στήλη κλειδιού στην οποία θέλετε να ενημερώσετε τα δεδομένα στον κύριο πίνακα βάσει. Κάντε κλικ Επόμενο.
doc συνδυάστε 14

4. Στη συνέχεια, ελέγξτε τις στήλες στον κύριο πίνακα που θέλετε να ενημερώσετε τα δεδομένα με βάση τον πίνακα αναζήτησης. Κάντε κλικ Επόμενο.
doc συνδυάστε 15

5. Στο βήμα 4 του οδηγού, ελέγξτε τις στήλες που θέλετε να προσθέσετε από τον πίνακα αναζήτησης στον κύριο πίνακα. Κάντε κλικ Επόμενο.
doc συνδυάστε 16

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

Τώρα ο κύριος πίνακας έχει ενημερώσει τα δεδομένα και προσθέτει νέα δεδομένα με βάση τον πίνακα αναζήτησης.

Επίδειξη: Συνδυάστε φύλλα / βιβλία εργασίας σε ένα φύλλο ή βιβλίο εργασίας

Kutools για Excel: 200 + χρήσιμα εύχρηστα εργαλεία, απλοποιώντας τις πολύπλοκες εργασίες στο Excel σε μερικά κλικ.


Λήψη δείγματος αρχείου

δείγμα


Συνιστώμενα εργαλεία παραγωγικότητας

Καρτέλα Office - Περιήγηση με καρτέλες, Επεξεργασία, Διαχείριση εγγράφων στο Microsoft Office 2019 - 2003 και Office 365


καρτέλα γραφείου

Ένα επαγγελματικό πρόσθετο για την επιτάχυνση του Excel 2019-2007, συρρικνώστε τις ώρες εργασίας σε δευτερόλεπτα

Αυτό το πρόσθετο περιλαμβάνει δεκάδες επαγγελματικές ομάδες, με 300+ επιλογές θα αυτοματοποιήσουν τις περισσότερες από τις καθημερινές σας εργασίες στο Excel και θα αυξήσουν την παραγωγικότητά σας τουλάχιστον κατά 50%. Όπως ομάδες οπτικών με ένα κλικ και ομαδικές μετατροπές.
Τώρα είναι η ευκαιρία σας να επιταχύνετε τον εαυτό σας με το Kutools για Excel!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations