Datakonsolidering gjennom Excel VBA

Anonim

I denne artikkelen skal vi lære VBA hvordan du skriver makroen for å konsolidere dataene i Microsoft Excel.

Konsolider data: -Dette alternativet brukes til å oppsummere data fra separate områder, og konsolidere resultatene i enkelt utdata.

La oss ta et eksempel for å forstå hvordan du kombinerer dataene gjennom VBA.

Vi har 3 Excel -arbeidsbøker, kalt A, B og C. Hver arbeidsbok har ark1 med tallene i området A2: A4. Nå vil vi hente summen til alle arbeidsbøkene i en Excel -fil med summen av tall og filnavn også.

Fil A:-

Fil B:-

Fil C:-

Konsolidere:-

Følg trinnene nedenfor for å konsolidere dataene:-

  • Sett inn et brukerskjema, sett inn tre etikettbokser, tre tekstbokser og en kommandoknapp.
  • Dobbeltklikk på Kommando -knappen for å tilordne makroen.
  • Skriv koden nedenfor:-
 Underkonsolider () Område ("A1"). Velg ActiveCell.Value = "Navn" Område ("B1"). Velg ActiveCell.Value = "Beløp" Område ("A2"). Velg ActiveCell.Value = "A" Område ("A3"). Velg ActiveCell.Value = "B" Område ("A4"). Velg ActiveCell.Value = "C" Område ("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] sheet1 '! R2C1: R4C1 "), Funksjon: = xlSum Windows (" A.xlsx "). Aktiver ActiveWorkbook.Lukk Windows (" B.xlsx "). Aktiver ActiveWorkbook.Close Windows (" C.xlsx "). Aktiver ActiveWorkbook .Close End Sub

Kode Forklaring:-For det første vil vi definere områdeverdiene, og deretter vil vi definere banen til hver fil. Deretter vil vi definere hvilken funksjon som vil fungere for hver fil og hvilken beregning vi vil konsolidere.
• Trykk på F5 for å kjøre koden.
• Alle filer vil bli åpnet, og deretter vil VBA returnere summen til alle filene og deretter sette resultatet foran filnavnet.

Dette er måten vi kan konsolidere tallene og hente i en enkelt fil fra forskjellige filer i Microsoft Excel gjennom VBA.

Hvis du likte bloggene våre, del den med vennene dine på Facebook. Og du kan også følge oss på Twitter og Facebook.
Vi vil gjerne høre fra deg, gi oss beskjed om hvordan vi kan forbedre, utfylle eller innovere arbeidet vårt og gjøre det bedre for deg. Skriv oss påe -post nettsted