Passer au contenu principal

Comment annuler la fusion des cellules et remplir avec des valeurs en double dans Excel?

Si vous avez une feuille de calcul qui contient de nombreuses cellules fusionnées et que vous devez maintenant les annuler et remplir automatiquement les valeurs d'origine des cellules fusionnées comme les captures d'écran suivantes. Comment pourriez-vous faire face rapidement à cette tâche?

Annuler la fusion des cellules et remplir les données en double avec la commande Aller à spécial

Annuler la fusion des cellules et remplir les données en double avec le code VBA

Annuler la fusion des cellules et remplir les données en double en un seul clic


flèche bleue bulle droite Annuler la fusion des cellules et remplir les données en double avec la commande Aller à spécial

Avec la Aller à Spécial commande, vous pouvez annuler la fusion des cellules et remplir les valeurs. Mais cette méthode est quelque peu gênante, veuillez suivre les étapes suivantes:

1. Sélectionnez les colonnes contenant des cellules fusionnées.

2Cliquez sur Accueil > Fusionner et centrer > Annuler la fusion des cellules. Voir la capture d'écran:

3. Et les cellules fusionnées n'ont pas été fusionnées et seule la première cellule sera remplie avec les valeurs d'origine. Et puis sélectionnez à nouveau la plage.

4. Puis clique Accueil > Rechercher et sélectionner > Aller à Spécial. Dans le Aller à Spécial boîte de dialogue, sélectionnez Blanks option. Voir la capture d'écran:

5. Et puis cliquez OK, toutes les cellules vides de la plage ont été sélectionnées. Puis entrez = et appuyez sur Up touche fléchée du clavier. Voir la capture d'écran:

6. Puis appuyez Ctrl + Entrée clés, toutes les cellules vides ont été remplies avec les données fusionnées d'origine. Voir la capture d'écran:


flèche bleue bulle droite Annuler la fusion des cellules et remplir les données en double avec le code VBA

Avec le code VBA suivant, vous pouvez rapidement annuler la fusion des cellules et remplir les valeurs.

1. Maintenez le ALT + F11 clés, et il ouvre le Microsoft Visual Basic pour applications fenêtre.

2Cliquez sur insérer > Moduleet collez la macro suivante dans le Modulefenêtre.

Sous 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. Puis appuyez sur F5 clé pour exécuter ce code, une boîte de dialogue s'affiche pour sélectionner une plage avec laquelle travailler, voir capture d'écran:

4. Cliquez OK, les cellules fusionnées ont été dissociées et remplies automatiquement avec les valeurs fusionnées d'origine.


flèche bleue bulle droite Annuler la fusion des cellules et remplir les données en double en un seul clic

Avec la Annuler la fusion utilité de Kutools for Excel, vous pouvez annuler la fusion des cellules et remplir des données en double en un seul clic, cette méthode est très simple et pratique.

Kutools for Excel : avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation en 30 jours

Après l'installation de Kutools for Excel, vous pouvez procéder comme suit:

1. Sélectionnez les colonnes que vous souhaitez annuler la fusion et remplissez les données.

2Cliquez sur Kutools > Fusionner et fractionner > Annuler la fusion des cellules et remplir la valeur, voir capture d'écran:

3. Et les cellules fusionnées ont été non fusionnées et remplies avec les valeurs en double à la fois. Voir les captures d'écran:


flèche bleue bulle droite Annulez la fusion des cellules et remplissez-les avec des données en double avec Kutools for Excel

Kutools for Excel: avec plus de 300 compléments Excel pratiques, essai gratuit sans limitation dans 30 jours. Téléchargez et essayez gratuitement maintenant!

Article connexe:

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

Meilleurs outils de productivité bureautique

🤖 Aide à l'IA Kutools: Révolutionner l'analyse des données en s'appuyant sur : Exécution intelligente   |  Générer du code  |  Créer des formules personnalisées  |  Analyser les données et générer des graphiques  |  Invoquer les fonctions Kutools...
Caractéristiques populaires: Rechercher, mettre en évidence ou identifier les doublons   |  Supprimer les lignes vides   |  Combinez des colonnes ou des cellules sans perdre de données   |   Tour sans formule 
Super recherche: VSearchup à critères multiples    VSearch à valeurs multiples  |   Recherche virtuelle sur plusieurs feuilles   |   Recherche floue ....
Liste déroulante avancée: Créez rapidement une liste déroulante   |  Liste déroulante dépendante   |  Liste déroulante à sélection multiple ....
Gestionnaire de colonnes: Ajouter un nombre spécifique de colonnes  |  Déplacer les colonnes  |  Basculer l'état de visibilité des colonnes masquées  |  Comparer les plages et les colonnes 
Caractéristiques en vedette: Mise au point de la grille   |  Voir Design   |   Grande barre de formule    Gestionnaire de classeurs et de feuilles   |  Centre de ressources (Texte automatique)   |  Sélecteur de date   |  Combiner des feuilles de travail   |  Crypter/déchiffrer les cellules    Envoyer des e-mails par liste   |  Super filtre   |   Filtre spécial (filtre gras/italique/barré...) ...
Les 15 meilleurs ensembles d'outils12 Texte Outils (Ajouter du texte, Supprimer les caractères, ...)   |   50+ Graphique Types (Diagramme de Gantt, ...)   |   40+ Pratique Formules (Calculer l'âge en fonction de l'anniversaire, ...)   |   19 Insertion Outils (Insérer le code QR, Insérer une image à partir du chemin, ...)   |   12 Conversion Outils (Nombres en mots, Conversion des devises, ...)   |   7 Fusionner et fractionner Outils (Lignes de combinaison avancées, Cellules divisés, ...)   |   ... et plus

Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps.  Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...

Description


Office Tab apporte une interface à onglets à Office et facilite grandement votre travail

  • Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
  • Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
  • Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
Comments (49)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Thanks, It really made life easier
This comment was minimized by the moderator on the site
This doesn't solve the problem with sheet that has some blank cells natively
When you find blank cells and fill with value of the cell above, you accidentally fill all the native-blank cells with unwanted values
This comment was minimized by the moderator on the site
Hello, David,
Thanks for your comment.
Yes, if you use the first method, this problem will occur, but if you want to keep the original blank cells, you'd better to use the second or third method in our article.

Please have a try, hope it can help you!
This comment was minimized by the moderator on the site
Actually there's an easy way to fix this. After step 1, find-replace blank cells with a space.
Then after step 6, find-replace cells with a space with blanks.
Could you consider adding those steps to this tutorial?
This comment was minimized by the moderator on the site
Exatamente o que queria!

Muito obrigada!
This comment was minimized by the moderator on the site
LIFE SAVER! LOVE YOU
This comment was minimized by the moderator on the site
Thanks a lot!! the best solutions
This comment was minimized by the moderator on the site
We can do this using the Broffice Sheets, you must just unmerge it and the data will automatically be repeated in the cells, since they exists before.
This comment was minimized by the moderator on the site
This is amazing. Thank you!
This comment was minimized by the moderator on the site
Thanks... loved it
This comment was minimized by the moderator on the site
The VBA code stalls when an entire columns are selected. There should be a mechanism defending against fruitless running through large loops. Apart from that it works fine.
This comment was minimized by the moderator on the site
thanks very much Saved me lot of time
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations