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

Hoe meerdere bladen met dezelfde kopteksten samenvoegen in Excel?

U hebt bijvoorbeeld enkele gegevens met dezelfde kopteksten in verschillende bladen zoals hieronder weergegeven schermafbeeldingen, en nu is het uw taak om deze bladen samen te voegen tot één blad. In plaats van ze een voor een te kopiëren en te plakken, introduceert deze tutorial de betere manieren om deze taak uit te voeren.

doc combineren dezelfde koptekst 1
doc combineren dezelfde koptekst 2
doc combineren dezelfde koptekst 3

Voeg bladen met dezelfde kopteksten samen door VBA

Consolideer Excel-bladen met dezelfde kopteksten door de functie Consolideren

Voeg Excel-bladen met dezelfde kopteksten samen of consolideer ze door Kutools voor Excel goed idee 3


pijl blauw rechts bel Voeg bladen met dezelfde kopteksten samen door VBA

Als u de bladen met dezelfde kopteksten gewoon zonder berekeningen wilt samenvoegen, kunt u de VBA-code toepassen om het op te lossen.

1. Activeer de werkmap waarin u de bladen wilt samenvoegen, druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster.

2. klikken Invoegen > Moduleen plak vervolgens onder VBA-code in het nieuwe Module venster.

VBA: voeg bladen met dezelfde kopteksten samen

Sub Combine()
'UpdateByKutools20151029
    Dim i As Integer
    Dim xTCount As Variant
    Dim xWs As Worksheet
    On Error Resume Next
LInput:
    xTCount = Application.InputBox("The number of title rows", "", "1")
    If TypeName(xTCount) = "Boolean" Then Exit Sub
    If Not IsNumeric(xTCount) Then
        MsgBox "Only can enter number", , "Kutools for Excel"
        GoTo LInput
    End If
    Set xWs = ActiveWorkbook.Worksheets.Add(Sheets(1))
    xWs.Name = "Combined"
    Worksheets(2).Range("A1").EntireRow.Copy Destination:=xWs.Range("A1")
    For i = 2 To Worksheets.Count
        Worksheets(i).Range("A1").CurrentRegion.Offset(CInt(xTCount), 0).Copy _
               Destination:=xWs.Cells(xWs.UsedRange.Cells(xWs.UsedRange.Count).Row + 1, 1)
    Next
End Sub

3. druk op F5 toets om de VBA uit te voeren, en er verschijnt een dialoogvenster waarin u het aantal titelrijen kunt invoeren. Zie screenshot:

doc combineren dezelfde koptekst 4

4. klikken OK. En alle bladen in de actieve werkmap worden samengevoegd in een nieuw blad met de naam "Gecombineerd".

doc combineren dezelfde koptekst 1
doc plus
doc combineren dezelfde koptekst 2
doc plus
doc combineren dezelfde koptekst 3
doc verticaal gelijk
doc combineren dezelfde koptekst 3

Tip:

(1.) Uw gegevens moeten beginnen bij A1, zo niet, dan wordt de code niet van kracht.

(2.) Uw gegevens moeten dezelfde structuur hebben.

(3.) Deze code kan alleen alle werkbladen van de actieve werkmap combineren. Als u werkbladen uit meerdere werkmappen wilt samenvoegen, zal deze code niet werken.


pijl blauw rechts bel Consolideer Excel-bladen met dezelfde kopteksten door de functie Consolideren

Stel dat u enkele gegevens heeft met dezelfde kolom- en rijkoppen als onderstaand screenshot, en u wilt Excel-bladen met dezelfde kopteksten samenvoegen en vervolgens wat berekeningen uitvoeren, dan kunt u de functie Consolideren in Excel toepassen.

doc combineren dezelfde koptekst 6
doc combineren dezelfde koptekst 7
doc combineren dezelfde koptekst 8

1. Open alle werkmappen waaruit u werkbladen wilt samenvoegen en plaats de cursor op een lege cel waar u de samenvoeggegevens wilt zoeken, en klik vervolgens op Data > Consolideren. Zie screenshot:

doc combineren dezelfde koptekst 9

2. Vervolgens in de Consolideren venster, doe zoals hieronder operatie:

1) Selecteer de gewenste berekening Functie lijst;

2) Klik om het bereik te selecteren dat u wilt samenvoegen.

