Andmete konsolideerimine Exceli VBA kaudu

Anonim

Selles artiklis õpime VBA -d, kuidas kirjutada makro Microsoft Exceli andmete konsolideerimiseks.

Konsolideeri andmed: -Seda valikut kasutatakse erinevate vahemike andmete kokkuvõtmiseks, tulemuste koondamiseks ühte väljundisse.

Võtame näite, et mõista, kuidas andmeid VBA kaudu ühendada.

Meil on 3 Exceli töövihikut nimega A, B ja C. Igal töövihikul on leht 1 numbritega vahemikus A2: A4. Nüüd tahame saada summa kõikide Exceli faili töövihikute hulka koos numbrite summa ja failinimega.

Fail A:-

Fail B:-

Fail C:-

Konsolideerida:-

Andmete koondamiseks toimige järgmiselt.-

  • Sisestage kasutajavorm, seejärel sisestage 3 sildikast, 3 tekstivälja ja üks käsunupp.
  • Makro määramiseks topeltklõpsake käsunuppu.
  • Kirjutage allpool nimetatud kood:-
 Alamkonsolideeri () vahemik ("A1"). Valige ActiveCell.Value = "Nimi" vahemik ("B1"). Valige ActiveCell.Value = "Amount" vahemik ("A2"). Valige ActiveCell.Value = "A" vahemik ("A3"). Valige ActiveCell.Value = "B" vahemik ("A4"). Valige ActiveCell.Value = "C" vahemik ("B2"). Valige Töövihikud.OpenFileName: = "D: \ Data \ A.xlsx "Töövihikud.OpenFileName: =" D: \ Data \ B.xlsx "Töövihikud.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Consolidate "). Aktiveerige Selection.Consolidate Allikad: = Array (" 'D : \ Andmed \ [A.xlsx] leht1 '! R2C1: R4C1 ", _"' D: \ Andmed \ [B.xlsx] leht1 '! R2C1: R4C1 "," "D: \ Andmed \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Funktsioon: = xlSum Windows (" A.xlsx "). Aktiveerige ActiveWorkbook. Sulgege Windows (" B.xlsx "). Aktiveerige ActiveWorkbook. Sulgege Windows (" C.xlsx "). Aktiveerige ActiveWorkbook. .Sulge End Sub

Koodi selgitus:-Esiteks määratleme vahemiku väärtused ja seejärel määratleme iga faili tee. Seejärel määratleme, milline funktsioon töötab iga faili puhul ja millist arvutust me soovime konsolideerida.
• Koodi käivitamiseks vajutage klahvi F5.
• Kõik failid avatakse ja VBA tagastab summa kõikidele failidele ning paneb tulemuse faili nime ette.

Nii saame arvud konsolideerida ja Microsoft Excelist erinevates failides VBA kaudu ühe failina alla laadida.

Kui teile meeldisid meie ajaveebid, jagage seda oma sõpradega Facebookis. Samuti saate meid jälgida Twitteris ja Facebookis.
Tahaksime sinust kuulda, andke meile teada, kuidas saaksime oma tööd täiustada, täiendada või uuendada ning muuta see teie jaoks paremaks. Kirjuta meile aadressile -posti sait