Hoe cellen samen te voegen en te vullen met dubbele waarden in Excel?

Als je een werkblad hebt met een groot aantal samengevoegde cellen, en nu moet je ze weer samenvoegen en automatisch de originele waarden van de samengevoegde cellen invullen zoals in de volgende schermafbeeldingen. Hoe kon u deze taak snel afhandelen?

Ontkoppel cellen en vul met dubbele gegevens met de opdracht Ga naar speciaal

Ontkoppel cellen en vul met dubbele gegevens met VBA-code

Ontkoppel cellen en vul ze met dubbele gegevens met één klik

Ontkoppel cellen en vul met dubbele gegevens met de opdracht Ga naar speciaal

Met de Ga naar speciaal commando, kunt u de samenvoeging van cellen ongedaan maken en de waarden invullen. Maar deze methode is enigszins lastig, voer de volgende stappen uit:

1. Selecteer de kolommen met samengevoegde cellen.

2. Klikken Home > Samenvoegen en centreren > Ontkoppel cellen. Zie screenshot:

3. En de samengevoegde cellen zijn niet meer samengevoegd en alleen de eerste cel wordt gevuld met de oorspronkelijke waarden. En selecteer vervolgens het bereik opnieuw.

4. Dan klikken Home > Zoek en selecteer > Ga naar speciaal. In de Ga naar speciaal dialoogvenster, selecteer blanks optie. Zie screenshot:

5. En klik vervolgens op OK, zijn alle lege cellen in het bereik geselecteerd. Voer dan in = en druk op Up pijltoets op het toetsenbord. Zie screenshot:

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

Ontkoppel cellen en vul met dubbele gegevens met VBA-code

Met de volgende VBA-code kunt u de cellen snel samenvoegen en de waarden invullen.

1. Houd de ALT + F11 toetsen, en het opent de Microsoft Visual Basic voor toepassingen venster.

2. Klikken Invoegen > Moduleen 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 voor elke Rng in WorkRng If Rng.MergeCells dan met Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub

3. Druk vervolgens op F5 sleutel om deze code uit te voeren, wordt een dialoogvenster weergegeven voor het selecteren van een bereik om mee te werken, zie screenshot:

4. Klik OK, dan zijn de samengevoegde cellen opgeheven en zijn de oorspronkelijke samengevoegde waarden automatisch ingevuld.

Ontkoppel cellen en vul ze met dubbele gegevens met één klik

Met de Ontkoppel cel nut van Kutools for Excel, je kunt cellen ongedaan maken en met één klik vullen met dubbele gegevens, deze methode is heel eenvoudig en handig.

Na het installeren van Kutools for Excelkunt u het volgende doen:

1. Selecteer de kolommen die u niet meer wilt samenvoegen en vul de gegevens in.

2. Klikken Kutools > Samenvoegen en splitsen > Ontkoppel cellen en vul waarde, zie screenshot:

3. En de samengevoegde cellen zijn samengevoegd en in één keer gevuld met de dubbele waarden. Zie screenshots:

Ontkoppel cellen en vul met dubbele gegevens met Kutools voor Excel

Gerelateerd artikel:

Voeg aangrenzende rijen met dezelfde gegevens samen in Excel

---

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-2021 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Volledige functies Gratis proefperiode van 30 dagen. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop... 

---

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!

Lees verder... Gratis download... Aankoop...