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.

A	B	C	D
1A		XXXXX, YYYYY	XXXXX, YYYYY, ZZZZ
1A		ZZZZZ
1B		AAAAA	AAAAA
1C		BBBBB	BBBBB
5A		CCCCC	CCCCC, DDDDD
5A		DDDDD
10		EEEEE	EEEEE, FFFFF, GGGGG, HHHHH
10		FFFFF
10		GGGGG
10		HHHHH
15A		IIIII	IIIII
15B		JJJJJ	JJJJJ
20		KKKK, LLLLL	KKKKK, LLLLL, MMMMM
20		MMMM

<tbody>
</tbody>

 

[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