需求描述
在A列里有如:“xxa、xxb剥悟、xxc黔漂、yyd、yyee”的內(nèi)容民效,而B列有如:“xx憔维、xx、xx畏邢、yy业扒、yy”的內(nèi)容,希望在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編輯窗口咆贬,然后選擇:插入“模塊”败徊,將以上代碼復(fù)制到新插入的模塊中并關(guān)閉VBA編輯窗口。用的時(shí)候直接在C1中輸入=th(a1,b1)即可