3) Klik op Toevoegen knop om het bereik toe te voegen aan de lijst met alle referenties. Om 2) stap en 3) stappen te herhalen om alle bereiken toe te voegen die nodig zijn om in deze lijst te worden samengevoegd.

4) Controleer Bovenste rij en Linker kolom voor Gebruik labels in pagina.

5) Als u de samengevoegde gegevens aan de brongegevens wilt koppelen, vink dan aan Maak links naar brongegevens.

doc combineren dezelfde koptekst 10
doc combineren dezelfde koptekst 11
1) Selecteer de gewenste berekening Functie lijst;

2) Klik om het bereik te selecteren dat u wilt samenvoegen.

3) Klik op Toevoegen knop om het bereik toe te voegen aan de lijst met alle referenties. Om 2) stap en 3) stappen te herhalen om alle bereiken toe te voegen die nodig zijn om in deze lijst te worden samengevoegd.

4) Controleer Bovenste rij en Linker kolom voor Gebruik labels in pagina.

5) Als u de samengevoegde gegevens aan de brongegevens wilt koppelen, vink dan aan Maak links naar brongegevens.

3. klikken OK. Nu worden alle gegevensreeksen met dezelfde kopteksten samengevoegd tot één gegevensbereik en worden ze samengevat in kopteksten.

doc combineren dezelfde koptekst 6doc combineren dezelfde koptekst 7doc combineren dezelfde koptekst 8
doc verticaal gelijk
doc combineren dezelfde koptekst 12

pijl blauw rechts bel Voeg Excel-bladen met dezelfde kopteksten samen of consolideer ze door Kutools voor Excel

Als u in sommige gevallen alleen gegevens met dezelfde kopteksten wilt samenvoegen en in andere gevallen gegevens wilt samenvoegen en consolideren, zijn er dan trucs waarmee u beide taken kunt oplossen? Hier introduceer ik Kutools for Excelis krachtig Combineren functie voor jou.

Voeg Excel-bladen met dezelfde kopteksten samen

Consolideer meerdere bladen met dezelfde kopteksten

Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. 

Na het installeren van Kutools voor Excel, doe het als volgt:(Download nu Kutools voor Excel!)

Voeg Excel-bladen met dezelfde kopteksten samen

1. klikken Kutools Plus > Combineren om de combineerwizard in te schakelen en vink vervolgens aan Combineer meerdere werkbladen uit werkmappen in één werkblad. Zie screenshots:
doc combineren dezelfde koptekst 14
doc kutools combineren 2

2. klikken Volgende>> naar Combineer werkbladen - Stap 2 van 3 wizard, en doe zoals hieronder:

doc kutools combineren 3
1) Klik op Toevoegen > Bestandsmap om de werkmappen toe te voegen waaruit u werkbladen kunt samenvoegen naar het Werkboeklijst;
2) Controleer de werkmapnaam waarmee u de bladen wilt samenvoegen, u kunt meerdere werkmappen kiezen;
3) Vink de werkbladen aan die u met elkaar wilt combineren;
4) Klik op doc selecteren om het bereik te selecteren dat u wilt combineren, als de bereiken op dezelfde locatie van elk blad zijn geplaatst, hoeft u slechts één bereik uit een blad te selecteren en vervolgens op te klikken Zelfde bereik.

3. klikken Volgende >> aan de Werkblad combineren - Stap 3 van 3 wizard en controleer Combineer per rij optie en het type 1 in het tekstvak van Titel rij nummer, als er geen titel in uw bereik is, typ er dan een 0 in.

doc kutools combineren 4

4. klikken Klaar!, en er verschijnt een dialoogvenster om u eraan te herinneren dit scenario op te slaan. Als u het wilt opslaan, klikt u op Jaof Nee.

doc combineren dezelfde koptekst 17

Nu worden de bladen samengevoegd met dezelfde rijkoppen in een nieuwe werkmap.

doc combineren dezelfde koptekst 18

Consolideer meerdere bladen met dezelfde kopteksten

Na het installeren van Kutools voor Excel, doe het als volgt:(Download nu Kutools voor Excel!)

1. klikken Enterprise > Combineren om de Combine-wizard weer te geven en vink aan Consolideer en bereken waarden over meerdere werkmappen in één werkblad. Zie screenshot:
doc kutools combineren 5

2. klikken Volgende>> naar de Combineer werkbladen - Stap 2 van 3 wizard, en doe zoals hieronder:

