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.
- 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)
- Dans une nouvelle colonne, entrez la formule suivante, appuyez sur "Entrée" et faites glisser la formule vers le bas.
=IF(A2<>A3,"Last","")
- 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.
- 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.
Kutools pour Excel - Regorge de plus de 300 outils essentiels pour Excel. Profitez de fonctionnalités IA définitivement gratuites ! Téléchargez dès maintenant !
- Mettez en surbrillance les cellules contenant vos données. Accédez à "Kutools" > "Fusionner et diviser" > "Fusion avancée des lignes".
- Dans la fenêtreFusion avancée des lignes veuillez configurer comme suit :
- Cliquez sur la colonne sur laquelle vous souhaitez regrouper les lignes, et définissez-la comme "clé primaire".
- 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.
- Cliquez sur le bouton "OK".
Résultat : Kutools fusionnera automatiquement les données en fonction du groupe dans une seule cellule avec un délimiteur spécifique.
Kutools pour Excel - Boostez Excel avec plus de 300 outils essentiels. Profitez de fonctionnalités IA gratuites en permanence ! Obtenez-le maintenant
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.
- Appuyez sur "Alt" + "F11" pour activer la fenêtre "Microsoft Visual Basic for Applications".
- 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.
- 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
- 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
Meilleurs outils de productivité pour Office
Boostez vos compétences Excel avec Kutools pour Excel, et découvrez une efficacité sans précédent. Kutools pour Excel propose plus de300 fonctionnalités avancées pour augmenter la 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 facilite grandement votre travail
- Activez la modification 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é de50 %, et réduit des centaines de clics de souris pour vous chaque jour !