I den här artikeln kommer vi att lära oss VBA hur man skriver makrot för att konsolidera data i Microsoft Excel.
Konsolidera data: -Det här alternativet används för att sammanfatta data från separata intervall, konsolidera resultaten i enstaka utdata.
Låt oss ta ett exempel för att förstå hur man kombinerar data via VBA.
Vi har tre Excel -arbetsböcker, namngivna A, B och C. Varje arbetsbok har Sheet1 med siffrorna i intervallet A2: A4. Nu vill vi hämta summan till alla arbetsböcker i en Excel -fil med summan av siffror och filnamn också.
Fil A:-
Fil B:-
Fil C:-
Konsolidera:-
För att konsolidera uppgifterna, följ nedanstående steg:-
- Infoga ett användarformulär, sätt sedan in 3 etikettlådor, 3 textrutor och en kommandoknapp.
- Dubbelklicka på kommandoknappen för att tilldela makrot.
- Skriv koden nedan:-
Delkonsolidera () -intervall ("A1"). Välj ActiveCell.Value = "Namn" -intervall ("B1"). Välj ActiveCell.Value = "Belopp" -intervall ("A2"). Välj ActiveCell.Value = "A" -intervall ("A3"). Välj ActiveCell.Value = "B" -intervall ("A4"). Välj ActiveCell.Value = "C" -intervall ("B2"). SelectWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Workbooks.OpenFileName: =" D: \ Data \ B.xlsx "Workbooks.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidate "). Aktivera Selection.Consolidate källor: = Array (" 'D : \ Data \ [A.xlsx] blad1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] blad1 '! R2C1: R4C1 ","' D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Function: = xlSum Windows (" A.xlsx "). Aktivera ActiveWorkbook.Close Windows (" B.xlsx "). Aktivera ActiveWorkbook.Close Windows (" C.xlsx "). Aktivera ActiveWorkbook .Stäng Slut Sub
Kod Förklaring:-Först definierar vi intervallvärdena och sedan definierar vi sökvägen till varje fil. Sedan kommer vi att definiera vilken funktion som fungerar för varje fil och vilken beräkning vi vill konsolidera.
• Tryck på F5 för att köra koden.
• Alla filer öppnas och sedan returnerar VBA summan till alla filer och lägger sedan resultatet framför filnamnet.
Det är så vi kan konsolidera siffrorna och hämta i en enda fil från olika filer i Microsoft Excel via VBA.
Om du gillade våra bloggar, dela den med dina vänner på Facebook. Och du kan också följa oss på Twitter och Facebook.
Vi vill gärna höra från dig, låt oss veta hur vi kan förbättra, komplettera eller förnya vårt arbete och göra det bättre för dig. Skriv till oss påe -postsajt