In diesem Artikel lernen wir VBA, wie man das Makro schreibt, um die Daten in Microsoft Excel zu konsolidieren.
Daten konsolidieren: -Diese Option wird verwendet, um Daten aus separaten Bereichen zusammenzufassen und die Ergebnisse in einer einzigen Ausgabe zu konsolidieren.
Nehmen wir ein Beispiel, um zu verstehen, wie die Daten über VBA kombiniert werden.
Wir haben 3 Excel-Arbeitsmappen mit den Namen A, B und C. Jede Arbeitsmappe hat Sheet1 mit den Zahlen im Bereich A2:A4. Nun möchten wir die Summe aller Arbeitsmappen in einer Excel-Datei mit der Summe der Zahlen und dem Dateinamen abrufen.
Datei A:-
Datei B:-
Datei C:-
Konsolidieren:-
Führen Sie die folgenden Schritte aus, um die Daten zu konsolidieren:
- Fügen Sie ein Benutzerformular ein, und fügen Sie dann 3 Beschriftungsfelder, 3 Textfelder und eine Befehlsschaltfläche ein.
- Doppelklicken Sie auf die Befehlsschaltfläche, um das Makro zuzuweisen.
- Schreiben Sie den unten genannten Code:-
Sub Consolidate() Range("A1").Select ActiveCell.Value = "Name" Range("B1").Select ActiveCell.Value = "Amount" Range("A2").Select ActiveCell.Value = "A" Range ("A3").Select 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").Activate Selection.Consolidate Sources:=Array("'D :\Data\[A.xlsx]sheet1'!R2C1:R4C1", _ "'D:\Data\[B.xlsx]sheet1'!R2C1:R4C1", "'D:\Data\[C.xlsx] sheet1'!R2C1:R4C1"), Funktion:=xlSum Windows("A.xlsx").Activate ActiveWorkbook.Close Windows("B.xlsx").Activate ActiveWorkbook.Close Windows("C.xlsx").Activate ActiveWorkbook .Ende schließen
Code-Erklärung:-Zuerst definieren wir die Bereichswerte und dann den Pfad jeder Datei. Dann definieren wir, welche Funktion für jede Datei funktioniert und welche Berechnung wir konsolidieren möchten.
• Um den Code auszuführen, drücken Sie die Taste F5.
• Alle Dateien werden geöffnet und VBA gibt die Summe aller Dateien zurück und stellt das Ergebnis dann vor den Dateinamen.
Auf diese Weise können wir die Zahlen konsolidieren und in einer einzigen Datei aus verschiedenen Dateien in Microsoft Excel über VBA abrufen.
Wenn Ihnen unsere Blogs gefallen haben, teilen Sie sie mit Ihren Freunden auf Facebook. Und Sie können uns auch auf Twitter und Facebook folgen.
Wir würden uns freuen, von Ihnen zu hören, lassen Sie uns wissen, wie wir unsere Arbeit verbessern, ergänzen oder erneuern und für Sie verbessern können. Schreiben Sie uns anE-Mail-Site