Combining Data Based on Previous Column Data

[madhuchelliah]

Hello Folks, Greetings for the day. I have repeated data in the A column. But the equivalent values in the C column is different. I want to combine all the data into single cell in the D column if the data is not repeated in A column then the same data should be retained from C column to D column. While combining the data should be separated by comma and a space (, ). Data in the D column is the expected result. Please go through the example below for more clarity. Thank you.
[TABLE="class: grid, width: 200, align: center"]
<tbody>[TR]
[TD]A
[/TD]
[TD]B
[/TD]
[TD]C
[/TD]
[TD]D
[/TD]
[/TR]
[TR]
[TD]1A
[/TD]
[TD][/TD]
[TD]XXXXX, YYYYY
[/TD]
[TD]XXXXX, YYYYY, ZZZZ
[/TD]
[/TR]
[TR]
[TD]1A
[/TD]
[TD][/TD]
[TD]ZZZZZ
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]1B
[/TD]
[TD][/TD]
[TD]AAAAA
[/TD]
[TD]AAAAA
[/TD]
[/TR]
[TR]
[TD]1C
[/TD]
[TD][/TD]
[TD]BBBBB
[/TD]
[TD]BBBBB
[/TD]
[/TR]
[TR]
[TD]5A
[/TD]
[TD][/TD]
[TD]CCCCC
[/TD]
[TD]CCCCC, DDDDD
[/TD]
[/TR]
[TR]
[TD]5A
[/TD]
[TD][/TD]
[TD]DDDDD
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD][/TD]
[TD]EEEEE
[/TD]
[TD]EEEEE, FFFFF, GGGGG, HHHHH
[/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD][/TD]
[TD]FFFFF
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD][/TD]
[TD]GGGGG
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]10
[/TD]
[TD][/TD]
[TD]HHHHH
[/TD]
[TD][/TD]
[/TR]
[TR]
[TD]15A
[/TD]
[TD][/TD]
[TD]IIIII
[/TD]
[TD]IIIII
[/TD]
[/TR]
[TR]
[TD]15B
[/TD]
[TD][/TD]
[TD]JJJJJ
[/TD]
[TD]JJJJJ
[/TD]
[/TR]
[TR]
[TD]20
[/TD]
[TD][/TD]
[TD]KKKK, LLLLL
[/TD]
[TD]KKKKK, LLLLL, MMMMM
[/TD]
[/TR]
[TR]
[TD]20
[/TD]
[TD][/TD]
[TD]MMMM
[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

How about

Sub madhuchelliah()
   Dim cl As Range
   
   With CreateObject("scripting.dictionary")
      For Each cl In Range("A2", Range("A" & Rows.Count).End(xlUp))
         If Not .exists(cl.Value) Then
            .Add cl.Value, cl
            cl.Offset(, 3).Value = cl.Offset(, 2).Value
         Else
            .item(cl.Value).Offset(, 3) = .item(cl.Value).Offset(, 3) & ", " & cl.Offset(, 2).Value
         End If
      Next cl
   End With
End Sub

 

[madhuchelliah]

Hello Fluff,it is working great. You made it so quickly. Thanks again

 

[Fluff]

You're welcome & thanks for the feedback