Excel - Fusionner les lignes avec des valeurs communes et concaténer les différences dans une colonne

Je voudrais fusionner les lignes avec des valeurs communes et concaténer les différences dans une seule colonne.

Je pense que la meilleure chose à faire est de vous montrer un exemple.

D'entrée:

Customer Name   |   NEW YORK    |   ALBANY 
Customer Name   |   NEW YORK    |   CLINTON    
Customer Name   |   NEW YORK    |   COLUMBIA
Customer Name   |   NEW YORK    |   DELAWARE
Customer Name   |   NEW YORK    |   DUTCHESS  
Customer Name   |   VERMONT     |   BENNINGTON  
Customer Name   |   VERMONT     |   CALEDONIA
Customer Name   |   VERMONT     |   CHITTENDEN
Customer Name   |   VERMONT     |   ESSEX
Customer Name   |   VERMONT     |   FRANKLIN

De sortie souhaité:

Customer Name   |   VERMONT     |   BENNINGTON,CALEDONIA,CHITTENDEN,ESSEX,FRANKLIN
Customer Name   |   NEW YORK    |   ALBANY,CLINTON,COLUMBIA,DELAWARE,DUTCHESS

Je ne vois quelques autres posts sur ce sujet, mais je ne pense pas qu'ils étaient exactement ce que je cherchais à faire.

Voulez-vous d'utiliser la macro ou excle formule? veuillez donc nous votre travail.
J'ai rien fait d'autre que de chercher des réponses à ce jour. Je n'ai pas essayé encore rien d'autres que des fonctions intégrées. Encore une chose que j'ai oublié de mentionner, c'est que ces lignes pourraient répéter deux ou cinquante exemplaires seulement avec les comtés qui sont différents. Donc j'aurais besoin d'obtenir de l'etat et de nom du client fusionné, avec les comtés concaténées.
Quelqu'un aurait-il une formule pour cela? J'ai besoin de faire ce genre de chose pour créer une gérable modèle et la plupart des gens ne savent pas comment gérer les macros...

InformationsquelleAutor lardlad | 2013-02-05

Si par | vous dire separete cellule, puis la suite de la macro (Excel 2007) devrait faire l'affaire (vos données commence dans la cellule A1):

Application.ScreenUpdating = False

last_row = Cells(Rows.Count, 1).End(xlUp).Row

'first: make sure data is sorted
Sort.SortFields.Clear
Sort.SortFields.Add Key:=Columns("A:A"), SortOn:=xlSortOnValues
Sort.SortFields.Add Key:=Columns("B:B"), SortOn:=xlSortOnValues
Sort.SortFields.Add Key:=Columns("C:C"), SortOn:=xlSortOnValues

With Sort
    .SetRange Range("A1:C" & last_row)
    .Header = xlNo
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With

'then: join text until key values in two neighboring row changes
myText = ""
myPos = 1

For i = 1 To last_row
    If Cells(i, 1).Value <> Cells(i + 1, 1).Value Or Cells(i, 2).Value <> Cells(i + 1, 2).Value Then
        Cells(myPos, 5).Value = Cells(i, 1).Value
        Cells(myPos, 6).Value = Cells(i, 2).Value

        myText = myText & Cells(i, 3).Value
        Cells(myPos, 7).Value = myText
        myText = ""
        myPos = myPos + 1
    Else
        myText = myText & Cells(i, 3).Value & ","
    End If
Next i

Application.ScreenUpdating = True
MsgBox "Done"

InformationsquelleAutor mj82

1

Dans une nouvelle feuille, vous pouvez utiliser ces formules pour créer une liste des noms des clients et des états.

