Direkt zum Inhalt

Wie füge ich Arbeitsblätter oder Arbeitsmappen zu einem Arbeitsblatt zusammen oder konsolidiere sie?

Bei unserer täglichen Arbeit kann es zu einem Problem kommen, bei dem Hunderte von Arbeitsblättern oder Arbeitsmappen zu einem Arbeitsblatt zusammengeführt werden, um Daten zu analysieren. Dies dauert sehr lange, wenn Sie den Befehl Kopieren und Einfügen in Excel verwenden. Hier in diesem Tutorial werde ich einige Tipps geben, wie Sie diesen Job schnell lösen können.

doc kombinieren 1

SCHNELLE NAVIGATION

Zusammenführen aller aktiven Arbeitsmappenblätter zu einem Blatt mit VBA
Zusammenführen von Dutzenden von Blättern oder Arbeitsmappen zu einem Arbeitsblatt / einer Arbeitsmappe mit Klicks
Zusammenführen von zwei Tabellen zu einer und Aktualisieren durch eine Spalte mit Klicks
Beispieldatei herunterladen


Zusammenführen aller aktiven Arbeitsmappenblätter zu einem Blatt mit VBA

In diesem Abschnitt stelle ich einen VBA-Code bereit, der ein neues Blatt erstellt, um alle Blätter der aktiven Arbeitsmappe zu sammeln, während Sie sie ausführen.

1. Aktivieren Sie die Arbeitsmappe, in der Sie alle Blätter kombinieren möchten, und drücken Sie + Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie im Popup-Fenster auf Insert > Modul um ein neues Modul-Skript zu erstellen.

3. Kopieren Sie den folgenden Code und fügen Sie ihn in das Skript ein.

Sub Combine()
'UpdatebyExtendoffice
Dim J As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "Combined"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For J = 2 To Sheets.Count
Sheets(J).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)
Next
End Sub
doc kombinieren 2

4. Drücken Sie F5 Schlüssel, dann wurden alle Daten über Blätter hinweg zu einem neuen Blatt mit dem Namen Kombiniert zusammengeführt, das vor allen Blättern platziert wird.


nicht bewegen

Möchten Sie eine Gehaltserhöhung und viel Zeit haben, um mit der Familie zusammen zu sein?

Mit der Registerkarte "Office" können Sie Ihre Effizienz in Microsoft Office um 50% steigern

Es ist unglaublich, dass die Arbeit an zwei oder mehr Dokumenten einfacher und schneller ist als die Arbeit an einem.

Im Vergleich zu bekannten Browsern ist das Tool mit Registerkarten in Office Tab leistungsfähiger und effizienter.

Reduzieren Sie jeden Tag Hunderte von Mausklicks und Tastatureingaben. Verabschieden Sie sich jetzt von der Maushand.

Wenn Sie normalerweise an mehreren Dokumenten arbeiten, spart Office Tab viel Zeit.

30-tägige kostenlose Testversion, Keine Kreditkarte benötigt.

WeiterlesenKostenloser Download jetzt


Zusammenführen von Dutzenden von Blättern oder Arbeitsmappen zu einem Arbeitsblatt / einer Arbeitsmappe mit Klicks

Mit dem VBA können Sie nur Blätter in der aktiven Arbeitsmappe kombinieren. Wie können Sie jedoch Arbeitsblätter über Arbeitsmappen hinweg zu einem Blatt oder einer Arbeitsmappe zusammenführen?

Führen Sie Arbeitsblätter über Arbeitsmappen hinweg zu einem Arbeitsblatt zusammen
doc kombinieren 18

Führen Sie Arbeitsblätter über Arbeitsmappen hinweg zu einer Arbeitsmappe zusammen
doc kombinieren 3

Um diesen Job zu lösen und andere Anforderungen an die Blattkombination zu erfüllen, muss die Kombinieren Die Funktion wurde mit vier Kombinationsszenarien entwickelt:

  • Kombinieren Sie mehrere Blätter oder Arbeitsmappen zu einem Blatt
  • Kombinieren Sie mehrere Blätter oder Arbeitsmappen zu einer Arbeitsmappe
  • Kombinieren Sie gleichnamige Blätter zu einem Blatt
  • Konsolidieren Sie Werte über Blätter oder Arbeitsmappen hinweg in einem Blatt

Hier ist die zweite Option als Beispiel:

Kombinieren Sie mehrere Blätter oder Arbeitsmappen zu einer Arbeitsmappe

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Aktivieren Sie Excel und klicken Sie auf Kutoolen Plus > KombinierenEin Dialogfeld wird angezeigt, in dem Sie daran erinnert werden, dass die Arbeitsmappen, die Sie kombinieren möchten, geschlossen werden müssen. Klicken OK um fortzufahren.
doc kombinieren 4
doc kombinieren 5

