Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment concaténer des lignes dans une cellule en fonction du groupe dans Excel?

Voici une gamme de deux colonnes, l'une est la liste des classes, et l'autre est la liste des noms des élèves. Comme vous le voyez, certains étudiants sont dans la même classe, d'autres non. Maintenant, je veux concaténer les étudiants dans la même classe dans une cellule comme ci-dessous la capture d'écran montré, comment puis-je le gérer rapidement dans Excel?
doc concaténer par groupe 1

Grouper et concaténer avec des formules et une fonction de filtrage

Grouper et concaténer avec le code VBA

Grouper et concaténer avec des lignes de combinaison avancéesbonne idée3

Combinez facilement des colonnes ou des lignes sans perdre de données dans Excel

Supposons que vous travaillez avec une feuille de calcul qui contient plusieurs enregistrements en double, et que vous devez maintenant combiner / fusionner les lignes en fonction de la même valeur et effectuer certains calculs, tels que somme, moyenne, nombre de lignes dupliquées. Avec ça Lignes de combinaison avancées of Kutools for Excel, vous pouvez rapidement combiner les mêmes valeurs / mêmes données ou dupliquer des lignes dans des cellules appropriées. Cliquez pour l'essai gratuit de 60 days!
doc avancé combiner des rangées
Kutools for Excel: avec plus de 200 compléments Excel pratiques, libre d'essayer sans limitation dans les jours 60.

Grouper et concaténer avec des formules et une fonction de filtrage

Dans Excel, vous pouvez appliquer des formules à des lignes concaténées en fonction d'une colonne, puis utiliser la fonction Filtre pour afficher le résultat uniquement.

Note: Vous devez trier vos données par la classe avant de suivre les étapes.

1. Dans une cellule vide à côté de la plage de données, par exemple, C13, tapez cette formule =IF(A13=A12,C12&", "&B13,B13), presse Enter touchez et remplissez la formule dans les cellules en faisant glisser la poignée de remplissage.
doc concaténer par groupe 2

Dans la formule, A13 est la première donnée de la colonne "Class", B13 est la première donnée de la colonne "Name", "," est le séparateur pour délimiter le contenu de la concaténation.

2. Ensuite, dans la colonne suivante, D13, tapez cette formule =IF(A13<>A14,"Last","") et faites glisser la poignée de remplissage vers le bas pour appliquer la formule aux cellules dont vous avez besoin.
doc concaténer par groupe 3

3. Maintenant, sélectionnez toute la gamme de données, y compris les formules et cliquez Data > Filter à ajouter Filter icons aux données.
doc concaténer par groupe 4

4. Cliquez sur l' Filter icon dans l'en-tête de la dernière formule, vérifiez Last case à cocher uniquement dans la liste déroulante, puis cliquez sur OK.
doc concaténer par groupe 5

Maintenant, le résultat est montré ci-dessous, vous pouvez supprimer la dernière colonne d'aide si vous n'en avez jamais besoin.
doc concaténer par groupe 6


Grouper et concaténer avec le code VBA

Voici un code VBA qui peut également gérer ce travail.

1. presse Alt + F11 touches pour activer le Microsoft Visual Basic for Applications fenêtre.

2. Puis dans la fenêtre, cliquez Tools > References autoriser References dialogue, et vérifier Microsoft Scripting Runtime. Voir la capture d'écran:
doc concaténer par groupe 7
doc concaténer par groupe 8

3. Cliquez OKEt cliquez Insert > Module dans la fenêtre VBA, et copier et coller ci-dessous le code VBA à la Module scénario. Voir la capture d'écran:

VBA: Concaténer les lignes dans une 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

doc concaténer par groupe 9

4. presse F5 touche, et sélectionnez la plage de données que vous utilisez dans la boîte de dialogue contextuelle.
doc concaténer par groupe 10

5. Cliquez OK pour sélectionner la colonne de clé que vous souhaitez regrouper.
doc concaténer par groupe 11

6. Cliquez OK, maintenant le résultat est montré comme ci-dessous:
doc concaténer par groupe 12


Grouper et concaténer avec des lignes de combinaison avancées

Voici une utilité dans Kutools for Excel, Advanced Combine rangées, qui peut combiner des lignes ou faire des calculs basés sur une colonne clé dans Excel.

Kutools for Excel, avec plus de 120 fonctions pratiques, rend vos travaux plus faciles.

Après l'installation de Kutools pour Excel, s'il vous plaît faire comme ci-dessous:(Téléchargement gratuit Kutools pour Excel maintenant!)

1. Sélectionnez la plage de données que vous utilisez et cliquez sur Kutools > Content > Lignes de combinaison avancées.
doc concaténer par groupe 13

2. dans le Advanced Combine Rows Dans la fenêtre, choisissez la colonne dont vous souhaitez combiner les lignes, puis cliquez sur Primary Key pour le définir comme colonne clé.
doc concaténer par groupe 14

3. Sélectionnez la colonne que vous devez combiner, cliquez sur Combineet choisissez un délimiteur que vous utilisez pour séparer le contenu combiné.

doc concaténer par groupe 15 doc arrow droite doc concaténer par groupe 16

4. Cliquez Ok. Le résultat est affiché comme ceci:
doc concaténer par groupe 17

Note: Avant d'appliquer l'utilitaire, il vaut mieux avoir une copie des données d'origine.


Kutools for Excel résout la plupart de vos problèmes et augmente votre productivité de 80%

  • Réutilisation: Insérer rapidement formules complexes, graphiques et tout ce que vous avez utilisé auparavant; Crypter les cellules avec mot de passe Créer une liste de diffusion et envoyer des emails ...
  • Super Formula Bar (éditez facilement plusieurs lignes de texte et de formule); Disposition de lecture (facilement lire et éditer un grand nombre de cellules); Coller à la gamme filtrée...
  • Fusionner les cellules / rangées / colonnes sans perdre de données; Contenu des cellules divisées; Combiner les lignes / colonnes en double... Prévenir les cellules en double; Comparer les plages...
  • Sélectionnez Dupliquer ou Unique Des rangées; Sélectionnez les lignes vierges (toutes les cellules sont vides); Super Find et Fuzzy Find dans de nombreux cahiers d'exercices; Sélection aléatoire ...
  • Copie exacte Plusieurs cellules sans changer la référence de la formule; Créer automatiquement des références à plusieurs feuilles; Insérer des balles, Cases à cocher et plus ...
  • Extrait du texte, Ajouter du texte, Supprimer par position, Supprimer l'espace; Créer et imprimer des sous-totaux de pagination; Conversion entre contenu de cellules et commentaires...
  • Super filtre (enregistrer et appliquer des schémas de filtrage à d'autres feuilles); Tri avancé par mois / semaine / jour, fréquence et plus; Filtre spécial en gras, en italique ...
  • Combinaison de classeurs et de feuilles de calcul; Fusionner les tables en fonction des colonnes clés; Fractionner les données en plusieurs feuilles; Conversion par lots xls, xlsx et PDF...
  • Plus que de puissantes fonctionnalités 300. Prend en charge Office / Excel 2007-2019 et 365. Prend en charge toutes les langues. Déploiement facile dans votre entreprise ou organisation. Fonctionnalités complètes Essai gratuit du jour 30.
kte tab 201905

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

  • Activer l'édition par onglets et la lecture 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 le nombre de clics de souris pour vous chaque jour!
fond officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.