Combineer meerdere werkbladen in één

In dit artikel gaan we leren hoe u de gegevens uit verschillende werkmappen kunt samenstellen via VBA in Microsoft Excel.

Laten we met een eenvoudige oefening begrijpen hoe u een spreadsheet kunt samenvoegen via VBA in Microsoft Excel.

We hebben 3 verschillende Excel-bestanden. 2 bestanden zijn naar xlsx en één bestand is naar xlsm in een map. We willen beide datasets in een Excel-bestand samenvoegen om een paar dingen in gedachten te houden dat in elke gegevens, rijen en kolommen kunnen worden verhoogd en verlaagd, en we weten ook niet de Excel-bestandsnamen en hoeveel bestanden er in een map zijn .

In dit blad willen we de gegevens combineren: -

1^NS Gegevens:-

2^nd Gegevens:-

3^rd Gegevens:-

Nu willen we de gegevens in een blad verzamelen. We moeten de onderstaande stappen en code volgen: -

Druk op de toets Alt+F11 om de VBE-pagina te openen om de macro te schrijven.
Ga dan naar tabblad invoegen en voeg een module in.
Schrijf onderstaande code op de pagina.

Sub Sorteren_Data()

Dim mappad als tekenreeks, bestandspad als tekenreeks, bestandsnaam als tekenreeks

Folderpath = "E:\Excel Tips\New VBA topics\HR Data\" ‘(vermeld het bestandspad)

filePath = Mappad& "*xls*"

Bestandsnaam = Dir(bestandspad)

Dim LastrowAs Long, Lastcolumn As Long
Doen terwijl bestandsnaam ""

Workbooks.Open (mappad en bestandsnaam)

Laatste rij = ActiveSheet.Cells(Rows.count, 1).End(xlUp).Rij

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

Bereik (cellen (2, 1), cellen (laatste, laatste kolom)). Kopiëren

Application.DisplayAlerts = False

ActiveWorkbook.Sluiten

erow = Blad1.Cellen(Rijen.telling, 1).End(xlUp).Offset(1, 0).Rij

ActiveSheet.Paste Destination:=Worksheets("Blad1").Range(Cells(erow, 1), Cells(erow, 5))

Bestandsnaam = Dir

Lus

Application.DisplayAlerts = True

Einde sub

Code uitleg: - Eerst zullen we de variabele all definiëren die we moeten gebruiken bij het beschrijven van de code. Dan zullen we Do While loop in code gebruiken om het programma voor alle Excel-bestanden uit te voeren. Vervolgens zullen we het pad van bestanden definiëren, en daarna zullen we de laatste rij en kolom in het Excel-blad definiëren en dan zullen we de bestemming definiëren om de gegevens te plakken.