3 méthodes pour concaténer des lignes en une seule cellule selon un groupe dans Excel

La combinaison de plusieurs lignes de données en une seule cellule basée sur un groupe est une exigence courante lors du travail avec des ensembles de données structurés dans Excel. Par exemple, vous pourriez vouloir fusionner tous les noms associés à la même classe dans une seule cellule. Cet article fournit des instructions étape par étape en utilisant diverses méthodes et optimisations adaptées à différents niveaux d'expertise et cas d'utilisation.

• Regrouper et concaténer avec des formules et la fonction Filtre
• Regrouper et concaténer facilement avec Kutools pour Excel
• Regrouper et concaténer avec du code VBA

Regrouper et concaténer avec des formules et la fonction Filtre

Vous pouvez utiliser les formules d'Excel ainsi que la fonction "Filtrer" pour concaténer des lignes en fonction d'une colonne. Veuillez procéder comme suit.

1. Dans une nouvelle colonne, entrez la formule suivante pour concaténer les noms et appuyez sur "Entrée". Faites glisser vers le bas pour l'appliquer à travers la plage de colonnes.

   =IF(A2=A1,C1&", "&B2,B2)

   
2. Dans une nouvelle colonne, entrez la formule suivante, appuyez sur "Entrée" et faites glisser la formule vers le bas.

   =IF(A2<>A3,"Last","")

   
3. Sélectionnez toute la plage de données, y compris les colonnes auxiliaires. Sélectionnez "Données" > "Filtrer" pour ajouter des icônes de filtre aux données.
   
4. Cliquez sur l'icône "Filtre" dans la dernière colonne auxiliaire, cochez uniquement la case "Dernier", puis cliquez sur "OK".
   

Le résultat est maintenant affiché ci-dessous, vous pouvez supprimer la dernière colonne auxiliaire si vous n'en avez plus besoin.

Regrouper et concaténer facilement avec Kutools pour Excel

Kutools pour Excel offre une solution simple et efficace - "Fusion avancée des lignes", vous permettant de fusionner des lignes groupées en une seule cellule en quelques clics seulement. Il ajoute automatiquement des séparateurs personnalisés tels que des virgules, des espaces ou des sauts de ligne pour répondre à divers besoins de présentation des données.

1. Mettez en surbrillance les cellules contenant vos données. Accédez à "Kutools" > "Fusionner et diviser" > "Fusion avancée des lignes".
2. Dans la fenêtreFusion avancée des lignes veuillez configurer comme suit :
   1. Cliquez sur la colonne sur laquelle vous souhaitez regrouper les lignes, et définissez-la comme "clé primaire".
   2. Pour la colonne que vous souhaitez concaténer, comme la colonne "Noms" dans ce cas, spécifiez un délimiteur dans la section "Consolider" sous le champ "Calcul" pour cette colonne.
   3. Cliquez sur le bouton "OK".
   4. 

Résultat : Kutools fusionnera automatiquement les données en fonction du groupe dans une seule cellule avec un délimiteur spécifique.

Regrouper et concaténer avec du code VBA

Vous pouvez également utiliser VBA pour concaténer des lignes en fonction d'un groupe de manière dynamique.

1. Appuyez sur "Alt" + "F11" pour activer la fenêtre "Microsoft Visual Basic for Applications".
2. Dans l'éditeur de code, cliquez sur "Outils" > "Références" pour activer la boîte de dialogue "Références", cochez "Microsoft Scripting Runtime" et enregistrez les modifications.
   
3. Allez dans "Insérer" > "Module" et collez le code VBA suivant dans la fenêtre Module.
   VBA : Concaténer des lignes en une seule cellule en fonction du groupe

   Sub ConcatenateCellsIfSameValues()
   'UpdatebyExtendoffice20180201
       Dim I As Long
       Dim J As Long
       Dim xRg As Range
       Dim xRgKey As Range
       Dim xRgVal As Range
       Dim xStr As String
       Dim xDic As New Dictionary
       On Error Resume Next
       Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
       If xRg Is Nothing Then Exit Sub
       Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
       If xRgKey Is Nothing Then
           MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
       End If
       Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
       For I = 1 To xRgKey.Count
           If I > xRgKey.Count Then Exit For
           xStr = ""
           For J = 1 To xRgVal.Columns.Count
               xStr = xStr & " " & xRgVal(I, J)
           Next
           If xDic.Exists(xRgKey(I).Text) Then
               xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
               xRgKey(I).EntireRow.Delete
               I = I - 1
          Else
               xDic.Add xRgKey(I).Text, xStr
           End If
       Next
       For I = 1 To xRgVal.Count
           xRgVal(I).Value = xDic(xRgKey(I).Text)
       Next
   End Sub

   
4. Appuyez sur la toucheF5 pour exécuter le script, puis suivez les invites pour sélectionner votre plage de données et spécifier les colonnes clés.
   

Le résultat est affiché ci-dessous :

Lorsque vous travaillez avec des données dans Excel, regrouper et fusionner des cellules est une tâche courante mais complexe. Selon vos besoins et vos outils, vous pouvez choisir parmi plusieurs méthodes pour atteindre cet objectif. Sélectionnez l'outil et la méthode les plus appropriés en fonction de vos besoins spécifiques et préférences pour rendre votre travail sur Excel plus efficace et pratique. Si vous êtes intéressé par l'exploration de plus d'astuces et conseils Excel, notre site web propose des milliers de tutoriels pour vous aider à maîtriser Excel.

Démo : Regrouper et concaténer avec Fusion avancée des lignes de Kutools pour Excel