Wie kombiniert man mehrere Arbeitsmappen in einer übergeordneten Arbeitsmappe in Excel?

Waren Sie jemals in der Situation, in der Sie mehrere Arbeitsmappen in eine übergeordnete Arbeitsmappe in Excel zusammenführen mussten und nicht weiterkamen? Das Schlimmste ist, dass die Arbeitsmappen, die Sie kombinieren müssen, mehrere Arbeitsblätter enthalten. Und wie kann man nur bestimmte Arbeitsblätter aus mehreren Arbeitsmappen in eine einzige Arbeitsmappe zusammenführen? Dieses Tutorial zeigt Ihnen verschiedene nützliche Methoden, um das Problem Schritt für Schritt zu lösen.

Kombinieren Sie mehrere Arbeitsmappen in einer Arbeitsmappe mit der Funktion Verschieben oder Kopieren

Wenn es nur ein paar Arbeitsmappen gibt, die kombiniert werden müssen, können Sie den Befehl Verschieben oder Kopieren verwenden, um die Arbeitsblätter manuell von der ursprünglichen Arbeitsmappe in die übergeordnete Arbeitsmappe zu verschieben oder zu kopieren.

1. Öffnen Sie die Arbeitsmappen, die Sie in einer übergeordneten Arbeitsmappe zusammenführen möchten.

2. Wählen Sie die Arbeitsblätter in der Originalarbeitsmappe aus, die Sie in die übergeordnete Arbeitsmappe verschieben oder kopieren möchten.

3. Nachdem Sie die benötigten Arbeitsblätter ausgewählt haben, klicken Sie mit der rechten Maustaste auf die Blattregisterkarte und dann im Kontextmenü auf Verschieben oder Kopieren. Siehe Screenshot:

4. Dann öffnet sich das Dialogfeld Verschieben oder Kopieren. Wählen Sie im Dropdown-Menü Zu Buch die übergeordnete Arbeitsmappe aus, in die Sie die Arbeitsblätter verschieben oder kopieren möchten. Wählen Sie am Ende vor dem Blatt verschieben im Feld Vor Blatt aus, aktivieren Sie das Kontrollkästchen Eine Kopie erstellen und klicken Sie abschließend auf die Schaltfläche OK.

Dann können Sie sehen, dass die Arbeitsblätter aus zwei Arbeitsmappen in einer kombiniert wurden. Bitte wiederholen Sie die obigen Schritte, um Arbeitsblätter aus anderen Arbeitsmappen in die übergeordnete Arbeitsmappe zu verschieben.

Kombinieren Sie mehrere Arbeitsmappen oder bestimmte Blätter von Arbeitsmappen in einer übergeordneten Arbeitsmappe mit VBA

Wenn mehrere Arbeitsmappen in eine einzige zusammengeführt werden müssen, können Sie die folgenden VBA-Codes anwenden, um dies schnell zu erreichen. Gehen Sie wie folgt vor.

1. Legen Sie alle Arbeitsmappen, die Sie kombinieren möchten, in einem gemeinsamen Verzeichnis ab.

2. Starten Sie eine Excel-Datei (diese Arbeitsmappe wird die übergeordnete Arbeitsmappe sein).

3. Drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul und kopieren Sie den folgenden VBA-Code in das Modulfenster.

VBA-Code 1: Mehrere Excel-Arbeitsmappen in eine zusammenführen

Sub GetSheets()
'Updated by Extendoffice 2019/2/20
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xlsx")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

Sub MergeWorkbooks()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
On Error Resume Next
xStrPath = "C:\Users\DT168\Desktop\KTE\"
xStrFName = Dir(xStrPath & "*.xlsx")
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
Do While Len(xStrFName) > 0
    Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
    xStrAWBName = ActiveWorkbook.Name
    For Each xWS In ActiveWorkbook.Sheets
    xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
    Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
    xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
    Next xWS
    Workbooks(xStrAWBName).Close
    xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub

Sub MergeSheets2()
'Updated by Extendoffice 2019/2/20
Dim xStrPath As String
Dim xStrFName As String
Dim xWS As Worksheet
Dim xMWS As Worksheet
Dim xTWB As Workbook
Dim xStrAWBName As String
Dim xI As Integer
On Error Resume Next

xStrPath = " C:\Users\DT168\Desktop\KTE\"
xStrName = "Sheet1,Sheet3"

xArr = Split(xStrName, ",")

Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set xTWB = ThisWorkbook
xStrFName = Dir(xStrPath & "*.xlsx")
Do While Len(xStrFName) > 0
Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
xStrAWBName = ActiveWorkbook.Name
For Each xWS In ActiveWorkbook.Sheets
For xI = 0 To UBound(xArr)
If xWS.Name = xArr(xI) Then
xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
Exit For
End If
Next xI
Next xWS
Workbooks(xStrAWBName).Close
xStrFName = Dir()
Loop
Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub

4. Drücken Sie die Taste F5, um den Code auszuführen. Dann werden alle Arbeitsblätter oder bestimmte Arbeitsblätter der Arbeitsmappen in einem bestimmten Ordner sofort in einer übergeordneten Arbeitsmappe zusammengeführt.

Kombinieren Sie ganz einfach mehrere Arbeitsmappen oder bestimmte Blätter von Arbeitsmappen in einer Arbeitsmappe

Glücklicherweise macht die Kombinationsfunktion für Arbeitsmappen von Kutools für Excel es viel einfacher, mehrere Arbeitsmappen in einer zusammenzuführen. Sehen wir uns an, wie diese Funktion beim Zusammenführen mehrerer Arbeitsmappen funktioniert.

1. Erstellen Sie eine neue Arbeitsmappe und klicken Sie auf Kutools Plus > Kombinieren. Dann erscheint ein Dialogfeld, das Sie daran erinnert, dass alle kombinierten Arbeitsmappen gespeichert sein müssen und die Funktion nicht auf geschützte Arbeitsmappen angewendet werden kann. Klicken Sie bitte auf die Schaltfläche OK.

2. Wählen Sie im Assistenten zum Kombinieren von Arbeitsblättern die Option Mehrere Arbeitsblätter aus Arbeitsmappen in eine Arbeitsmappe kombinieren und klicken Sie dann auf die Schaltfläche Weiter. Siehe Screenshot:

3. Im Dialogfeld Kombinieren von Arbeitsblättern - Schritt 2 von 3 klicken Sie auf Hinzufügen > Datei oder Ordner, um die Excel-Dateien hinzuzufügen, die Sie zusammenführen möchten. Nachdem Sie die Excel-Dateien hinzugefügt haben, klicken Sie auf die Schaltfläche Fertig und wählen einen Ordner aus, um die übergeordnete Arbeitsmappe zu speichern. Siehe Screenshot:

Jetzt sind alle Arbeitsmappen in einer zusammengeführt.

Im Vergleich zu den ersten beiden Methoden hat Kutools für Excel die folgenden Vorteile:

• 1) Alle Arbeitsmappen und Arbeitsblätter werden im Dialogfeld aufgelistet;
• 2) Für die Arbeitsblätter, die Sie nicht zusammenführen möchten, deaktivieren Sie sie einfach;
• 3) Leere Arbeitsblätter werden automatisch ausgeschlossen;
• 4) Der ursprüngliche Dateiname wird nach dem Zusammenführen als Präfix zum Blattnamen hinzugefügt;
• Für weitere Funktionen dieses Features besuchen Sie bitte hier.