În acest articol, vom învăța VBA cum să scriem macrocomanda pentru a consolida datele în Microsoft Excel.
Consolidarea datelor: -Această opțiune este utilizată pentru a rezuma datele din intervale separate, consolidând rezultatele într-o singură ieșire.
Să luăm un exemplu pentru a înțelege cum să combinați datele prin VBA.
Avem 3 cărți de lucru Excel, denumite A, B și C. Fiecare registru de lucru are Sheet1 cu numerele din intervalul A2: A4. Acum, dorim să recuperăm suma pentru toate registrele de lucru dintr-un fișier Excel, cu suma numerelor și numele fișierului.
Fișier A: -
Fișier B: -
Fișier C: -
Consolida:-
Pentru a consolida datele, urmați pașii de mai jos: -
- Introduceți un formular de utilizator, apoi introduceți 3 casete de etichete, 3 casete de text și un buton de comandă.
- Faceți dublu clic pe butonul Comandă pentru a atribui macro-ul.
- Scrieți codul menționat mai jos: -
Sub Consolidate () Range ("A1"). Selectați ActiveCell.Value = "Name" Range ("B1"). Selectați ActiveCell.Value = "Cantitate" Range ("A2"). Selectați ActiveCell.Value = "A" Range ("A3"). Selectați ActiveCell.Value = "B" Range ("A4"). Selectați 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 "). Activați 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 "), Funcție: = xlSum Windows (" A.xlsx "). Activați ActiveWorkbook.Închideți Windows (" B.xlsx "). Activați ActiveWorkbook.Închideți Windows (" C.xlsx "). Activați ActiveWorkbook .Închide End Sub
Cod Explicație: -În primul rând, vom defini valorile intervalului și apoi vom defini calea fiecărui fișier. Apoi vom defini care funcție va funcționa pentru fiecare fișier și ce calcul dorim să consolidăm.
• Pentru a rula codul, apăsați tasta F5.
• Toate fișierele vor fi deschise și apoi VBA va returna suma tuturor fișierelor și apoi va pune rezultatul în fața numelui fișierului.
Acesta este modul în care putem consolida numerele și prelua într-un singur fișier din diferite fișiere din Microsoft Excel prin VBA.
Dacă ți-au plăcut blogurile noastre, împărtășește-le prietenilor tăi de pe Facebook. Și, de asemenea, ne puteți urmări pe Twitter și Facebook.
Ne-ar plăcea să aflăm de la dvs., să ne anunțați cum putem îmbunătăți, completa sau inova munca noastră și să o îmbunătățim. Scrie-ne lasite de e-mail