doc kutools combineren 3
1) Klik op Toevoegen > Bestandsmap om de werkmappen toe te voegen waaruit u werkbladen kunt samenvoegen naar het Werkboeklijst;
2) Controleer de werkmapnaam waarmee u de bladen wilt samenvoegen, u kunt meerdere werkmappen kiezen;
3) Vink de werkbladen aan die u met elkaar wilt combineren;
4) Klik op doc selecteren om het bereik te selecteren dat u wilt combineren, als de bereiken op dezelfde locatie van elk blad zijn geplaatst, hoeft u slechts één bereik uit een blad te selecteren en vervolgens op te klikken Zelfde bereik.

3. Blijf klikken Volgende>>, en selecteer de functie die u wilt toepassen in het samengevoegde bereik, en controleer de labels voor uw samengevoegde bereik. Zie screenshot:
doc kutools combineren 6

4. klikken Klaar!, en er verschijnt een dialoogvenster waarin u wordt gevraagd het scenario op te slaan, klik op Ja om op te slaan, of klik op Nee om het niet te redden.

Vervolgens worden de bereiken geconsolideerd in een nieuwe werkmap.

doc combineren dezelfde koptekst 12

Het voordeel van Kutools for Excel's Combineren functie is dat u meerdere bladen van geopende werkmappen of ongeopende werkmappen kunt samenvoegen tot één werkblad of één werkmap.

Combineer / consolideer eenvoudig gegevens op basis van dezelfde waarde in Excel

Stel dat u met een werkblad werkt dat meerdere dubbele records bevat, en nu moet u de rijen combineren / samenvoegen op basis van dezelfde waarde en enkele berekeningen uitvoeren, zoals de som, het gemiddelde, het aantal dubbele rijen. Hiermee Geavanceerd Combineer rijen of Kutools for Excel, kunt u snel dezelfde waarden / dezelfde gegevens of dubbele rijen combineren in de juiste cellen.  Klik voor een gratis proefperiode met volledige functionaliteit in 30 dagen!
doc geavanceerd combineren rijen
 
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen.

Relatieve artikelen


De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

  • visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
  • Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
  • Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
  • Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
  • Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
  • Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
  • Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
  • Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
  • Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.
kte tabblad 201905

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

  • Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
  • Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
  • Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken!
officetab onderkant
Comments (18)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik gebruikte 'VBA: bladen samenvoegen met dezelfde kopteksten', maar er blijft een rij leeg na elke bladgegevens, hoe corrigeer ik dit. Is het mogelijk om de code te wijzigen?
Saurabh
Deze opmerking is gemaakt door de moderator op de site
Ik weet niet waarom een ​​lege rij weggaat terwijl je de gegevens samenvoegt met behulp van de VBA, dat gebeurt mij niet. Als er enkele lege rijen moeten worden verwijderd, kunt u op F5 drukken om het dialoogvenster Ga naar te openen en op Speciaal > Spaties klikken om alle lege cellen te selecteren, klik met de rechtermuisknop om de lege rijen te verwijderen.

Maar met de functie Ga naar speciaal, selecteert het lege cellen en niet de lege rijen die niet goed werken, terwijl een rij gegevens bevat die ontbreken. In dit geval kunt u Kutools voor Excel toepassen Lege rijen verwijderen, waarmee lege rijen in selectie, actief werkblad, geselecteerde bladen of hele werkmap kunnen worden verwijderd.
Sunny
Deze opmerking is gemaakt door de moderator op de site
Hallo,


Ik heb je VB-formule voor VBA gecontroleerd: bladen met dezelfde headers samenvoegen, het is absoluut nuttig voor mij, maar ik heb weinig ondersteuning nodig. Ik wil een macro voor dit bestand maken. Zoals ik elke keer een bestand moet downloaden, opslaan met een unieke naam en macro uitvoeren om het blad te combineren.

