ερώτηση

Γνώση Υπολογιστών >> ερώτηση >  >> PC Αντιμετώπιση προβλημάτων

Πώς να συγχωνεύσετε αρχεία Excel

Μέθοδος 1:Χρήση της δυνατότητας Ενοποίησης

1. Ανοίξτε την Εξερεύνηση αρχείων και εντοπίστε το φάκελο που περιέχει τα αρχεία Excel που θέλετε να συγχωνεύσετε.

2. Επιλέξτε όλα τα αρχεία που θέλετε να συγχωνεύσετε και, στη συνέχεια, κάντε δεξί κλικ και επιλέξτε Άνοιγμα .

3. Στο Άνοιγμα στο παράθυρο διαλόγου, επιλέξτε Άνοιγμα για να ανοίξετε όλα τα αρχεία σε ξεχωριστά παράθυρα του Excel.

4. Σε ένα από τα παράθυρα του Excel, κάντε κλικ στο Δεδομένα καρτέλα και, στη συνέχεια, κάντε κλικ στην επιλογή Ενοποίηση .

5. Στο Ενοποίηση στο παράθυρο διαλόγου, επιλέξτε το Ενοποίηση κουμπί επιλογής και, στη συνέχεια, επιλέξτε το Άθροισμα λειτουργία.

6. Στην Αναφορά στο πλαίσιο, εισαγάγετε το εύρος των κελιών που θέλετε να συγχωνεύσετε από κάθε αρχείο. Για παράδειγμα, εάν θέλετε να συγχωνεύσετε τα κελιά A1:E10 από κάθε αρχείο, θα εισαγάγετε A1:E10 .

7. Κάντε κλικ στην Προσθήκη για να προσθέσετε το εύρος στο Όλες οι αναφορές λίστα.

8. Επαναλάβετε τα βήματα 6 και 7 για κάθε αρχείο που θέλετε να συγχωνεύσετε.

9. Αφού προσθέσετε όλες τις περιοχές στο Όλες οι αναφορές λίστα, κάντε κλικ στο OK .

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

Μέθοδος 2:Χρήση μακροεντολής VBA

1. Ανοίξτε το Visual Basic Editor (VBE) πατώντας Alt+F11.

2. Στο VBE, κάντε κλικ στο Εισαγωγή και μετά κάντε κλικ στην Ενότητα .

3. Αντιγράψτε τον ακόλουθο κώδικα στη λειτουργική μονάδα:

```

Sub MergeFiles()

Dim wb ως βιβλίο εργασίας

Dim ws As φύλλο εργασίας

Dim SourceRange ως Range

Dim Destination Range as Range

Dim i Ως ακέραιος αριθμός

Ορισμός εύρους προορισμού =Φύλλα εργασίας(1).Εύρος ("A1")

Για i =2 Προς Βιβλία Εργασίας.Αριθμός

Ορισμός wb =Βιβλία εργασίας(i)

Σετ ws =wb.Φύλλα εργασίας(1)

Ορισμός SourceRange =ws.Range("A1:E10")

SourceRange.Copy

DestinationRange.PasteSpecial xlPasteValues

Set DestinationRange =DestinationRange.Offset(SourceRange.Rows.Count, 0)

Επόμενο i

End Sub

```

4. Κάντε κλικ στο Εκτέλεση κουμπί για να εκτελέσετε τη μακροεντολή.

5. Η μακροεντολή θα συγχωνεύσει τα δεδομένα από τις επιλεγμένες περιοχές και θα δημιουργήσει ένα νέο φύλλο εργασίας με τα συγχωνευμένα δεδομένα.

Συναφής σύστασή

Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα