Kombinieren Sie mehrere Arbeitsblätter zu einem

In diesem Artikel erfahren Sie, wie Sie die Daten aus verschiedenen Arbeitsmappen über VBA in Microsoft Excel zusammenstellen.

Lassen Sie uns mit einer einfachen Übung verstehen, wie Sie Tabellenkalkulationen über VBA in Microsoft Excel zusammenführen.

Wir haben 3 verschiedene Excel-Dateien. 2 Dateien sind zu xlsx und eine Datei ist zu xlsm in einem Ordner. Wir möchten beide Datensätze in einer Excel-Datei zusammenführen, um einige Dinge zu beachten, dass in allen Daten Zeilen und Spalten vergrößert und verkleinert werden können und wir auch die Excel-Dateinamen nicht kennen und wie viele Dateien sich in einem Ordner befinden .

In diesem Blatt möchten wir die Daten kombinieren:-

1^NS Daten:-

2^nd Daten:-

3^rd Daten:-

Nun wollen wir die Daten in einem Blatt zusammenstellen. Wir müssen den unten angegebenen Schritten und Code folgen:

Drücken Sie die Taste Alt+F11, um die VBE-Seite zum Schreiben des Makros zu öffnen.
Gehen Sie dann auf Registerkarte einfügen und fügen Sie ein Modul ein.
Schreiben Sie den unten genannten Code in die Seite.

Unter Collate_Data()

Dim FolderpathAs String, filePath As String, Filename As String

Folderpath = "E:\Excel-Tipps\Neue VBA-Themen\HR-Daten\" '(Dateipfad angeben)

filePath = Ordnerpfad& "*xls*"

Dateiname = Dir(DateiPfad)

Dim LastrowAs Long, Lastcolumn As Long
Do While Dateiname ""

Workbooks.Open (Ordnerpfad & Dateiname)

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

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

Range(Cells(2, 1), Cells(Lastrow, Lastcolumn)).Kopieren

Application.DisplayAlerts = False

ActiveWorkbook.Schließen

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

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

Dateiname = Dir

Schleife

Application.DisplayAlerts = True

End Sub

Code-Erklärung: - Zuerst werden wir die all-Variable definieren, die wir beim Beschreiben des Codes verwenden müssen. Dann verwenden wir die Do While-Schleife im Code, um das Programm für alle Excel-Dateien auszuführen. Dann definieren wir den Pfad der Dateien, und danach definieren wir die letzte Zeile und Spalte im Excel-Blatt und dann definieren wir das Ziel zum Einfügen der Daten.