Cell values based on comparison of previous column cell value.

[Deepk]

hi All,

I want formula or macro that work on the following table and provide the value in column E. The macro should compare the sorted (a-z) value in column D and based on the value from the column C, it provide the below mentioned details in column E.

Column C	Column D	Column E
1	PAPA	1=2
2	PAPA	1=2
3	TATA	3=4
4	TATA	3=4
5	TATA	3=4
6	FEAR	6=7
7	FEAR	6=7
8	MAMA	8=9
9	MAMA	8=9
10	MAMA	8=9
11	MAMA	8=9
12	GHMF	12=13
13	GHMF	12=13

<colgroup><col><col><col></colgroup><tbody>
</tbody>

Please help me with the code.

Thanks in advance.

 

[Peter_SSs]

Thank you Peter for your help.

You're welcome.

If interested, here is another macro that you could consider.

Sub JoinGroups()
  Dim c As Range
  Dim j As Long, lr As Long
  
  Set c = Range("D2")
  lr = Range("D" & Rows.Count).End(xlUp).Row
  Do Until c.Row > lr
    Do While c.Offset(j + 1).Value = c.Value
      j = j + 1
    Loop
    If j > 0 Then c.Offset(, 1).Resize(j + 1).Value = Join(Application.Transpose(c.Offset(, -1).Resize(j + 1).Value), "=")
    Set c = c.Offset(j + 1)
    j = 0
  Loop
End Sub

 

[MickG]

You're welcome