I want to merge cells using vlookup

[Hansulet]

How Can I merge cells using vlookup?

I have to merge cells from TEXT Column for each ID

ID NAME TEXT
1 AAA hfjkjvk
1 AAA djhjfdhf
1 AAA dfklkdfj
2 BBB dffdffd
2 BBB dsffdf
3 CCC ddsvds
4 DDD vdsdvv
3 CCC vsdvdv
5 EEE fvfgfgf
1 AAA fgvfvvfv

 

[davesexcel]

Can you explain some more?

 

[Hansulet]

Thank you for your interest.

This is initial data base:

A B C
ID NAME TEXT
1 AAA hfjkjvk
1 AAA djhjfdhf
1 AAA dfklkdfj
2 BBB dffdffd
2 BBB dsffdf
3 CCC ddsvds
4 DDD vdsdvv
3 CCC vsdvdv
5 EEE fvfgfgf
1 AAA fgvfvvfv


Now, I need to merge in column D the data from column C.
So, the result is as follows:

A B D
ID NAME RESULT
1 AAA hfjkjvk djhjfdhf dfklkdfj fgvfvvfv
2 BBB dffdffd dsffdf
3 CCC ddsvds vsdvdv
4 DDD vdsdvv
5 EEE fvfgfgf

 

[Hansulet]

In column A is ID
In column B is NAME
In column C is TEXT
In column D is RESULT

In other words, I need to concatenate in a single cell in column D all data from column C for the same name.

 

[davesexcel]

I doubt if you can use vlookup for this.

 

[Fluff]

If you're interested in a VBA solution, try this

Sub ConcatDuplicates()

   Dim Cl As Range
   Dim Strng As String
   Dim Itm As Variant
   
   With CreateObject("scripting.dictionary")
      For Each Cl In Range("B2", Range("B" & Rows.Count).End(xlUp))
         If Not .exists(Cl.Value) Then
            .Add Cl.Value, Array(Cl.Offset(, 1).Value, Cl)
         Else
            Strng = .Item(Cl.Value)(0) & "," & Cl.Offset(, 1).Value
            .Item(Cl.Value) = Array(Strng, .Item(Cl.Value)(1))
            Debug.Print .Item(Cl.Value)(0)
         End If
      Next Cl
      For Each Itm In .items
         Itm(1).Offset(, 2).Value = Itm(0)
      Next Itm
   End With
         
End Sub

 

[Hansulet]

Thank you very much. It is working perfect.

 

[Fluff]

Glad to help & thanks for the feedback