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

Anonim

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

Ας καταλάβουμε με μια απλή άσκηση, πώς να συγχωνεύσετε το φύλλο spread μέσω του VBA στο Microsoft Excel.

Έχουμε 3 διαφορετικά αρχεία Excel. 2 αρχεία είναι σε xlsx και ένα αρχείο είναι σε xlsm σε ένα φάκελο. Θέλουμε να συγκεντρώσουμε και τα δύο σύνολα δεδομένων στο αρχείο Excel για να έχουμε λίγα πράγματα κατά νου ότι σε κάθε δεδομένα, οι γραμμές και οι στήλες μπορούν να αυξάνονται και να μειώνονται και επίσης δεν γνωρίζουμε τα ονόματα αρχείων του Excel και πόσα αρχεία υπάρχουν σε ένα φάκελο Το

Σε αυτό το φύλλο, θέλουμε να συνδυάσουμε τα δεδομένα:-

1st Δεδομένα:-

2nd Δεδομένα:-

3rd Δεδομένα:-

Τώρα, θέλουμε να συγκεντρώσουμε τα δεδομένα σε ένα φύλλο. Πρέπει να ακολουθήσουμε τα παρακάτω βήματα και κώδικα:-

  • Πατήστε το πλήκτρο Alt+F11 για να ανοίξετε τη σελίδα VBE για να γράψετε τη μακροεντολή.
  • Στη συνέχεια, μεταβείτε στην καρτέλα εισαγωγής και εισαγάγετε μια ενότητα.
  • Γράψτε τον παρακάτω κωδικό στη σελίδα.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E: \ Συμβουλές Excel \ Νέα θέματα VBA \ HR Data \" '(αναφέρετε τη διαδρομή αρχείου)

filePath = Διαδρομή φακέλου & "*xls*"

Όνομα αρχείου = Dir (filePath)

Dim LastrowAs Long, Lastcolumn As Long
Do while όνομα αρχείου ""

Βιβλία εργασίας. Άνοιγμα (διαδρομή φακέλου & όνομα αρχείου)

Lastrow = ActiveSheet.Cells (Rows.count, 1). End (xlUp). Row

Lastcolumn = ActiveSheet.Cells (1, Columns.count). End (xlToLeft). Colon

Εύρος (Κελιά (2, 1), Κελιά (Lastrow, Lastcolumn)). Αντιγραφή

Application.DisplayAlerts = Λάθος

ActiveWorkbook. Κλείσιμο

erow = Sheet1.Cells (Rows.count, 1). End (xlUp). Offset (1, 0). Row

Προορισμός ActiveSheet.Paste: = Φύλλα εργασίας ("Φύλλο1"). Εύρος (Κελιά (erow, 1), Κελιά (erow, 5))

Όνομα αρχείου = Διεύθυνση

Βρόχος

Application.DisplayAlerts = True

Τέλος υπο

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

  • Για να εκτελέσετε τη μακροεντολή, πατήστε το πλήκτρο F5.
  • Τα δεδομένα και των δύο φύλλων θα αντιγραφούν και θα επικολληθούν σε ένα φύλλο Excel.

Αυτός είναι ο τρόπος με τον οποίο μπορούμε να συγκεντρώσουμε τα δεδομένα σε ένα φύλλο από διαφορετικά αρχεία του Excel μέσω VBA στο Microsoft Excel.