Hoe samengevoegde cellen te splitsen en te vullen met dubbele waarden in Excel?

Als u een werkblad heeft dat talloze samengevoegde cellen bevat, en u moet ze nu splitsen en automatisch de oorspronkelijke waarden vanuit de samengevoegde cellen naar beneden invullen zoals in de volgende schermafbeeldingen wordt getoond. Hoe kunt u deze taak snel afhandelen?

Cellen splitsen en vullen met dubbele gegevens met de Speciale Selectie-opdracht

Cellen splitsen en vullen met dubbele gegevens met VBA-code

Cellen splitsen en vullen met dubbele gegevens met één klik

Cellen splitsen en vullen met dubbele gegevens met de Speciale Selectie-opdracht

Met de opdracht Speciale Selectie kunt u cellen splitsen en waarden naar beneden invullen. Maar deze methode is enigszins lastig, volg daarom de volgende stappen:

1. Selecteer de kolommen die samengevoegde cellen bevatten.

2. Klik op Start > Samenvoegen & Centreren > Cellen splitsen. Zie screenshot:

3. En de samengevoegde cellen zijn gesplitst en alleen de eerste cel zal gevuld worden met de oorspronkelijke waarden. Selecteer vervolgens het bereik opnieuw.

4. Klik dan op Start > Zoeken & Selecteren > Speciale Selectie. Selecteer in het dialoogvenster Speciale Selectie de optie Lege cellen. Zie screenshot:

5. Klik vervolgens op OK, alle lege cellen in het bereik zijn geselecteerd. Voer dan = in en druk op de pijl-omhoogtoets op het toetsenbord. Zie screenshot:

6. Druk vervolgens op Ctrl + Enter-toetsen, alle lege cellen zijn gevuld met de oorspronkelijke samengevoegde gegevens. Zie screenshot:

Cellen splitsen en vullen met dubbele gegevens met VBA-code

Met de volgende VBA-code kunt u snel cellen splitsen en waarden naar beneden invullen.

1. Houd de toetsen ALT + F11 ingedrukt, en het venster Microsoft Visual Basic for Applications wordt geopend.

2. Klik op Invoegen > Module, en plak de volgende macro in het Modulevenster.

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 vervolgens op de F5-toets om deze code uit te voeren, er wordt een dialoogvenster weergegeven voor het selecteren van een bereik om mee te werken, zie screenshot:

4. Klik op OK, dan zijn de samengevoegde cellen gesplitst en automatisch gevuld met de oorspronkelijke samengevoegde waarden.

Cellen splitsen en vullen met dubbele gegevens met één klik

Met het hulpprogramma Cellen splitsen van Kutools voor Excel kunt u cellen splitsen en vullen met dubbele gegevens met één klik, deze methode is heel eenvoudig en handig.

Nadat u Kutools voor Excel hebt geïnstalleerd, kunt u als volgt te werk gaan:

1. Selecteer de kolommen die u wilt splitsen en waarin u de gegevens naar beneden wilt invullen.

2. Klik op Kutools > Samenvoegen & Splitsen > Cellen splitsen en vul waarden, zie screenshot:

3. En de samengevoegde cellen zijn gesplitst en direct gevuld met de dubbele waarden. Zie screenshots:

Cellen splitsen en vullen met dubbele gegevens met Kutools voor Excel

Gerelateerd artikel:

Aangrenzende rijen samenvoegen met dezelfde gegevens in Excel