Note: The other languages of the website are Google-translated. Back to English

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

Nachher 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 Verwenden Sie > 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 Sie sparen.
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, haben Sie viel Zeit, Ihr Leben zu genießen.

Verbessern Sie die Produktivität von mehr als 80 hocheffektiven Mitarbeitern jeden Tag um 110000 %, selbstverständlich 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 allen Funktionen, 30-Tag Geld zurück 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

Nachher 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!


Kommentare (168)
Noch keine Bewertungen. Bewerten Sie als Erster!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ihre erste Makrofunktion verwendet. BEEINDRUCKEND! danke fürs Schreiben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich denke, der Code 'Selection.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select' muss nicht dabei sein. An meinem Ende wählt es die zweite Zeile aus und verpasst die erste.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe das gleiche Problem. Es lässt die erste Zeile aus dem zweiten hinzugefügten Arbeitsblatt weg.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Eliminiert Kopfzeilen, damit Sie keine doppelten Kopfzeilen haben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert wie ein Zauber, danke fürs Teilen!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke! Das Makro funktionierte einwandfrei.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich weiß nicht, wie man die VBN-Funktion in Excel verwendet, können Sie bitte helfen, wie das geht.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Super, Danke!!! Sehr sehr nützlich
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Makro eins funktioniert einwandfrei. Vielen Dank!! Es ist toll!!!! :)
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Beachten Sie, dass dies durch die Zeilenbegrenzung von 65 KB begrenzt ist, wenn Sie den Bereich Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) nach oben verschieben müssen, um das Problem zu lösen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Tolles Tool, es kombiniert jedoch nicht alle 21 Blätter. Wie kann ich das Sortiment erweitern?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
HINWEIS!!! Sie müssen mit dem Makro vorsichtig sein. Es funktioniert, wenn Ihre Daten einen kontinuierlichen Informationsfluss und keine leeren Zeilen enthalten. dies macht die Zeile "Selection.CurrentRegion.Select". Wenn Sie beispielsweise ALLE Daten in eine Tabelle kopieren müssen, aber in (sagen wir) Zeile 200 eine leere Zeile vorhanden ist, kopiert das Makro nur bis Zeile 200; ES WIRD ALLE DATEN UNTER DIESER REIHE NICHT BEACHTEN!!!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kennt jemand einen Befehl, um dieses Problem zu vermeiden? Das Problem mit Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select kann gelöst werden? Selection.Rows.Count - 1) ist der Befehl, der das Problem verursacht. Jeder??
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Anstatt oben zu beginnen und nach unten zu gehen, beginne unten und gehe nach oben
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Kennt jemand den Code, um Probleme mit leeren Zeilen und Spalten zu lösen?. Ich habe es in meinen Daten, aber es gibt keine einfache Lösung, um von unten nach oben zu beginnen? Vielen Dank!
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Zum Löschen leerer Zeilen: Option 1: Wählen Sie Zellen in Spalte A aus, die gelöscht werden müssen. Verwenden Sie Strg - und wählen Sie dann im Popup-Menü die Option Ganze Zeile aus. Arbeitsmappe speichern und beenden. Öffnen Sie dann die Arbeitsmappe. Option 2: Wählen Sie Zeilen aus, die gelöscht werden müssen. Verwenden Sie Strg -. Arbeitsmappe speichern und beenden Die geöffnete Arbeitsmappe. Gab Option 1, damit Sie sehen konnten, was passierte. Um leere Spalten zu löschen: Spalte auswählen. Strg -. Arbeitsmappe speichern und beenden Die geöffnete Arbeitsmappe.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Haben wir eine Lösung, um die Daten unter die leere Zelle zu kopieren?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke ! Meine 2. Reihe war in allen Blättern leer und ich war verwirrt.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der VBA-Code hat großartig funktioniert, aber ich muss das kombinierte Arbeitsblatt aktualisieren, wenn ich neue Zeilen oder neue Daten zu den Zellen in den Arbeitsblättern hinzufüge, die ich kombiniere. Gibt es eine Möglichkeit, das zu tun? Danke für deine Hilfe.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Der Makrocode hat für das erste kombinierte Arbeitsblatt hervorragend funktioniert, aber ich muss das kombinierte Arbeitsblatt aktualisieren, wenn ich Daten zu den vorhandenen Arbeitsblättern hinzufüge, die ich kombiniere. Gibt es eine Möglichkeit, das zu tun?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Haben Sie jemals herausgefunden, wie Sie es im Master aktualisieren können, wenn Sie Zeilen zu den anderen Arbeitsblättern hinzufügen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ausgezeichnete Arbeit.. Dadurch wurde meine Arbeit von 2 Stunden auf 10 Minuten reduziert.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ausgezeichnet, ich habe sowohl das erste Makro als auch Kutools verwendet, beides hat meine Datenerfassungs- und Kompilierungsarbeit enorm reduziert. Danke für das Teilen.
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe gerade den unten angegebenen Teil gelöscht und jetzt wird er nur aktualisiert. Hoffe, das hilft ... Sheets(1).Select Worksheets.Add
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Code funktioniert super! Ich brauche das Makro, um alle Daten auf die Blätter zu kopieren. Es schneidet die erste Zeile nach Blatt 1 ab. Nur Blatt eins hat die Kopfzeile, die anderen Blätter sind nur Daten. Ist das möglich?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Ich habe eine Frage zu "Alle Arbeitsblätter in einem Arbeitsblatt mit VBA-Code zusammenführen": Der Code funktioniert sehr gut, aber nur wenn er leer ist, fügt er die Kopfzeile hinzu, es ist möglich, den Code zu ändern, um zu sagen, dass das leere Blatt nicht konsolidiert werden soll?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Danke, du hast mir eine Stunde Kopieren und Einfügen erspart :D
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Haben Sie zwei Arbeitsmappen, dieselben Daten, aber die zweite hat zusätzliche Daten und einige Daten wurden aktualisiert, inv# Status 123 7/2 offen inv# Status 123 7/2 offen 7/7 geschlossen, wie man zu einer zusammenführt, um Duplikate zu entfernen oder hervorzuheben und hinzuzufügen jede neue inv# nicht in der ersten
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Funktioniert hervorragend, wenn Ihre Spalte A nicht = leer ist. Auf Blättern mit leerer Spalte A scheint es zu überschreiben. In meiner dtaa-Spalte E ist auf allen Blättern ein Nicht-Leerzeichen. Wie kann ich das Kopierziel ändern, um die leere Spalte A auf einigen Blättern zu berücksichtigen?
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1).Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlDown)). .End(xlToRight)).Select Selection.Cut Sheets("Sheet1").Select ActiveSheet.Paste Next End Sub
Dieser Kommentar wurde vom Moderator auf der Website minimiert
Range("A:A").SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1, 0).Select 'verwenden Sie diesen Code, um die letzte Zelle in Spalte "A" auszuwählen [quote] Sub CopySheet() ' ' CopySheet Macro ' ' Dim i As Integer For i = 2 To 25 Sheets("Sheet1").Select Range("A1").Select Selection.End(xlDown).Select Range("A" & CStr(Selection.Row) + 1) .Select Sheets("Sheet" & CStr(i)).Select Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection .Blätter ausschneiden ("Blatt1").ActiveSheet auswählen.Nächste Endunterlage einfügenVon Clopez[/ Quote]
Dieser Kommentar wurde vom Moderator auf der Website minimiert
MACRO CODE FUNKTIONIERT SO FEIN ... FAB JOB :-)
Es sind noch keine Kommentare vorhanden
Mehr laden

Folgen Sie uns

Copyright © 2009 - www.extendoffice.com. | Alle Rechte vorbehalten. Unterstützt von ExtendOffice. | Sitemap
Microsoft und das Office-Logo sind Marken oder eingetragene Marken der Microsoft Corporation in den USA und / oder anderen Ländern.
Geschützt durch Sectigo SSL