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.
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
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:
4. klikken OK. En alle bladen in de actieve werkmap worden samengevoegd in een nieuw blad met de naam "Gecombineerd".
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.
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.
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:
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.
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.
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 Koetools Plus > Combineren om de combineerwizard in te schakelen en vink vervolgens aan Combineer meerdere werkbladen uit werkmappen in één werkblad. Zie screenshots:
2. klikken Volgende>> naar Combineer werkbladen - Stap 2 van 3 wizard, en doe zoals hieronder:
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 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.
4. klikken Finish, 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.
Nu worden de bladen samengevoegd met dezelfde rijkoppen in een nieuwe werkmap.
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:
2. klikken Volgende>> naar de Combineer werkbladen - Stap 2 van 3 wizard, en doe zoals hieronder:
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 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:
4. klikken Finish, 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.
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 proefversie met alle functies binnen 30 dagen! |
Kutools for Excel: met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
Relatieve artikelen
- Hoe combineer je meerdere cellen met voorloopnullen in een cel in Excel?
- Hoe genereer ik een lijst met alle mogelijke combinaties van 4 cijfers in Excel?
- Hoe kan ik elk blad als afzonderlijk tekstbestand uit een werkmap opslaan?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!