2. In dem Arbeitsblätter kombinieren Schritt 1 Dialog, überprüfen Kombinieren Sie mehrere Arbeitsblätter aus Arbeitsmappen zu einer Arbeitsmappe Möglichkeit. Klicken Weiter um zum nächsten Schritt des Assistenten zu gelangen.
doc kombinieren 6

3 Klicken Speichern > Reichen Sie das or Mappe um die Arbeitsmappen hinzuzufügen, die Sie kombinieren möchten Arbeitsmappenliste Im Bereich können Sie angeben, welches Arbeitsblatt zusammengefügt werden soll, indem Sie Namen einchecken Arbeitsblattliste Feld. Klicken Weiter um zum letzten Schritt des Assistenten zu gelangen.
doc kombinieren 7

4. Geben Sie in diesem Schritt die gewünschten Einstellungen an. Dann klick Endziel.
doc kombinieren 8

5. Ein Fenster wird geöffnet, in dem Sie einen Ordner zum Platzieren der kombinierten Arbeitsmappe auswählen und dann auf klicken Speichern.
doc kombinieren 9

Jetzt wurden die Arbeitsmappen zu einer Arbeitsmappe zusammengeführt. Auf der Vorderseite aller Blätter wird außerdem ein Hauptblatt mit dem Namen Kutools for Excel erstellt, in dem einige Informationen zu den Blättern und Links für jedes Blatt aufgeführt sind.
doc kombinieren 10

Demo: Kombinieren Sie Blätter / Arbeitsmappen zu einem Blatt oder einer Arbeitsmappe

Kutools für Excel: Über 200 nützliche praktische Tools, die die komplizierten Aufgaben in Excel mit wenigen Klicks vereinfachen.

Verabschieden Sie sich jetzt von Maushand und zervikaler Spondylose

300 erweiterte Tools von Kutools für Excel lösen 80% Excel-Aufgaben in Sekundenschnelle lösen Sie aus Tausenden von Mausklicks.

Bewältigen Sie problemlos 1500 Arbeitsszenarien, verschwenden Sie keine Zeit mit der Suche nach Lösungen und haben Sie viel Zeit, Ihr Leben zu genießen.

Verbessern Sie die Produktivität von mehr als 80 hocheffektiven Menschen jeden Tag um 110000 %, natürlich auch für Sie.

Lassen Sie sich nicht mehr von schmerzhaften Formeln und VBA quälen, sondern geben Sie Ihrem Gehirn eine Pause und eine fröhliche Arbeitsstimmung.

30-tägige kostenlose Testversion mit vollem Funktionsumfang, 30-tägige Geld-zurück-Garantie ohne Angabe von Gründen.

Ein besserer Körper schafft ein besseres Leben.


Zusammenführen von zwei Tabellen zu einer und Aktualisieren durch eine Spalte mit Klicks

Wenn Sie zwei Tabellen zu einer zusammenführen und Daten basierend auf einer Spalte aktualisieren möchten, wie im folgenden Screenshot gezeigt, können Sie das versuchen Tabellen zusammenführen Nutzen von Kutools for Excel.
doc kombinieren 11

Kutools für Excel: Mehr als 200 praktische Excel-Add-Ins zur Vereinfachung komplizierter Aufgaben mit wenigen Klicks in Excel

Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1 Klicken Kutoolen Plus > Tabellen zusammenführen ermöglichen Tabellen zusammenführen Assistenten.
doc kombinieren 12

2. In Schritt 1 des Assistenten müssen Sie die Bereiche Haupttabelle und Nachschlagetabelle separat auswählen. Dann klick Weiter.
doc kombinieren 13

3. Überprüfen Sie die Schlüsselspalte, anhand derer Sie die Daten in der Haupttabelle aktualisieren möchten. Klicken Weiter.
doc kombinieren 14

4. Überprüfen Sie dann die Spalten in der Haupttabelle, in denen Sie die Daten basierend auf der Nachschlagetabelle aktualisieren möchten. Klicken Weiter.
doc kombinieren 15

5. Überprüfen Sie in Schritt 4 des Assistenten die Spalten, die Sie von der Nachschlagetabelle zur Haupttabelle hinzufügen möchten. Klicken Weiter.
doc kombinieren 16

6. Geben Sie im letzten Schritt des Assistenten die gewünschten Einstellungsoptionen an. Dann klick Endziel.
doc kombinieren 17

Jetzt hat die Haupttabelle die Daten aktualisiert und neue Daten basierend auf der Nachschlagetabelle hinzugefügt.

Demo: Kombinieren Sie Blätter / Arbeitsmappen zu einem Blatt oder einer Arbeitsmappe

Kutools für Excel: Über 200 nützliche praktische Tools, die die komplizierten Aufgaben in Excel mit wenigen Klicks vereinfachen.


Beispieldatei herunterladen

Sample


Empfohlene Produktivitätswerkzeuge

Registerkarte "Office" - Durchsuchen, Bearbeiten und Verwalten von Dokumenten in Microsoft Office 2019 - 2003 und Office 365


Registerkarte Büro

