Ga naar hoofdinhoud

Hoe werkbladen of werkmappen samen te voegen of samen te voegen tot één werkblad?

In ons dagelijkse werk kunnen we een probleem tegenkomen waarbij honderden bladen of werkmappen worden samengevoegd tot één blad voor het analyseren van gegevens, wat veel tijd kost als u de opdracht Kopiëren en Plakken in Excel gebruikt. Hier in deze tutorial zal ik enkele tips geven om deze klus snel op te lossen.

doc combineren 1

SNELLE NAVIGATIE

Alle bladen met een actieve werkmap samenvoegen tot één blad met VBA
Tientallen bladen of werkmappen samenvoegen tot één werkblad / werkmap met klikken
Twee tabellen samenvoegen tot één en bijwerken door een kolom met klikken
Download voorbeeldbestand


Alle bladen met een actieve werkmap samenvoegen tot één blad met VBA

In deze sectie geef ik een VBA-code waarmee een nieuw blad wordt gemaakt om alle bladen van de actieve werkmap te verzamelen terwijl u deze uitvoert.

1. Activeer de werkmap waarvan u alle bladen wilt combineren en druk op + sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. Klik in het pop-upvenster op Invoegen > Module om een ​​nieuw modulescript te maken.

3. Kopieer onderstaande code en plak ze in het script.

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 combineren 2

4. druk op F5 -toets, dan zijn alle gegevens over de bladen samengevoegd in een nieuw blad met de naam Gecombineerd dat voor alle bladen wordt geplaatst.


iet bewegen

Wilt u een loonsverhoging en veel tijd om met uw gezin te begeleiden?

Office-tabblad verbetert uw efficiëntie met 50% in Microsoft Office dat nu werkt

Ongelofelijk, werken aan twee of meer documenten is gemakkelijker en sneller dan werken aan één.

In vergelijking met bekende browsers is de tool met tabbladen in Office Tab krachtiger en efficiënter.

Verminder elke dag honderden muisklikken en typen op het toetsenbord, zeg nu gedag tegen de muishand.

Als u gewoonlijk aan meerdere documenten werkt, bespaart Office Tab u veel tijd.

30-dag gratis op proef, geen kredietkaart nodig.

Lees meerGratis nu downloaden


Tientallen bladen of werkmappen samenvoegen tot één werkblad / werkmap met klikken

Met de VBA kunt u alleen bladen in de actieve werkmap combineren, maar hoe kunt u bladen uit werkmappen samenvoegen tot een blad of werkmap?

Voeg bladen uit werkmappen samen tot één blad
doc combineren 18

Voeg bladen uit werkmappen samen in één werkmap
doc combineren 3

Voor het oplossen van deze klus en om te voldoen aan andere eisen aan vellencombinaties, is de Combineren functie is ontwikkeld met vier combinatiescenario's:

  • Combineer meerdere bladen of werkmappen in één blad
  • Combineer meerdere bladen of werkmappen in één werkmap
  • Combineer bladen met dezelfde naam in één blad
  • Consolideer waarden over bladen of werkmappen in één blad

Hier neemt de tweede optie als voorbeeld:

Combineer meerdere bladen of werkmappen in één werkmap

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. Activeer Excel, klik op Koetools Plus > Combineren, verschijnt er een dialoogvenster om u eraan te herinneren dat de werkmappen die u wilt combineren, moeten worden gesloten. Klik OK te gaan.
doc combineren 4
doc combineren 5

2. In de Combineer werkbladen stap 1 dialoogvenster, vink aan Combineer meerdere werkbladen uit werkmappen in één werkmap keuze. Klik Volgende om naar de volgende stap van de wizard te gaan.
doc combineren 6

3. klikken Toevoegen > Dien in or Map om de werkmappen die u wilt combineren toe te voegen aan het Werkboeklijst paneel, dan kunt u aangeven welk werkblad zal worden samengevoegd door namen in te checken Werkblad lijst paneel. Klik Volgende om naar de laatste stap van de wizard te gaan.
doc combineren 7