Bevestig alstublieft.
vinay naik
Deze opmerking is gemaakt door de moderator op de site
Sorry, ik begrijp uw vraag niet. Als je een probleem hebt, ga dan naar ons forum https://www.extendoffice.com/forum.html, misschien kan iemand je helpen.
Sunny
Deze opmerking is gemaakt door de moderator op de site
Ik heb hetzelfde probleem als Saurabh. Het voegt de werkbladen samen en heeft een lege rij nadat alle gegevens van het werkblad zijn gekopieerd. De koptekst wordt echter ook niet gekopieerd naar het nieuwe "Gecombineerde" werkblad. Ik gebruik Excel 2016. Bedankt voor de code, het helpt de tijd die ik besteed te minimaliseren. Ik denk niet dat ik het probleem met de code kan achterhalen en hoop dat u ernaar kunt kijken. Nogmaals bedankt.
Steven
Deze opmerking is gemaakt door de moderator op de site
Ik wil bladen combineren... maar ik wil ook een kolom ("A") toevoegen aan een nieuw blad (gecombineerd) waar de naam van het blad "Blad1", "Blad2" op alle rijen wordt geplaatst die zijn gekopieerd van gerespecteerde bladen .. zodat ik weet welke gegevens uit welk blad komen.
Sarang
Deze opmerking is gemaakt door de moderator op de site
U kunt de Combine-functie van Kutools proberen, het kan de gegevensinformatie van elk blad voor de gegevens in een gecombineerd blad invoegen.
Sunny
Deze opmerking is gemaakt door de moderator op de site
Hoe voeg ik alleen geselecteerde werkbladen in die werkmap samen?
Hoe kan ik de macro uitvoeren om de gegevens wekelijks te vernieuwen zonder het tabblad "Gecombineerd" te hoeven verwijderen?
Charles
Deze opmerking is gemaakt door de moderator op de site
Hoe kan ik alleen bladen met dezelfde koptekst combineren en andere bladen negeren?
Gio
Deze opmerking is gemaakt door de moderator op de site
perfect, bedankt
wayne
Deze opmerking is gemaakt door de moderator op de site
Hallo
Ik kocht Kutools voor Excel 19.00, door interesse in de samenvoegfunctie, maar werkt niet met mijn bestanden en werkbladen, ze hebben allemaal dezelfde naam (werkmap en werkbladen) maar in de combinatie van: "Combineer alle werkbladen met dezelfde naam in één werkblad " werkt niet (doet niets), inclusief bewaart de nieuwe werkmap niet op de plaats die ik selecteer voorafgaand aan het uitvoeren van de knop Voltooien.
Ik volgde de instructies een en andere keer, maar het resultaat is hetzelfde.
Wat hulp?
Ezequiel Zavaleta
Deze opmerking is gemaakt door de moderator op de site
Hallo, Ezequiel Zavaleta, het spijt me dat te horen. U kunt onze Customer Service Manager bereiken via: support@extendoffice.com ons team zal uw problemen zo snel mogelijk oplossen.
Sunny
Deze opmerking is gemaakt door de moderator op de site
Esta excelente la primera macro, pero geen sabrias decirme que solamente me combina 4 columnas?. Si mis hojas tienen un aproximado de 30 columnas.
daniel
Deze opmerking is gemaakt door de moderator op de site
Ik heb VBA gebruikt om alle bladen naar één te kopiëren, maar hoe kan ik alleen geselecteerde bladen kopiëren in plaats van allemaal?
Tina
Deze opmerking is gemaakt door de moderator op de site
wat is vba-code voor het combineren van meerdere bladen in een werkmap in één werkblad als rijkoppen hetzelfde zijn (geen kolomkoppen)
Kishan
Deze opmerking is gemaakt door de moderator op de site
Zeer nuttig de code voor het combineren van meerdere werkbladen, het werkte prima! Dank u!
Hanae
Deze opmerking is gemaakt door de moderator op de site
Bonjour, est-ce possible de Fusionner et LIER Plusieurs Feuilles Avec Les Mêmes En-Têtes Dans Excel afin que les changements qui sont effectués dans les feuilles du classeur soient appliqués in la nieuwe feuille "combinée"?
Julie
Deze opmerking is gemaakt door de moderator op de site
Hallo, Als u bladen met dezelfde bladnamen wilt combineren, is er geen ingebouwde functie in Excel die u kan helpen. U kunt de functie Combineren van Kutools for Excel proberen, het biedt een optie die bladen met dezelfde namen combineert, voor meer informatie kunt u deze tutorial bezoeken https://www.extendoffice.com/product/kutools-for-excel/excel-combine-sheets-of-same-name-into-one-worksheet.html. En Kutools voor Excel ondersteunt een gratis proefperiode van 30 dagen, je kunt het downloaden om het te proberen. https://www.extendoffice.com/download/kutools-for-excel.html
Reactie is voor het laatst bewerkt ongeveer 6 dagen geleden by Sunny Sunny
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0  Personages
Voorgestelde locaties