Vous devez utiliser deux fonctions de coordination, dans une nouvelle feuille entrez la fonction suivante dans A2
```
=IFERROR(INDEX(Sheet1!$A$2:$A$6, MATCH(0, COUNTIFS(Sheet2!$A$1:A1, Sheet1!$A$2:$A$6,Sheet2!$B$1:B1, Sheet1!$B$2:$B$6), 0)),"")
```
et de la fonction suivante dans B2
```
=IFERROR(INDEX(Sheet1!$B$2:$B$6, MATCH(0, COUNTIFS(Sheet2!$A$1:A1, Sheet1!$A$2:$A$6,Sheet2!$B$1:B1, Sheet1!$B$2:$B$6), 0)),"")
```
Pour que cela fonctionne, les besoins suivants pour être vrai
1. Ce doit être placé dans une deuxième feuille de calcul (renommer Sheet2 en conséquence)
2. Sheet1!$A$2:$A$6 et Sheet1!$B$2:$B$6 devrait être modifié de (nom de la feuille et de la gamme) pour contenir la liste complète de vos noms de client et des états, respectivement. Si la liste est trop longue, la dernière entrée dans votre liste de valeurs uniques sera b 0
3. Les formules ci-dessus doit être collé dans Sheet2!A2 et Sheet2!B2 respectivement
4. Ces tableau sont des formules. Il doit être entré dans la cellule, puis soumis à frapper ctrl+alt+enter
5. Après la saisie initiale des formules dans A2 et B2 comme un tableau, copier et coller les formules vers le bas Column A et Column B jusqu'unique les noms n'apparaissent plus.
(Cette réponse est adopté à partir de cette question. Il y a quelques variantes comme d'autres réponses)

Utiliser un tableau de la fonction de retour dans les comtés de ColumnC. Collez la formule dans C2 comme un tableau (avec mise à jour des références), puis copiez-le dans la liste.
```
=TEXTJOIN(", ",TRUE,IF((Sheet2!A2=Sheet1!$A$2:$A$6)*(Sheet2!B2=Sheet1!$B$2:$B$6),Sheet1!$C$2:$C$6,""))
```
Bref explination sur la façon dont ces fonctions de travail:

-Fonction 1:
1. la COUNTIFS ressemble à votre source de données, et renvoie un tableau avec 1 si il est déjà dans la liste, et un 0 si elle ne l'est pas.
2. MATCH regarde le COUNTIFS tableau, et identifie le premier 0
3. INDEX ressemble à votre source de données, et renvoie la ligne identifiée par MATCH
-Fonction2:
1. La IF fonction crée deux tableaux de TRUE ou FALSE selon que la source de données correspond à l'unique client et de l'état de la ligne.
2. Ces tableaux sont multipliés, la création d'un nouveau tableau qui est TRUE seulement si les deux entrées ont été TRUE. (ce qui signifie à la fois le client et de l'état appariés)
3. La IF instruction renvoie le comté de si vrai, et si elle est fausse, et la cellule vide ""
4. TEXTJOIN filtre les cellules vides (c'est ce Que le TRUE est en train de faire) et se joint à eux avec une virgule et un espace (le délimiteur).
InformationsquelleAutor Christopher
0

Dans le lien hypertexte ci-dessous, vous trouverez la solution à cette question. Recherchez la section "Comment combiner les lignes en double dans l'une (en gardant les valeurs uniques uniquement)"

Comment Fusionner des Lignes Pour de nombreux Scénarios

Mise à jour: Le complément qui effectue la tâche n'est pas libre, mais il y a un essai gratuit de 15 jours la version
- C'est mieux de mettre les informations pertinentes dans votre réponse ainsi que dans le lien. De cette façon, votre réponse restera valable même si le lien va vers le bas, et les gens seront en mesure de voir les choses dans leur contexte.
- Mon mauvais James. Cette réponse est un peu la solution de facilité. Je ne suis pas sûr de savoir comment les ajouter dans exécute les fonctions nécessaires qui permettront de créer la finale des cellules fusionnées.
InformationsquelleAutor Joe

Vous devez vous connecter pour publier un commentaire.