Subtract two strings from two different cells VBA

[GirishDhruva]

Hi Everyone,

Can we subtract two cells which contains string in it.
Like,

Column-A	Column-B	Column-C
abc_def_ghi	_def_ghi	abc
asdf123_abca	_abca	asdf123
afshqw_pl	afsh_	pl
asdff_1234	_1234	asdff

<tbody>
</tbody>

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

abc_efg.xyz	_efg.xyz	abc
1234_efg.xyz		1234
qwerty_efg.xyz		qwerty
123asdf_egf.xyz		123asdf

<tbody>
</tbody>

 

[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