Comment joindre des textes dans une colonne sans doublons dans Excel?
Savez-vous comment joindre des textes d'une colonne dans une cellule sans doublons dans Excel? Et si vous joignez des textes dans une colonne sans doublons en fonction d'une valeur de cellule spécifique? Cet article fournit des méthodes pour résoudre les problèmes.
Joindre des textes dans une colonne sans doublons avec une formule
Joindre des textes dans une colonne sans doublons en fonction d'une autre valeur de cellule avec le code VBA
Joignez facilement des textes dans une colonne en fonction d'une autre valeur de cellule avec un outil incroyable
Plus de didacticiel sur la combinaison de cellules…
Joindre des textes dans une colonne sans doublons avec une formule
Comme le montre la capture d'écran ci-dessous, vous souhaitez joindre les textes de la colonne A dans une seule cellule sans doublons. Veuillez faire comme suit.
1. Sélectionnez une cellule vide, copiez-y la formule ci-dessous et appuyez sur le bouton autre + Shift + Entrer touches en même temps.
=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))
Remarque: Dans la formule, ", »Est le séparateur des textes combinés; A2: A12 correspond aux cellules de la colonne que vous allez joindre. Veuillez les changer selon vos besoins.
Désormais, les textes de la colonne spécifiée sont joints sans doublons.
Joindre des textes dans une colonne sans doublons en fonction d'une autre valeur de cellule avec le code VBA
Parfois, vous pouvez avoir besoin de joindre des textes dans une colonne sans doublons en fonction de la valeur dans une autre cellule, comme ci-dessous la capture d'écran illustrée, vous pouvez la descendre comme suit.
1. Dans la feuille de calcul contient les textes que vous allez joindre, appuyez sur le autre + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.
2. dans le Microsoft Visual Basic pour applications fenêtre, cliquez sur insérer > Module, puis copiez le code VBA ci-dessous dans la fenêtre de code du module.
Code VBA: Joindre des textes dans une colonne sans doublons en fonction d'une autre valeur de cellule
Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
Dim xValue
Dim xStr, xStrValue As String
Dim xB As Boolean
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Does not support multiple selections", , "Kutools for Excel"
Exit Sub
End If
If xRg.Columns.Count <> 2 Then
MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
Exit Sub
End If
xArr = xRg
Set xDic = CreateObject("Scripting.Dictionary")
xDic.CompareMode = 1
For I = 1 To UBound(xArr)
If Not xDic.Exists(xArr(I, 1)) Then
xDic.Item(xArr(I, 1)) = xDic.Count + 1
xArr(xDic.Count, 1) = xArr(I, 1)
xArr(xDic.Count, 2) = xArr(I, 2)
Else
xStrValue = xArr(I, 2)
xB = True
For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
If xStr = xStrValue Then
xB = False
Exit For
End If
Next
If xB Then
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub3. appuie sur le F5 clé pour exécuter le code. Dans le popping Kutools for Excel , sélectionnez la plage comprenant à la fois les valeurs sur lesquelles vous allez joindre des textes et les textes que vous allez joindre, puis cliquez sur le bouton OK .
Ensuite, les valeurs uniques sont extraites et leurs textes uniques correspondants dans une autre colonne sont joints et placés dans une nouvelle feuille de calcul.
Joignez facilement des textes dans une colonne en fonction d'une autre valeur de cellule avec un outil incroyable
Avant d'appliquer Kutools for Excel, S'il vous plaît téléchargez et installez-le d'abord.
Remarque: Comme l'utilitaire s'appliquera directement à la plage d'origine, veuillez faire une copie des données d'origine avant d'appliquer l'opération ci-dessous.
1. Sélectionnez la plage (incluez les textes que vous allez joindre et la valeur sur laquelle vous joindrez les textes en fonction), cliquez sur Kutools > Contenu > Lignes de combinaison avancées. Voir capture d'écran:
2. dans le Lignes de combinaison avancées dialogue, procédez comme suit:
- Sélectionnez la colonne contenant les valeurs sur lesquelles vous allez joindre des textes et cliquez sur Clé primaire;
- Sélectionnez la colonne contenant les textes que vous allez joindre dans une cellule et cliquez sur Combiner > Virgule;
- S'il reste des colonnes, veuillez en spécifier les conditions. Dans ce cas, je sélectionne la colonne Ventes et sélectionne Calculer > Somme.
- Cliquez OK bouton. Voir la capture d'écran:
Ensuite, vous pouvez voir que tous les textes de la colonne spécifiée sont joints en fonction de la colonne clé. Voir la capture d'écran:
Si vous souhaitez bénéficier d'un essai gratuit (30 jours) de cet utilitaire, veuillez cliquer pour le télécharger, puis passez à appliquer l'opération selon les étapes ci-dessus.
Articles connexes
Combinez des lignes en double et additionnez les valeurs dans Excel
Dans Excel, vous pouvez toujours rencontrer ce problème, lorsque vous avez une plage de données qui contient des entrées en double et que vous souhaitez maintenant combiner les données en double et additionner les valeurs correspondantes dans une autre colonne, comment pouvez-vous résoudre ce problème? Essayez les méthodes de cet article.
Combiner plusieurs cellules dans une cellule avec un espace, des virgules ou d'autres séparateurs dans Excel
Lorsque vous combinez les cellules de plusieurs colonnes ou lignes dans une seule cellule, les données combinées peuvent être séparées par rien. Mais si vous souhaitez les séparer avec des marques spécifiques, telles que des espaces, des virgules, des points-virgules ou autres, comment pouvez-vous faire? Ce didacticiel présentera quelques méthodes pour vous.
Concaténer les cellules en conservant la mise en forme des nombres / dates dans Excel
Vous avez peut-être remarqué que lorsque nous appliquons la fonction CONCATENER dans Excel, le format de la date (2014/01/03) et le format des nombres tels que le format de la devise (734.7 $), le format de pourcentage (48.9%), les décimales (24.5000), etc. sont supprimés et affichés sous forme de nombres généraux dans les résultats de concaténation. Dans cet article, nous proposons plusieurs solutions de contournement pour concaténer les données avec le formatage de la date ou des nombres dans Excel.
Inverser la fonction de concaténation dans Excel
Comme nous le savons tous, la fonction Concaténer dans Excel peut nous aider à combiner plusieurs cellules en une seule cellule, mais, parfois, vous voulez faire le contraire de la fonction Concaténer, cela signifie ne pas combiner les cellules, mais diviser la valeur de la cellule en plusieurs cellules séparées. Les méthodes de cet article aideront à résoudre le problème.
Concaténer les cellules si la même valeur existe dans une autre colonne dans Excel
Cet article fournit des méthodes pour vous aider à concaténer facilement des cellules si la même valeur existe dans une autre colonne dans Excel.
Meilleurs outils de productivité bureautique
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...
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!
