Консолидиране на данни чрез Excel VBA

Anonim

В тази статия ще научим VBA как да пише макроса за консолидиране на данните в Microsoft Excel.

Консолидирани данни: -Тази опция се използва за обобщаване на данни от отделни диапазони, консолидиране на резултатите в единичен изход.

Нека вземем пример, за да разберем как да комбинираме данните чрез VBA.

Имаме 3 работни книги на Excel, наречени A, B и C. Всяка работна книга има Sheet1 с числата в диапазона A2: A4. Сега искаме да извлечем сумата до всички работни книги във файл на Excel със сумата от числа и името на файла.

Файл А:-

Файл B:-

Файл В:-

Консолидирайте:-

За да консолидирате данните, следвайте следните стъпки:-

  • Поставете потребителски формуляр, след това вмъкнете 3 полета с етикети, 3 текстови полета и един команден бутон.
  • Щракнете двукратно върху бутона Command, за да зададете макроса.
  • Напишете кода по-долу:-
 Sub Consolidate () Range ("A1"). Изберете ActiveCell.Value = "Name" Range ("B1"). Изберете ActiveCell.Value = Диапазон "Amount" ("A2"). Изберете ActiveCell.Value = "A" Range ("A3"). Изберете ActiveCell.Value = "B" Range ("A4"). Изберете 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 "). Активирайте Selection.Consolidate източници: = Array (" 'D : \ Данни \ [A.xlsx] лист1 '! R2C1: R4C1 ", _"' D: \ Данни \ [B.xlsx] лист1 '! R2C1: R4C1 ","' D: \ Данни \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Функция: = xlSum Windows (" A.xlsx "). Активирайте ActiveWorkbook. Затворете Windows (" B.xlsx "). Активирайте ActiveWorkbook. Затворете Windows (" C.xlsx "). Активирайте ActiveWorkbook .Затвори Sub Sub

Код Обяснение:-Първо ще дефинираме стойностите на диапазона и след това ще определим пътя на всеки файл. След това ще определим коя функция ще работи за всеки файл и какво изчисление искаме да консолидираме.
• За да стартирате кода, натиснете клавиша F5.
• Всички файлове ще бъдат отворени и след това VBA ще върне сумата на всички файлове и след това ще постави резултата пред името на файла.

Това е начинът, по който можем да обединим числата и да извлечем в един файл от различни файлове в Microsoft Excel чрез VBA.

Ако ви харесаха нашите блогове, споделете го с приятелите си във Facebook. Можете също така да ни следвате в Twitter и Facebook.
Ще се радваме да чуем от вас, уведомете ни как можем да подобрим, допълним или обновим работата си и да я подобрим. Пишете ни наимейл сайт