Birden Çok Çalışma Sayfasını Birinde Birleştirin

Bu yazıda, Microsoft Excel'de VBA aracılığıyla farklı çalışma kitaplarından verileri nasıl bir araya getireceğimizi öğreneceğiz.

Basit bir alıştırmayla, Microsoft Excel'de VBA aracılığıyla elektronik tablonun nasıl birleştirileceğini anlayalım.

3 farklı Excel dosyamız var. Bir klasördeki 2 dosya xlsx'e ve bir dosya xlsm'ye. Her veride, satır ve sütunların artırılıp azaltılabileceğini ve ayrıca Excel dosya adlarını ve bir klasörde kaç dosya olduğunu bilmediğimizi akılda tutmak için her iki veri kümesini Excel dosyasında harmanlamak istiyoruz. .

Bu sayfada, verileri birleştirmek istiyoruz: -

1^NS Veri:-

2^nd Veri:-

3^rd Veri:-

Şimdi, verileri bir sayfada harmanlamak istiyoruz. Aşağıda verilen adımları ve kodu izlememiz gerekiyor: -

Makroyu yazmak üzere VBE sayfasını açmak için Alt+F11 tuşlarına basın.
Ardından sekmeye gidin ve bir modül ekleyin.
Sayfaya aşağıda belirtilen kodu yazın.

Alt Harmanlama_Verileri()

Dim FolderpathAs Dize, filePath As Dize, Dosya Adı As Dize

Folderpath = "E:\Excel İpuçları\Yeni VBA konuları\HR Verileri\" '(dosya yolunu belirtin)

filePath = Klasöryolu& "*xls*"

Dosya adı = Dir(dosyayolu)

Dim LastrowAs Long, Lastcolumn As Long
Dosya Adı "" Yaparken

Workbooks.Open (Klasöryolu ve Dosya Adı)

Lastrow = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Row

Lastcolumn = ActiveSheet.Cells(1, Columns.count).End(xlToLeft).Column

Aralık(Hücreler(2, 1)), Hücreler(Lastrow, Lastcolumn)).Kopyala

Application.DisplayAlerts = Yanlış

ActiveWorkbook.Kapat

erow = Sheet1.Cells(Satır.sayısı, 1).End(xlUp).Offset(1, 0).Satır

ActiveSheet.Paste Hedef:=Çalışma Sayfaları("Sayfa1").Range(Hücreler(erow, 1), Hücreler(erow, 5))

Dosya adı = Dir

Döngü

Application.DisplayAlerts = Doğru

Alt Bitiş

Kod açıklaması: - Öncelikle kodu tanımlarken kullanmamız gereken tüm değişkenleri tanımlayacağız. Ardından programı tüm Excel dosyaları için çalıştırmak için Do while döngüsünü kodda kullanacağız. Ardından dosyaların yolunu tanımlayacağız ve bundan sonra Excel sayfasındaki son satırı ve sütunu tanımlayacağız ve ardından verileri yapıştırmak için hedefi tanımlayacağız.