Comment fusionner plusieurs lignes en une seule en fonction des doublons dans Excel ?
Vous disposez peut-être des données illustrées ci-dessous. Dans la colonne A (Nom du produit), certains éléments apparaissent en double. Vous devez maintenant supprimer ces doublons tout en combinant les valeurs correspondantes de la colonne B. Voir les captures d’écran :
 |  |  |
Connaissez-vous des méthodes efficaces pour accomplir cette tâche ?
Combiner plusieurs Ligne en double en une seule à l’aide d’un code VBA
Combiner plusieurs Ligne en double en une seule Kutools pour Excel
Combiner plusieurs Ligne en double et additionner/moyenner les valeurs avec Kutools pour Excel
Combiner plusieurs Ligne en double en une seule à l’aide d’un code VBA
Le code VBA suivant vous permet de fusionner les lignes en double en fonction des valeurs de la colonne A. Il s’applique exclusivement à deux colonnes : il vous sera donc particulièrement utile si vos données ne contiennent que deux colonnes.
1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.
2. Cliquez sur Insertion > Module, puis collez le code suivant dans la fenêtre du module.
Code VBA : combiner plusieurs lignes en une seule
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Appuyez ensuite sur la touche F5. Une boîte de dialogue s’affiche alors pour vous inviter à sélectionner la plage à combiner. Voir la capture d’écran :
4. Cliquez ensuite sur OK : les valeurs de la colonne B sont combinées en un seul enregistrement, séparées par des espaces.
Remarques :
1. Ce code peut endommager les données d’origine ; il est donc fortement recommandé d’en faire une sauvegarde avant toute utilisation.
2. Ce code ne fonctionne qu’avec deux colonnes. Si vous en avez plus, seules les deux premières seront combinées, et les données des autres colonnes seront perdues. Utilisez-le donc avec précaution.
Combiner plusieurs Ligne en double en une seule Kutools pour Excel
Étant donné que le code ci-dessus présente certaines limites et risques, existe-t-il un moyen pratique et sécurisé d’accomplir cette tâche ? Grâce à la fonction Kutools pour Excel’s Fusion avancée des lignes, vous pouvez rapidement supprimer les lignes en double dans les colonnes de référence et fusionner ou effectuer des calculs sur les autres enregistrements directement dans les cellules concernées.
Kutools pour Excel comprend plus de 300 outils Excel pratiques. Essayez-le gratuitement et sans limitation pendant 30 jours.Téléchargez-le dès maintenant.
Après avoir installé Kutools pour Excel, procédez comme suit :
1. Sélectionnez la plage de données dont vous souhaitez fusionner les doublons.
2. Cliquez ensuite sur Kutools > Fusionner et scinder > Fusion avancée des lignes.
3. Dans la boîte de dialogue Fusion avancée des lignes, sélectionnez le nom de la colonne comme Colonne clé sur laquelle vous souhaitez baser la combinaison des valeurs, puis cliquez sur Colonne clé.
4. Cliquez ensuite sur la colonne dont vous souhaitez combiner les valeurs en un seul enregistrement, puis cliquez sur Type de consolidation et choisissez Combiner uniquement avec un séparateur. Enfin, sélectionnez le séparateur souhaité dans la liste de droite pour distinguer les valeurs combinées. Voir la capture d’écran :
5. Une fois les paramètres terminés, cliquez sur OK et vos données seront fusionnées en fonction de la colonne clé, séparées par les délimiteurs choisis.
Remarque : Si vous n’avez pas besoin de définir d’opérations pour les autres colonnes, conservez simplement l’état par défaut.
Combiner plusieurs Ligne en double et additionner/moyenner les valeurs avec Kutools pour Excel
Grâce à cet utilitaire multifonction Fusion avancée des lignes, vous pouvez fusionner les lignes en double et effectuer des calculs sur leurs valeurs.
1. Sélectionnez la plage de données dont vous souhaitez combiner les doublons.
2. Accédez à la boîte de dialogue Fusion avancée des lignes ;
- (1.) Sélectionnez un nom de colonne en tant que Colonne clé sur lequel vous souhaitez baser le calcul des valeurs d’autres colonnes, puis cliquez sur Colonne clé;
- (2.) Sélectionnez la colonne contenant les valeurs sur lesquelles vous souhaitez effectuer des calculs, puis cliquez sur Type de consolidation > Calcul combiné et choisissez le type de calcul qui correspond à vos besoins. Dans cet exemple, j’ai sélectionné Somme. Voir la capture d’écran :
3. Si vous n’avez pas besoin de définir d’opérations pour les autres colonnes, conservez simplement l’état par défaut, puis cliquez sur OK : les valeurs en double de la colonne A seront fusionnées, et leurs valeurs correspondantes dans la colonne B seront additionnées. Voir les captures d’écran :
 | |  |
Remarques :
1. Si vous cochez l’option Inclure les titres, les en-têtes (première ligne) de la plage seront ignorés lors de l’application de cet utilitaire.
2. Utiliser les valeurs formatées : cela conserve la mise en forme des valeurs après la combinaison des cellules en double.
3. Cet utilitaire n’est pas compatible avec les données filtrées.
Cliquez pour en savoir plus sur la fonctionnalité Fusion avancée des lignes.
Article associé :
Combiner des Ligne en double et additionner les valeurs
Meilleurs outils de productivité Office
Boostez vos compétences Excel avec Kutools pour Excel et découvrez une efficacité inégalée.Kutools pour Excel propose plus de 300 fonctionnalités avancées pour améliorer votre productivité et Gagner du temps.Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et rend votre travail bien plus facile
- Activez 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 vous fait économiser des centaines de clics de souris chaque jour !
Tous les compléments Kutools. Un seul installateur
Kutools for Office regroupe les compléments pour Excel, Word, Outlook et PowerPoint, ainsi que Office Tab Pro, ce qui en fait le choix idéal pour les équipes travaillant à travers les applications Office.
- Suite tout-en-un— Compléments Excel, Word, Outlook et PowerPoint + Office Tab Pro
- Un seul installateur, une seule licence— installation en quelques minutes (compatible MSI)
- Fonctionne mieux ensemble— productivité optimisée dans toutes les applications Office
- Essai gratuit de 30 jours avec toutes les fonctionnalités— aucune inscription, aucune carte bancaire
- Meilleur rapport qualité-prix— économisez par rapport à l’achat de compléments individuels