4. Geef in deze stap de gewenste instellingen op. Dan klikken Finish.
doc combineren 8

5. Er verschijnt een venster waarin u een map selecteert om de gecombineerde werkmap in te plaatsen, en klik vervolgens op Bespaar.
doc combineren 9

Nu zijn de werkmappen samengevoegd tot één werkmap. En aan de voorkant van alle bladen wordt ook een hoofdblad met de naam Kutools voor Excel gemaakt met wat informatie over de bladen en koppelingen voor elk blad.
doc combineren 10

Demo: combineer bladen / werkmappen in één blad of werkmap

Kutools for Excel: 200+ handige handige tools, die de gecompliceerde taken in Excel met een paar klikken vereenvoudigen.

Zeg nu gedag tegen muishand en cervicale spondylose

300 geavanceerde tools van Kutools voor Excel oplossen 80% Excel-taken in seconden, haal je uit de duizenden muisklikken.

Ga gemakkelijk om met 1500 werkscenario's, u hoeft geen tijd te verspillen aan het zoeken naar oplossingen, u heeft veel tijd om van uw leven te genieten.

Verbeter elke dag de productiviteit van 80% voor meer dan 110000 zeer effectieve mensen, natuurlijk ook voor u.

Niet langer gekweld worden door pijnlijke formules en VBA, geef uw hersenen een rustgevende en vreugdevolle werkstemming.

30 dagen gratis proefperiode met alle functies, 30 dagen geld terug zonder opgaaf van reden.

Een beter lichaam zorgt voor een beter leven.


Twee tabellen samenvoegen tot één en bijwerken door een kolom met klikken

Als u twee tabellen tot één wilt samenvoegen en gegevens wilt bijwerken op basis van een kolom zoals hieronder afgebeeld, kunt u het Tabellen samenvoegen nut van Kutools for Excel.
doc combineren 11

Kutools for Excel: meer dan 200 handige Excel-invoegtoepassingen om gecompliceerde taken met een paar klikken in Excel te vereenvoudigen

Na gratis installeren Kutools voor Excel, doe het als volgt:

1. klikken Koetools Plus > Tabellen samenvoegen in staat te stellen Tabellen samenvoegen wizard.
doc combineren 12

2. In stap 1 van de wizard moet u de bereiken van de hoofdtabel en de opzoektabel afzonderlijk selecteren. Dan klikken Volgende.
doc combineren 13

3. Vink de sleutelkolom aan waarvan u de gegevens in de hoofdtabel wilt bijwerken op basis van. Klik Volgende.
doc combineren 14

4. Controleer vervolgens de kolommen in de hoofdtabel waarvan u de gegevens wilt bijwerken op basis van de opzoektabel. Klik Volgende.
doc combineren 15

5. Vink in stap 4 van de wizard de kolommen aan die u vanuit de opzoektabel aan de hoofdtabel wilt toevoegen. Klik Volgende.
doc combineren 16

6. Geef in de laatste stap van de wizard de gewenste instelopties op. Dan klikken Finish.
doc combineren 17

Nu heeft de hoofdtabel de gegevens bijgewerkt en nieuwe gegevens toegevoegd op basis van de opzoektabel.

Demo: combineer bladen / werkmappen in één blad of werkmap

Kutools for Excel: 200+ handige handige tools, die de gecompliceerde taken in Excel met een paar klikken vereenvoudigen.


Download voorbeeldbestand

monster


Aanbevolen productiviteitstools

Office-tabblad - Bladeren, bewerken en beheren van documenten met tabbladen in Microsoft Office 2019-2003 en Office 365


kantoor tab

Een professionele invoegtoepassing voor het versnellen van Excel 2019-2007, uren taken terugbrengen tot seconden

Deze invoegtoepassing omvat tientallen professionele groepen, met meer dan 300 opties automatiseert u de meeste van uw dagelijkse taken in Excel en verhoogt u uw productiviteit met minstens 50%. Zoals groepen optons met één klik en batchconversies.
Nu is het uw kans om uzelf te versnellen met Kutools voor Excel!


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