Kombinirajte više radnih listova u jedan

U ovom ćemo članku naučiti kako sastaviti podatke iz različitih radnih knjiga kroz VBA u programu Microsoft Excel.

Shvatimo jednostavnom vježbom kako spojiti tabelarni list kroz VBA u Microsoft Excelu.

Imamo 3 različite Excel datoteke. 2 datoteke su u xlsx, a jedna u xlsm u mapi. Želimo uporediti oba skupa podataka u Excel datoteci kako bismo imali nekoliko stvari na umu da se u svim podacima redovi i stupci mogu povećavati i smanjivati, a također ne znamo nazive datoteka programa Excel i koliko datoteka ima u mapi .

U ovom listu želimo kombinirati podatke:-

1^sv Podaci:-

2^nd Podaci:-

3^rd Podaci:-

Sada želimo uporediti podatke u listu. Moramo slijediti dolje navedene korake i kôd:-

Pritisnite tipke Alt+F11 za otvaranje VBE stranice za pisanje makronaredbe.
Zatim idite na umetanje kartice i umetnite modul.
Napišite ispod navedeni kod na stranicu.

Sub Collate_Data ()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E: \ Excel Savjeti \ Nove teme VBA \ HR podaci \" '(navedite put do datoteke)

filePath = Putanja mape & "*xls*"

Naziv datoteke = Dir (filePath)

Dim LastrowSa Long, Lastcolumn As Long
Do While Naziv datoteke ""

Radne knjige. Otvorite (Putanje mape i naziv datoteke)

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

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

Raspon (ćelije (2, 1), ćelije (zadnja, zadnji stupac)). Kopiraj

Application.DisplayAlerts = Netačno

ActiveWorkbook.Zatvorite

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

ActiveSheet.Paste Destination: = Radni listovi ("List1"). Raspon (ćelije (erow, 1), ćelije (erow, 5))

Naziv datoteke = Dir

Petlja

Application.DisplayAlerts = Istina

Kraj podm

Objašnjenje koda: - Prvo ćemo definirati sve varijable koje moramo koristiti pri opisivanju koda. Zatim ćemo upotrijebiti petlju Do While u kodu za pokretanje programa za sve Excel datoteke. Zatim ćemo definirati put datoteka, a zatim ćemo definirati zadnji redak i stupac u Excelovom listu, a zatim ćemo odrediti odredište za lijepljenje podataka.