Stripping off duplicate string by comparing two columns

[blackystrat]

Hello

So I have a spreadsheet (Excel 2013) with two columns for Firm Names and Address. Now for several entries, the firm name is present in both the firm name and the address column.

How can I compare these two columns and strip off the firm names from the address column?

How I have it

[TABLE="class: outer_border, width: 500"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Firm[/TD]
[TD]Address[/TD]
[/TR]
[TR]
[TD]John Reeds[/TD]
[TD]J.R Trading Inc[/TD]
[TD]J.R Trading Inc, 98 Park Avenue[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

How I Want
[TABLE="class: outer_border, width: 500, align: left"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Firm[/TD]
[TD]Address[/TD]
[/TR]
[TR]
[TD]John Reeds[/TD]
[TD]J.R Trading Inc[/TD]
[TD]98 Park Avenue[/TD]
[/TR]
[TR]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]





Many thanks in advance

Regards

 

[footoo]

Here's one way:

Enter in D2 and fill down : =IF(B2=LEFT(C2,LEN(B2)),RIGHT(C2,LEN(C2)-LEN(B2)-2),C2)
Convert column D to values
Delete column C

 

[Yongle]

Try
=TRIM(SUBSTITUTE(C2,B2&",",""))

 

[footoo]

.

 

[blackystrat]

Thanks footoo and Yongle - both of your formula works perfectly. However, there are some formatting anomalies in the data for which I still have to do some manual work but these helped to a large extent.

Many thanks again

 

[footoo]

Or VBA code making use of Yongle's formula:

Dim r&: r = Cells(Rows.Count, "C").End(xlUp).Row
Dim b$: b = Range([B2], Cells(r, "B")).Address
Dim c$: c = Range(b).Offset(, 1).Address
Range(c) = Evaluate("index(trim(substitute(" & c & "," & b & "&"", "","""")),)")