Combine Data into one row

[MitzDriver]

I have a data base with 9000 records. Unfortunately there are duplicate records. Easy enough to remove dup's but.....column a = first name b = last name c = company name d= SubCategory1 and e = SerialNumber (which relates to last name). The problem is column d. I need to combine SubCategory1 with all the other SubCategory1’s for the last name or SerialNumber and then remove the extra rows.
<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
<o></o>
i.e. instead of three (some times just two and at times four) records:<o></o>
<o></o>
John,Smith,University,Hospital,94421<o></o>
John,Smith,University,GraduateSchool,94421<o></o>
John,Smith,University,(All),94421<o></o>
<o></o>

I will end up with ONLY one:<o></o>
John,Smith,University,Hospital/GraduateSchool/(All),94421
<o></o>
<o></o>
Hope this make sense. ANY help will be gratefully appreciated.

 

[MickG]

First this line should be as below (this is about the 3 line down)
Althought it won't make any difference to the code.

ReDim ray(1 To Rng.Count, 1 To 16)

Q(1) Have you run the code on the last lot of data you sent me ??
Q(2) Have you actually got a sheet (2), as shown at the bottom of the code.???
Q(3) What was the line it failed on.??
Mick

 

[MitzDriver]

Got it....Perfect....Thank you so much!!!

found the problem

Sheets("Sheet32").Range("A1").Resize(.Count, 16) = ray

Some how I inadverntaly put a 3 in front of the "Sheet32", eventhough i cut and pasted.

Thanks again.

 

[MickG]

I'm please you found the problem , actually I think it was my fault.
I forgot to alter it, I was using sheet (32) for testing.
Regards Mick