Excel VBA ile Veri Konsolidasyonu

Anonim

Bu yazımızda VBA'dan Microsoft Excel'de verileri birleştirmek için makro yazmayı öğreneceğiz.

Verileri Birleştirin: -Bu seçenek, sonuçları tek çıktıda birleştirerek ayrı aralıklardaki verileri özetlemek için kullanılır.

Verilerin VBA aracılığıyla nasıl birleştirileceğini anlamak için bir örnek alalım.

A, B ve C olarak adlandırılan 3 Excel Çalışma Kitabımız var. Her çalışma kitabında A2:A4 aralığında sayılarla Sayfa1 bulunur. Şimdi, sayıların toplamı ve dosya adı ile birlikte bir Excel dosyasındaki tüm çalışma kitaplarının toplamını almak istiyoruz.

Dosya:-

Dosya B:-

Dosya C:-

Konsolide et: -

Verileri birleştirmek için aşağıdaki adımları izleyin: -

  • Bir Kullanıcı Formu ekleyin, ardından 3 etiket kutusu, 3 metin kutusu ve bir komut düğmesi ekleyin.
  • Makroyu atamak için Komut düğmesine çift tıklayın.
  • Aşağıda belirtilen kodu yazın: -
 Sub Consolidate() Range("A1").ActiveCell'i seçin.Value = "Ad" Range("B1").ActiveCell'i seçin.Value = "Miktar" Aralığı("A2").ActiveCell.Value = "A" Aralığını seçin ("A3").ActiveCell'i seçin.Value = "B" Aralığı("A4").ActiveCell'i seçin.Value = "C"Aralığı("B2").SelectWorkbooks.OpenFileName:="D:\Data\A.xlsx " Workbooks.OpenFileName:="D:\Data\B.xlsx" Workbooks.OpenFileName:="D:\Data\C.xlsx"Windows("Consolidate").Activate Selection.Consolidate Sources:=Array("'D :\Veri\[A.xlsx]sayfa1'!R2C1:R4C1", _ "'D:\Veri\[B.xlsx]sayfa1'!R2C1:R4C1", "'D:\Veri\[C.xlsx] Sheet1'!R2C1:R4C1"), Function:=xlSum Windows("A.xlsx").Activate ActiveWorkbook.Close Windows("B.xlsx").Activate ActiveWorkbook.Close Windows("C.xlsx").Activate ActiveWorkbook .Close End Sub

Kod Açıklama:-Öncelikle aralık değerlerini tanımlayacağız ve ardından her dosyanın yolunu tanımlayacağız. Ardından, her dosya için hangi fonksiyonun çalışacağını ve hangi hesaplamayı birleştirmek istediğimizi tanımlayacağız.
• Kodu çalıştırmak için F5 tuşuna basın.
• Tüm dosyalar açılacak ve ardından VBA, Toplamı tüm dosyalara döndürecek ve ardından sonucu dosya adının önüne koyacaktır.

VBA aracılığıyla Microsoft Excel'deki farklı dosyalardan sayıları birleştirip tek bir dosyada almamızın yolu budur.

Bloglarımızı beğendiyseniz, Facebook'ta arkadaşlarınızla paylaşın. Ayrıca bizi Twitter ve Facebook'ta da takip edebilirsiniz.
Sizden haber almayı çok isteriz, işimizi nasıl iyileştirebileceğimizi, tamamlayabileceğimizi veya yenileyebileceğimizi ve sizin için daha iyi hale getirebileceğimizi bize bildirin. bize yazıne-posta sitesi