Zkombinujte více pracovních listů do jednoho

V tomto článku se naučíme, jak shromáždit data z různých sešitů prostřednictvím VBA v aplikaci Microsoft Excel.

Pojďme si s jednoduchým cvičením porozumět tomu, jak sloučit tabulku pomocí VBA v Microsoft Excelu.

Máme 3 různé soubory aplikace Excel. 2 soubory jsou xlsx a jeden soubor je xlsm ve složce. Chceme shromáždit obě sady dat v souboru aplikace Excel, abychom měli na paměti několik věcí, že v každém datu lze řádky a sloupce zvětšovat a zmenšovat, a také neznáme názvy souborů aplikace Excel a počet souborů ve složce .

V tomto listu chceme kombinovat data:-

1^Svatý Data:-

2^nd Data:-

3^rd Data:-

Nyní chceme data shromáždit do listu. Musíme postupovat podle níže uvedených kroků a kódu:-

Stisknutím klávesy Alt+F11 otevřete stránku VBE pro zápis makra.
Poté přejděte na kartu Vložit a vložte modul.
Na stránku napište níže uvedený kód.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E: \ Excel Tips \ Nová témata VBA \ HR Data \" ‘(uveďte cestu k souboru)

filePath = Cesta ke složce & "*xls*"

Název souboru = Dir (filePath)

Dim Lastrow Jako dlouhý, poslední sloupec stejně dlouhý
Dělat při názvu souboru ""

Sešity. Otevřeno (Cesta složky a název souboru)

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

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

Rozsah (buňky (2, 1), buňky (Lastrow, Lastcolumn)). Kopírovat

Application.DisplayAlerts = False

Aktivní pracovní kniha. Zavřít

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

ActiveSheet.Paste Cíl: = Pracovní listy ("List1"). Rozsah (buňky (erow, 1), buňky (erow, 5))

Název souboru = Dir

Smyčka

Application.DisplayAlerts = True

End Sub

Vysvětlení kódu: - Nejprve definujeme všechny proměnné, které musíme použít při popisu kódu. Poté použijeme smyčku Do While v kódu ke spuštění programu pro všechny soubory aplikace Excel. Poté definujeme cestu k souborům a poté definujeme poslední řádek a sloupec v listu aplikace Excel a poté definujeme cíl pro vložení dat.