Subtract two strings from two different cells VBA

[GirishDhruva]

Hi Everyone,

Can we subtract two cells which contains string in it.
Like,
[TABLE="width: 500"]
<tbody>[TR]
[TD]Column-A[/TD]
[TD]Column-B[/TD]
[TD]Column-C[/TD]
[/TR]
[TR]
[TD]abc_def_ghi[/TD]
[TD]_def_ghi[/TD]
[TD]abc[/TD]
[/TR]
[TR]
[TD]asdf123_abca[/TD]
[TD]_abca[/TD]
[TD]asdf123[/TD]
[/TR]
[TR]
[TD]afshqw_pl[/TD]
[TD]afsh_[/TD]
[TD]pl[/TD]
[/TR]
[TR]
[TD]asdff_1234[/TD]
[TD]_1234[/TD]
[TD]asdff[/TD]
[/TR]
</tbody>[/TABLE]

where Column(C) = Column(A)-Column(B)

Regards,
Dhruva

 

[Fluff]

How about
=SUBSTITUTE(A2,B2,"")

Although your 3rd result looks wrong.

 

[GirishDhruva]

Ya @Fluff it is wrong and can this be done using VBA coding

 

[Fluff]

How about

Sub GirishDhruva()
   With Range("C2", Range("A" & Rows.Count).End(xlUp).Offset(, 2))
      .Value =  Evaluate(Replace(Replace("if(@a="""","""",SUBSTITUTE(@a,@b,""""))",  "@a", .Offset(, -2).Address), "@b", .Offset(, -1).Address))
   End With
End Sub

 

[GirishDhruva]

Ya it worked but if i have like below data then how that can be done


[TABLE="width: 500"]
<tbody>[TR]
[TD]abc_efg.xyz[/TD]
[TD]_efg.xyz[/TD]
[TD]abc[/TD]
[/TR]
[TR]
[TD]1234_efg.xyz[/TD]
[TD][/TD]
[TD]1234[/TD]
[/TR]
[TR]
[TD]qwerty_efg.xyz[/TD]
[TD][/TD]
[TD]qwerty[/TD]
[/TR]
[TR]
[TD]123asdf_egf.xyz[/TD]
[TD][/TD]
[TD]123asdf[/TD]
[/TR]
</tbody>[/TABLE]

 

[Fluff]

Please explain EXACTLY what you want rather then "moving the goal posts" as you normally do.

 

[GirishDhruva]

Hi @Fluff i need in both the way for two sheets.
Like in 1st sheet i need to perform as per #1st Post and in 2nd sheet i need to perform as per #5th post

Sorry for confusing you

Regards
Dhruv

 

[Fluff]

Assuming that _efg.xyz is in B2 try

Sub GirishDhruva()
   With Range("C2", Range("A" & Rows.Count).End(xlUp).Offset(, 2))
      .Value = Evaluate(Replace("if(@a="""","""",SUBSTITUTE(@a,$B$2,""""))", "@a", .Offset(, -2).Address))
   End With
End Sub

 

[GirishDhruva]

Cheers and Thanks @Fluff

 

[Fluff]

You're welcome & thanks for the feedback