find duplicates and concatenate

[rpick60]

I am trying to find all duplicates in a range R8:R1000 and then grab
the value in Column C of the the duplicate rows and concatenante them
all to the cell in S of that row

example
As you can see find each cell in range R8:R1000 and the grab value in
column C
and put all duplicates in column s
for each P1 in the range the results are 2,4,5 for each duplicate.



c d ....... r s (results)
2 P1 2,4,5
3 P2 3
12 P5 12,13
13 P5 12,13
4 P1 2,4,5
5 P1 2,4,5
10 P22 10

Any help would be great!

and "Go Wings"

 

[Teethless mama]

Download and install the free add-in Morefunc.xll from:
http://xcell05.free.fr/english/

....then use the following formula

=SUBSTITUTE(TRIM(MCONCAT(IF(RngD=R1,RngC,"")&" "))," ",",")

ctrl+shift+enter, not just enter