Σε αυτό το άρθρο, θα μάθουμε VBA πώς να γράφουμε τη μακροεντολή για να ενοποιήσουμε τα δεδομένα στο Microsoft Excel.
Ενοποίηση δεδομένων: -Αυτή η επιλογή χρησιμοποιείται για τη σύνοψη δεδομένων από ξεχωριστές περιοχές, ενοποιώντας τα αποτελέσματα σε μία έξοδο.
Ας πάρουμε ένα παράδειγμα για να καταλάβουμε πώς να συνδυάσουμε τα δεδομένα μέσω VBA.
Έχουμε 3 τετράδια εργασίας Excel, που ονομάζονται A, B και C. Κάθε βιβλίο εργασίας έχει το Sheet1 με τους αριθμούς στην περιοχή A2: A4. Τώρα, θέλουμε να ανακτήσουμε το άθροισμα σε όλα τα βιβλία εργασίας σε ένα αρχείο Excel με το άθροισμα των αριθμών και το όνομα αρχείου επίσης.
Αρχείο Α:-
Αρχείο Β:-
Αρχείο Γ:-
Παγιώνω:-
Για να ενοποιήσετε τα δεδομένα, ακολουθήστε τα παρακάτω βήματα:-
- Εισαγάγετε μια φόρμα χρήστη και, στη συνέχεια, εισαγάγετε 3 πλαίσια ετικετών, 3 πλαίσια κειμένου και ένα κουμπί εντολών.
- Κάντε διπλό κλικ στο κουμπί Command για να εκχωρήσετε τη μακροεντολή.
- Γράψτε τον παρακάτω κωδικό:-
Sub Consolidate () Range ("A1"). Select ActiveCell.Value = "Name" Range ("B1"). Select ActiveCell.Value = "Amount" Range ("A2"). Select ActiveCell.Value = "A" Range ("A3"). Επιλέξτε ActiveCell.Value = "B" Range ("A4"). Select ActiveCell.Value = "C" Range ("B2"). SelectWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidate "). Ενεργοποιήστε την Επιλογή. Συνδυάστε Πηγές: = Array (" 'D : \ Data \ [A.xlsx] sheet1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] sheet1 '! R2C1: R4C1 ","' D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Function: = xlSum Windows (" A.xlsx "). Ενεργοποιήστε το ActiveWorkbook. Κλείστε τα Windows (" B.xlsx "). Ενεργοποιήστε το ActiveWorkbook. Κλείστε τα Windows (" C.xlsx "). Ενεργοποιήστε το ActiveWorkbook .Κλείσιμο Τέλος Υπο
Επεξήγηση κώδικα:-Πρώτον, θα ορίσουμε τις τιμές εύρους και στη συνέχεια θα καθορίσουμε τη διαδρομή κάθε αρχείου. Στη συνέχεια, θα ορίσουμε ποια συνάρτηση θα λειτουργεί για κάθε αρχείο και ποιον υπολογισμό θέλουμε να ενοποιήσουμε.
• Για να εκτελέσετε τον κωδικό, πατήστε το πλήκτρο F5.
• Όλα τα αρχεία θα ανοίξουν και στη συνέχεια η VBA θα επιστρέψει το άθροισμα σε όλα τα αρχεία και στη συνέχεια θα βάλει το αποτέλεσμα στο μπροστινό μέρος του ονόματος αρχείου.
Αυτός είναι ο τρόπος με τον οποίο μπορούμε να ενοποιήσουμε τους αριθμούς και να ανακτήσουμε σε ένα μόνο αρχείο από διαφορετικά αρχεία στο Microsoft Excel μέσω VBA.
Αν σας άρεσαν τα ιστολόγια μας, μοιραστείτε το με τους φίλους σας στο Facebook. Επίσης, μπορείτε να μας ακολουθήσετε στο Twitter και το Facebook.
Θα θέλαμε πολύ να σας ακούσουμε, ενημερώστε μας πώς μπορούμε να βελτιώσουμε, να συμπληρώσουμε ή να καινοτομήσουμε το έργο μας και να το κάνουμε καλύτερο για εσάς. Γράψτε μας στοιστοσελίδα email