Combine multiple data based on cell value - macro need

[scorpio3st]

Hi,

I have a sheet where I need duplicate values combine into last duplicate value and combine all previous duplicate values into last one.
Example:
Lets say I have invoice with 5 different item numbers and need separate it with symbol "|"

1b	1c	1d		1f	1g
invoice		a
1​		b
1​		c
1​		d
1​		e
1​		f
1​		g		1​	a|b|c|d|e|f|g
20​		fd
20​		df
20​		as
20​		yvxc
20​		asd
20​		cxb
20​		hkj
20​		cvn
20​		jkhl
20​		bc n
20​		klhj
20​		nv
20​		ycx
20​		as
20​		cyx
20​		mnv		20​	fd|df|as|yvxc|asd|cxb|hkj|cvn|jkhl|bc n|klhj|nv|ycx|as|cyx|mnv

Thanks.

 

[veyselemre]

Hi,
Try...

Sub test()
    Dim prf$, comb$, i&
    prf = Cells(2, 2).Value
    comb = ""
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        comb = comb & "|" & Cells(i, 4).Value
        If Cells(i + 1, 2).Value <> prf Then
            Cells(i, 6).Value = prf
            Cells(i, 7).Value = Mid(comb, 2)
            prf = Cells(i + 1, 2).Value
            comb = ""
        End If
    Next i
End Sub

 

[scorpio3st]

Hi,
Try...

Sub test()
    Dim prf$, comb$, i&
    prf = Cells(2, 2).Value
    comb = ""
    For i = 2 To Cells(Rows.Count, 2).End(3).Row
        comb = comb & "|" & Cells(i, 4).Value
        If Cells(i + 1, 2).Value <> prf Then
            Cells(i, 6).Value = prf
            Cells(i, 7).Value = Mid(comb, 2)
            prf = Cells(i + 1, 2).Value
            comb = ""
        End If
    Next i
End Sub

Hi, Thanks. It is working great.