Als professionelles Add-In zur Beschleunigung von Excel 2019-2007 können Sie Stundenaufgaben auf Sekunden reduzieren

Dieses Add-In umfasst Dutzende von Berufsgruppen mit mehr als 300 Optionen, die die meisten Ihrer täglichen Aufgaben in Excel automatisieren und Ihre Produktivität um mindestens 50% steigern. Zum Beispiel Gruppen von Ein-Klick-Optons und Stapelkonvertierungen.
Jetzt ist es Ihre Chance, sich mit Kutools for Excel zu beschleunigen!


Comments (168)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a system that generates an excel file everyday. The daily file name is of format "<filename-12282021>". The 12282021 is the timestamp and it changes everyday creating a new excel file each day. I want to create a Master Workbook and then append the contents of the daily excel file into that master workbook. How can I automate it so it happens by itself everyday and the master file is update with contents of the daily file.   Thank you.
This comment was minimized by the moderator on the site
Hi rd2022, sorry that I have no idea to solve your problem so far. You can go to our forum https://www.extendoffice.com/forum/excel.html to leave this message, maybe some users have the same problem and has been solved.
This comment was minimized by the moderator on the site
In combining shhets I want to add one extra column in combined sheet as ShhetName
Can you suggest ?
This comment was minimized by the moderator on the site
The Combine function of Kutools for Excel can help you to insert sheet name in a new row of each combined range in the combined sheet by checking First row of each range (new row) in Insert worksheet information section in the last step of the Combine.
This comment was minimized by the moderator on the site
Hi - this function works well except my file has more than 900 sheets, and when I change the maximum number of rows (Loc 16, "A65536") to a higher number, the macro doesn't work. Is there a way to increase the number of rows that can be shown on the combine sheet?
This comment was minimized by the moderator on the site
The VBA code works fine but I want the data to be merged horizontally(side by side).
Hope you can help.
This comment was minimized by the moderator on the site
Hi,


Great Code and for the most part it works fantastically well.


Could I suggest creating a written tutorial for each line of code. I'd love to be able to play around with it to suit my Company's needs.

In the meantime however could you talk me through problems that would hinder this code from copying all data from each Sheet? I've noticed some sheets in my workbook aren't being copied at all.

To give you some context I'm dealing with roughly 330 sheets and they hold from 50 to 500 lines in each.


looking forward to hearing from you.
This comment was minimized by the moderator on the site
Hi, Daniel, I do not understand your question as you describe it not clearly, but if you have the Combine function in Excel, it can solve most of your question about combining sheets.
This comment was minimized by the moderator on the site
Hi,

Is it possible to only copy a particular range of cells for example A:4:FU38 from each sheet?


Also in the Combined sheet where the data is copied to, can the tab names from where the data is copied included in column A to enable lookups or to pivot the data?


Finally, can i specify the list of worksheets from which to copy the data across or maybe i can specify something like copy all worksheets to the left of a particular worksheet in the file.


Thanks in advance for your help
This comment was minimized by the moderator on the site
Hi, HS, you mean to combine same ranges from sheets into one sheet, it that right? If so, this article may help you: https://www.extendoffice.com/documents/excel/2754-excel-combine-ranges-from-different-worksheets-into-one.html#a3
This comment was minimized by the moderator on the site
This VBA code is an absolute lifesaver. Thank you!!
This comment was minimized by the moderator on the site
Hi. This code works well but I have the same problem as adj. The 1st row form each tab doesn't appear in the combined tab - except he first tab. Thanks
This comment was minimized by the moderator on the site
Just delete "Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select" from the code.

If you want to merge all rows from all worksheets, just use the code:

Sub Combine()

'UpdatebyExtendoffice

Dim J As Integer

On Error Resume Next

Sheets(1).Select

Worksheets.Add

Sheets(1).Name = "Combined"

Sheets(2).Activate

Range("A1").EntireRow.Select

Selection.Copy Destination:=Sheets(1).Range("A1")

For J = 2 To Sheets.Count

Sheets(J).Activate

Range("A1").Select

Selection.CurrentRegion.Select

Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2)

Next

End Sub
This comment was minimized by the moderator on the site
Yes, the code only can keep first row of the first tab, because it is used to consolidate, if you want to keep all contents of each sheet, you can try Combine utility of Kutools for Excel, it is free fior 60 days
This comment was minimized by the moderator on the site
i had a problem when I try to combine all same name worksheet to one worksheet, it works but some value are missing. so what should i do?
This comment was minimized by the moderator on the site
Hello, elok, did the problem appear while you applying Combine function? If so, please go to contact us to describe the problem with more details, our support will handle the problem for you.
This comment was minimized by the moderator on the site
Thanks that macro saved my day. I had over 40 sheets of data to combine into one and although my computer bogged for a minute or two, it completed without issue. The only modification I made was I tweaked the macro to start with A2 instead of A1 since A1 was my column headers.
This comment was minimized by the moderator on the site
Thanks for your support, Andrew, I am glad that the macro can help you.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations