Macro to concatenate data on cells with matching value in A

Post a workbook with a sheet before and a sheet after making the change. Had you posted the snippet between quote tags, I might have been able to see what you want.

Please Login or Register  to view this content.

Hi!

Thanks for this. I've created a macro, but when I run it, I get the following error message:

"Run-time error '13':

Type mismatch"

When I click Debug, the following line is highlighted:

.Resize(, 2).Value = WorksheetFunction.Transpose(Array(Dict.keys, Dict.items))

Should I have amended it in some way?

Maybe:

Please Login or Register  to view this content.

do you have that problem with the cells above or with other data ?
It can cause problems if the string of collected words for 1 entry is longer then 255. Is that the case ?

Please Login or Register  to view this content.

This has done it.

Thanks everyone for your help!

If you've got a working solution, please comply with Forum Rule No 9.


9. Acknowledge the responses you receive, good or bad. If your problem is solved, please say so clearly, and mark your thread as Solved: Click Thread Tools above your first post, select "Mark your thread as Solved". Or click the Edit button on your first post in the thread, Click Go Advanced, select [SOLVED] from the Prefix dropdown, then click Save Changes. If more than two days have elapsed, the Dropdown option or Edit button will not appear -- ask a moderator to mark it.