Hoe kunt u cellen ontkoppelen en invullen met dubbele waarden in Excel?
Als u een werkblad hebt met talloze Samengevoegd en u deze nu moet ontkoppelen en automatisch de oorspronkelijke waarden uit de Samengevoegd naar beneden wilt vullen, zoals op de volgende schermafbeeldingen is weergegeven, hoe kunt u deze taak dan snel uitvoeren?
![]() | ![]() | ![]() |
Cellen ontkoppelen en invullen met dubbele gegevens via de opdracht Ga naar speciaal
Cellen ontkoppelen en invullen met dubbele gegevens via VBA-code
Cellen ontkoppelen en invullen met dubbele gegevens met één klik
Cellen ontkoppelen en invullen met dubbele gegevens via de opdracht Ga naar speciaal
Met de Ga naar speciaal-opdracht kunt u cellen ontkoppelen en de waarden naar beneden vullen. Deze methode is echter nogal omslachtig. Volg de onderstaande stappen:
1. Selecteer de kolommen met samengevoegde cellen.
2. Klik op Start > Samenvoegen en centreren > Cellen ontkoppelen. Zie schermafbeelding:

3. De samengevoegde cellen zijn nu ontkoppeld en alleen de eerste cel bevat nog de oorspronkelijke waarden. Selecteer het bereik daarna opnieuw.

4. Klik vervolgens op Start > Zoeken en selecteren > Ga naar speciaal. Selecteer in het dialoogvenster Ga naar speciaal de optie Lege cellen. Zie schermafbeelding:

5. Klik daarna op OK. Alle lege cellen in het bereik zijn nu geselecteerd. Typ vervolgens = en druk op de pijltoets Omhoog op het toetsenbord. Zie schermafbeelding:

6. Druk daarna op Ctrl + Enter. Alle lege cellen zijn nu gevuld met de oorspronkelijke samengevoegde gegevens. Zie schermafbeelding:

Cellen ontkoppelen en invullen met dubbele gegevens via VBA-code
Met de volgende VBA-code ontkoppelt u cellen razendsnel en vult u de waarden naar beneden.
1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.
2. Klik op Invoegen > Module en plak de volgende macro in het Module-venster.
Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
If Rng.MergeCells Then
With Rng.MergeArea
.UnMerge
.Formula = Rng.Formula
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub 3. Druk daarna op de toets F5 om deze code uit te voeren. Er verschijnt een dialoogvenster waarin u een bereik kunt selecteren om mee te werken. Zie schermafbeelding:

4. Klik op OK. De cellen zijn nu ontkoppeld en automatisch gevuld met de oorspronkelijke samengevoegde waarden.
Cellen ontkoppelen en invullen met dubbele gegevens met één klik
Met het hulpprogramma Cellen ontkoppelen van Kutools voor Excel kunt u cellen ontkoppelen en invullen met dubbele gegevens met slechts één klik. Deze methode is uiterst eenvoudig en handig.
Na installatie van Kutools voor Excelgaat u als volgt te werk:
1. Selecteer de kolommen die u wilt ontkoppelen en waarvan u de gegevens naar beneden wilt kopiëren.
2. Klik op Kutools > Samenvoegen en splitsen > Ontkoppel cellen en vul waarden in. Zie schermafbeelding:

3. De samengevoegde cellen zijn nu ontkoppeld en direct gevuld met de dubbele waarden. Zie de schermafbeeldingen:
![]() | ![]() | ![]() |
Kutools voor Excel– Geef Excel een boost met meer dan 300 essentiële hulpmiddelen, waardoor uw werk sneller en eenvoudiger verloopt, en profiteer van AI-functies voor slimmere gegevensverwerking en productiviteit.Nu verkrijgen
Cellen ontkoppelen en invullen met dubbele gegevens met Kutools voor Excel
Gerelateerd artikel:
Aangrenzende rijen samenvoegen met dezelfde gegevens in Excel
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins


