Skombinujte viac pracovných listov do jedného

V tomto článku sa naučíme zhromažďovať údaje z rôznych zošitov prostredníctvom jazyka VBA v programe Microsoft Excel.

Pochopme jednoduchým cvičením, ako zlúčiť hárok pomocou VBA v programe Microsoft Excel.

Máme 3 rôzne súbory programu Excel. 2 súbory sú vo formáte xlsx a jeden súbor je vo formáte xlsm v priečinku. Chceme zoskupiť obidve množiny údajov do súboru programu Excel, aby sme mali na pamäti niekoľko vecí, že v každom údaji je možné riadky a stĺpce zväčšovať a zmenšovať, a taktiež nepoznáme názvy súborov programu Excel a počet súborov, ktoré sa nachádzajú v priečinku. .

V tomto hárku chceme skombinovať údaje:-

1^sv Údaje:-

2^nd Údaje:-

3^rd Údaje:-

Teraz chceme zhromaždiť údaje do hárka. Musíme postupovať podľa nižšie uvedených krokov a kódu:-

Stlačením klávesov Alt+F11 otvoríte stránku VBE na napísanie makra.
Potom prejdite na kartu Vložiť a vložte modul.
Napíšte nižšie uvedený kód na stránku.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E: \ Tipy pre Excel \ Nové témy VBA \ HR údaje \" '(uveďte cestu k súboru)

filePath = Cesta k priečinku & "*xls*"

Názov súboru = Dir (filePath)

Dim LastrowAko dlhá, posledný stĺpček tak dlho
Urobiť pri názve súboru „“

Zošity. Otvorené (Cesta priečinka a názov súboru)

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

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

Rozsah (bunky (2, 1), bunky (posledná, posledný stĺpec)). Kopírovať

Application.DisplayAlerts = False

ActiveWorkbook.Zavrieť

erow = Sheet1.Cells (Rows.count, 1). End (xlUp). Offset (1, 0) .Row

ActiveSheet.Paste Cieľ: = Pracovné listy ("List1"). Rozsah (Bunky (erow, 1), Bunky (erow, 5))

Názov súboru = Dir

Slučka

Application.DisplayAlerts = Pravda

Koniec pod

Vysvetlenie kódu: - Najprv definujeme všetky premenné, ktoré musíme použiť pri opise kódu. Potom použijeme slučku v kóde Do While na spustenie programu pre všetky súbory programu Excel. Potom definujeme cestu k súborom a potom definujeme posledný riadok a stĺpec v hárku programu Excel a potom definujeme miesto určenia na vloženie údajov.