需求描述
在A列里有如：“xxa、xxb、xxc、yyd、yyee”的内容，而B列有如：“xx、xx、xx、yy、yy”的内容，希望在C列将A列的“a、b、c、d、ee”提取出来。
image.png
需求分析
使用公式比较麻烦，使用VB较为简单
VB代码
Public Function th(ran1 As Range, ran2 As Range)
ranText = ran1
For i = 1 To Len(ran2)
ranText = Application.WorksheetFunction.Substitute(ranText, Mid(ran2, i, 1), "")
Next i
th = ranText
End Function
用法
用法：打开Excel按下Alt+F11打开VBA编辑窗口，然后选择：插入“模块”，将以上代码复制到新插入的模块中并关闭VBA编辑窗口。用的时候直接在C1中输入=th(a1,b1)即可
