Comment dissocier des cellules et les remplir avec des valeurs en double dans Excel ?

Si vous avez une feuille de calcul contenant de nombreuses cellules fusionnées, et que vous devez maintenant les dissocier et faire descendre automatiquement les valeurs d'origine des cellules fusionnées comme le montrent les captures d'écran suivantes. Comment pourriez-vous gérer rapidement cette tâche ?

Dissocier des cellules et remplir avec des données en double à l'aide de la commande Atteindre spécial

Dissocier des cellules et remplir avec des données en double à l'aide du code VBA

Dissocier des cellules et remplir avec des données en double en un seul clic

Dissocier des cellules et remplir avec des données en double à l'aide de la commande Atteindre spécial

Avec la commande Atteindre spécial, vous pouvez dissocier des cellules et faire descendre les valeurs. Mais cette méthode est quelque peu fastidieuse, veuillez suivre les étapes ci-dessous :

1. Sélectionnez les colonnes qui contiennent des cellules fusionnées.

2. Cliquez sur Accueil > Fusionner et centrer > Dissocier les cellules. Voir capture d'écran :

3. Les cellules fusionnées ont été dissociées et seule la première cellule sera remplie avec les valeurs d'origine. Ensuite, sélectionnez à nouveau la plage.

4. Cliquez ensuite sur Accueil > Rechercher et sélectionner > Atteindre spécial. Dans la boîte de dialogue Atteindre spécial, sélectionnez l'option Cellules vides. Voir capture d'écran :

5. Cliquez ensuite sur OK, toutes les cellules vides de la plage ont été sélectionnées. Ensuite, saisissez = et appuyez sur la touche Flèche vers le haut du clavier. Voir capture d'écran :

6. Appuyez ensuite sur Ctrl + Entrée, toutes les cellules vides ont été remplies avec les données fusionnées d'origine. Voir capture d'écran :

Dissocier des cellules et remplir avec des données en double à l'aide du code VBA

Avec le code VBA suivant, vous pouvez rapidement dissocier les cellules et faire descendre les valeurs.

1. Maintenez les touches ALT + F11 enfoncées, ce qui ouvre la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez sur Insérer > Module, puis collez la macro suivante dans la fenêtre Module.

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. Appuyez ensuite sur la touche F5 pour exécuter ce code, une boîte de dialogue s'affiche pour sélectionner une plage à traiter, voir capture d'écran :

4. Cliquez sur OK, puis les cellules fusionnées ont été dissociées et les valeurs fusionnées d'origine ont été automatiquement descendues.

Dissocier des cellules et remplir avec des données en double en un seul clic

Avec l'utilitaire Dissocier les cellules de Kutools pour Excel, vous pouvez dissocier des cellules et les remplir avec des données en double en un seul clic, cette méthode est très simple et pratique.

Après avoir installé Kutools pour Excel, vous pouvez procéder comme suit :

1. Sélectionnez les colonnes que vous souhaitez dissocier et faire descendre les données.

2. Cliquez sur Kutools > Fusionner et fractionner > Dissocier les cellules et remplir les valeurs, voir capture d'écran :

3. Et les cellules fusionnées ont été dissociées et remplies avec les valeurs en double immédiatement. Voir captures d'écran :

Dissocier des cellules et remplir avec des données en double avec Kutools pour Excel

Article connexe :

Fusionner des lignes adjacentes avec les mêmes données dans Excel