Removing Partial Duplicates and Keeping the Long String Value

Hi,

I am not sure if the title explains what I am trying to achieve but I want to find a formula that can look through the list of partial duplicates and extracting the longest string value. Attached is an example of what I am trying to achieve. If there is no formula that can do this, is there a vba code that can?

Thank you!