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.
Kutools for Excel : met meer dan 300 handige Excel-invoegtoepassingen, gratis te proberen zonder beperking in 30 dagen. |
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
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!