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

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-daagse gratis proefperiode met alle functies, 30-dag 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!


Heb je vragen? Stel ze hier. (168)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
uw eerste macrofunctie hebt gebruikt. WAUW! Bedankt voor het plaatsen
Deze opmerking is gemaakt door de moderator op de site
ik denk dat de code 'Selectie.Offset(0, 0).Resize(Selection.Rows.Count - 1).Select' hoeft er niet te zijn. Aan mijn kant, wat het doet, is de tweede rij selecteren en de eerste missen.
Deze opmerking is gemaakt door de moderator op de site
Ik heb hetzelfde probleem. Het laat de eerste rij van het tweede toegevoegde werkblad weg.
Deze opmerking is gemaakt door de moderator op de site
Elimineert kopteksten, zodat u geen dubbele kopteksten heeft
Deze opmerking is gemaakt door de moderator op de site
Werkt als een tierelier, bedankt voor het delen!
Deze opmerking is gemaakt door de moderator op de site
Dank u! De macro werkte perfect.
Deze opmerking is gemaakt door de moderator op de site
ik weet niet hoe ik de VBN-functie in Excel moet gebruiken, kunt u alstublieft helpen hoe dat te doen.
Deze opmerking is gemaakt door de moderator op de site
Geweldig bedankt!!! Heel erg handig
Deze opmerking is gemaakt door de moderator op de site
Macro één werkt prima. Bedankt!! Het is geweldig!!!! :)
Deze opmerking is gemaakt door de moderator op de site
Merk op dat dit wordt beperkt door de limiet van 65k rijen, als u het bereik Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)(2) moet verhogen om het probleem op te lossen.
Deze opmerking is gemaakt door de moderator op de site
Geweldig hulpmiddel echter, het combineert niet alle 21 vellen. Hoe kan ik het assortiment uitbreiden?
Deze opmerking is gemaakt door de moderator op de site
NOTITIE!!! Je moet voorzichtig zijn met de macro.. het zal werken als je gegevens een continue stroom van informatie hebben en geen lege rij. dit is wat de regel "Selection.CurrentRegion.Select" doet. Als u bijvoorbeeld ALLE gegevens op een spreadsheet moet kopiëren, maar er is een lege regel in (laten we zeggen) rij 200, dan zal de macro alleen naar rij 200 kopiëren; HET ZAL ALLE GEGEVENS ONDER DIE RIJ NEGEREN!!!
Deze opmerking is gemaakt door de moderator op de site
Weet iemand een commando om dit probleem te vermijden?? Het probleem met Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select kan worden opgelost? Selection.Rows.Count - 1) is de opdracht die het probleem veroorzaakt. Iedereen??
Deze opmerking is gemaakt door de moderator op de site
In plaats van vanaf de bovenkant te beginnen en naar beneden te gaan, begin je vanaf de onderkant en ga je omhoog
Deze opmerking is gemaakt door de moderator op de site
Weet iemand de code om problemen met lege rijen en kolommen op te lossen?. Ik heb het in mijn gegevens, maar er is geen eenvoudige oplossing als bottom-up beginnen? Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Voor het verwijderen van lege rijen: Optie 1: Selecteer cellen in kolom A die verwijderd moeten worden. Gebruik Ctrl - en selecteer vervolgens Hele rij in pop-up. Werkmap opslaan en afsluiten. Open vervolgens de werkmap. Optie 2: Selecteer rijen die moeten worden verwijderd. Gebruik Ctrl-. Werkmap opslaan en afsluiten De open werkmap. Optie 1 gegeven zodat het voor jou zichtbaar was wat er aan de hand was. Voor het verwijderen van lege kolommen: Selecteer kolom. Ctrl-. Werkmap opslaan en afsluiten De open werkmap.
Deze opmerking is gemaakt door de moderator op de site
Hebben we een oplossing om de gegevens onder de lege cel te kopiëren?
Deze opmerking is gemaakt door de moderator op de site
Dank u ! Mijn 2e rij was leeg in alle lakens en ik was in de war.
Deze opmerking is gemaakt door de moderator op de site
de vba-code werkte prima, maar ik moet het gecombineerde werkblad bijwerken terwijl ik nieuwe rijen of nieuwe gegevens toevoeg aan de cellen in de werkbladen die ik combineer. Is er een manier om dat te doen? Dank u voor uw hulp.
Deze opmerking is gemaakt door de moderator op de site
De macrocode werkte prima voor het eerste gecombineerde werkblad, maar ik moet het gecombineerde werkblad bijwerken terwijl ik gegevens toevoeg aan de bestaande werkbladen die ik combineer. Is er een manier om dat te doen?
Deze opmerking is gemaakt door de moderator op de site
Ben je er ooit achter gekomen hoe je het in de master kunt laten bijwerken terwijl je rijen toevoegt aan de andere werkbladen?
Deze opmerking is gemaakt door de moderator op de site
Uitstekend werk.. Dit is mijn werk teruggebracht van 2 uur naar 10 minuten.
Deze opmerking is gemaakt door de moderator op de site
Uitstekend, ik heb zowel de eerste macro als Kutools gebruikt, beide hebben mijn gegevensverzameling en compilatiewerk enorm verminderd. Bedankt voor het delen.
Deze opmerking is gemaakt door de moderator op de site
Ik heb zojuist het onderstaande gedeelte gewist en nu wordt het alleen bijgewerkt. Ik hoop dat dit helpt... Bladen(1).Selecteer werkbladen.Toevoegen
Deze opmerking is gemaakt door de moderator op de site
Code werkt prima! Ik heb de macro nodig om alle gegevens op de bladen te kopiëren. Het snijdt de eerste rij na blad 1 af. Alleen blad één heeft de kopregel, de andere bladen zijn alleen gegevens. Is dit mogelijk?
Deze opmerking is gemaakt door de moderator op de site
Ik heb een vraag over "Voeg alle werkbladen samen in één werkblad met VBA-code": de code werkt heel goed, maar alleen als deze leeg is, wordt de kop toegevoegd, is het mogelijk om de code aan te passen om te zeggen dat het lege blad niet moet worden geconsolideerd?
Deze opmerking is gemaakt door de moderator op de site
Bedankt, je hebt me een uur aan kopiëren en plakken bespaard :D
Deze opmerking is gemaakt door de moderator op de site
Heb twee werkmappen, dezelfde gegevens maar de tweede heeft extra gegevens en sommige gegevens zijn bijgewerkt, inv# Status 123 7/2 open inv# status 123 7/2 open 7/7 gesloten hoe samen te voegen tot één werkmap verwijderen of markeren van duplicaten en toevoegen elke nieuwe inv# niet in de eerste
Deze opmerking is gemaakt door de moderator op de site
Werkt prima als uw kolom A niet-= leeg is. Op bladen met kolom A blanco, lijkt het te overschrijven. In mijn gegevens is kolom E een niet-blanco op alle bladen. Hoe kan ik de kopieerbestemming wijzigen om rekening te houden met lege kolom A op sommige bladen?
Deze opmerking is gemaakt door de moderator op de site
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(Selectie.Rij) + 1).Selecteer Bladen("Blad" & CStr(i)).Selecteer bereik("A2").Selecteer bereik(Selectie, Selectie.End(xlDown)).Selecteer bereik(Selectie, Selectie) .End(xlToRight)).Selecteer Selectie.Cut Sheets("Blad1").Select ActiveSheet.Paste Next End Sub
Deze opmerking is gemaakt door de moderator op de site
Range("A:A").SpecialCells(xlCellTypeLastCell).Select ActiveCell.Offset(1, 0).Select 'use this code to select last cell in column "A" [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) .Selecteer Bladen("Blad" & CStr(i)).Selecteer bereik("A2").Selecteer bereik(Selectie, Selectie.End(xlDown)).Selecteer bereik(Selectie, Selectie.End(xlToRight)).Selecteer selectie .Cut Sheets("Blad1").Selecteer ActiveSheet.Paste Next End SubDoor clopez[/ Quote]
Deze opmerking is gemaakt door de moderator op de site
MACRO-CODE WERKT ZO FIJN... SCHITTERENDE WERK :-)
Er zijn nog geen reacties geplaatst
Laad meer

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL