Datakonsolidering gennem Excel VBA

Anonim

I denne artikel skal vi lære VBA, hvordan man skriver makroen for at konsolidere dataene i Microsoft Excel.

Konsolider data: -Denne mulighed bruges til at opsummere data fra separate intervaller og konsolidere resultaterne i enkelt output.

Lad os tage et eksempel for at forstå, hvordan man kombinerer dataene via VBA.

Vi har 3 Excel -projektmapper, navngivet som A, B og C. Hver projektmappe har Sheet1 med tallene i området A2: A4. Nu vil vi også hente summen til alle projektmapper i en Excel -fil med summen af ​​tal og filnavn.

Fil A:-

Fil B:-

Fil C:-

Konsolidere:-

Følg nedenstående trin for at konsolidere dataene:-

  • Indsæt en brugerformular, indsæt derefter 3 etiketbokse, 3 tekstbokse og en kommandoknap.
  • Dobbeltklik på kommandoknappen for at tildele makroen.
  • Skriv nedenstående kode:-
 Underkonsolider () Område ("A1"). Vælg ActiveCell.Value = "Navn" Område ("B1"). Vælg ActiveCell.Value = "Beløb" Område ("A2"). Vælg ActiveCell.Value = "A" Område ("A3"). Vælg ActiveCell.Value = "B" Range ("A4"). Vælg 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 "). Aktiver Selection.Consolidate Sources: = Array (" 'D : \ Data \ [A.xlsx] sheet1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] sheet1 '! R2C1: R4C1 ","' D: \ Data \ [C.xlsx] ark1 '! R2C1: R4C1 "), Funktion: = xlSum Windows (" A.xlsx "). Aktiver ActiveWorkbook.Luk Windows (" B.xlsx "). Aktiver ActiveWorkbook.Luk Windows (" C.xlsx "). Aktiver ActiveWorkbook .Luk Slut Sub

Kode Forklaring:-For det første vil vi definere intervalværdierne, og derefter vil vi definere stien til hver fil. Derefter vil vi definere, hvilken funktion der vil fungere for hver fil, og hvilken beregning vi vil konsolidere.
• Tryk på F5 for at køre koden.
• Alle filer åbnes, og derefter vil VBA returnere summen til alle filer og derefter sætte resultatet foran filnavnet.

Dette er den måde, vi kan konsolidere tallene og hente i en enkelt fil fra forskellige filer i Microsoft Excel via VBA.

Hvis du kunne lide vores blogs, kan du dele den med dine venner på Facebook. Og også du kan følge os på Twitter og Facebook.
Vi vil meget gerne høre fra dig, lad os vide, hvordan vi kan forbedre, supplere eller innovere vores arbejde og gøre det bedre for dig. Skriv til os påe -mail -websted