Tietojen yhdistäminen Excel VBA: n kautta

Anonim

Tässä artikkelissa aiomme oppia VBA: n makron kirjoittamisesta tietojen yhdistämiseksi Microsoft Exceliin.

Yhdistä tiedot: -Tätä vaihtoehtoa käytetään tiivistämään eri alueiden tiedot ja yhdistämään tulokset yhteen lähtöön.

Otetaan esimerkki ymmärtääksemme, miten tiedot yhdistetään VBA: n kautta.

Meillä on kolme Excel -työkirjaa, nimeltään A, B ja C. Jokaisessa työkirjassa on taulukko 1, jonka numerot ovat alueella A2: A4. Nyt haluamme hakea summan kaikkiin Excel -tiedoston työkirjoihin, joissa on myös numeroiden ja tiedostonimen summa.

Tiedosto A:-

Tiedosto B:-

Tiedosto C:-

Lujittaa:-

Voit yhdistää tiedot seuraavasti:-

  • Lisää käyttäjälomake ja lisää sitten 3 tarrakenttää, 3 tekstiruutua ja yksi komentopainike.
  • Määritä makro kaksoisnapsauttamalla Komento -painiketta.
  • Kirjoita alla mainittu koodi:-
 Sub Consolidate () Range ("A1"). Valitse ActiveCell.Value = "Name" Range ("B1"). Valitse ActiveCell.Value = "Amount" Range ("A2"). Valitse ActiveCell.Value = "A" Range ("A3"). Valitse ActiveCell.Value = "B" -alue ("A4"). Valitse ActiveCell.Value = "C" -alue ("B2"). ValitseWorkbooks.OpenFileName: = "D: \ Data \ A.xlsx "Työkirjat.OpenFileName: =" D: \ Data \ B.xlsx "Työkirjat.OpenFileName: =" D: \ Data \ C.xlsx "Windows (" Yhdistä "). Aktivoi valinta.Konsolidoi lähteet: = Array (" 'D : \ Data \ [A.xlsx] sheet1 '! R2C1: R4C1 ", _"' D: \ Data \ [B.xlsx] sheet1 '! R2C1: R4C1 "," "D: \ Data \ [C.xlsx] sheet1 '! R2C1: R4C1 "), Function: = xlSum Windows (" A.xlsx "). Aktivoi ActiveWorkbook.Sulje Windows (" B.xlsx "). Aktivoi ActiveWorkbook.Sulje Windows (" C.xlsx "). Aktivoi ActiveWorkbook Sulje End Sub

Koodin selitys:-Ensinnäkin määritämme aluearvot ja sitten määritämme jokaisen tiedoston polun. Sitten määritämme, mikä toiminto toimii jokaiselle tiedostolle ja minkä laskennan haluamme yhdistää.
• Voit suorittaa koodin painamalla F5 -näppäintä.
• Kaikki tiedostot avataan ja VBA palauttaa summan kaikille tiedostoille ja laittaa sitten tuloksen tiedostonimen eteen.

Tällä tavalla voimme yhdistää numerot ja hakea yksittäiset tiedostot Microsoft Excelin eri tiedostoista VBA: n kautta.

Jos pidit blogistamme, jaa se ystävillesi Facebookissa. Voit myös seurata meitä Twitterissä ja Facebookissa.
Haluaisimme kuulla sinusta, kerro meille, kuinka voimme parantaa, täydentää tai innovoida työtämme ja parantaa sitä sinulle. Kirjoita meille osoitteeseensähköpostisivusto