如何用宏来自动替换，求大神指教

610613809

AB	其中A替换为“张三”	返回	张三B
BC	B替换为“李四”	返回	李四C
CD	C替换为“王五”	返回	王五D
ABC	其中AB替换为“赵六”	返回	赵六C
	不能替换成张三BC或者张三李四C
ABCD	要ABC一起替换为“钱七”	返回	钱七D
	不能单独替换A或者AB或是分开替换A/B/C

	所有的A替换为“张三”我知道怎么弄，但是AB或ABC连在一起怎么能自动识别，不要分开单独替换呢？
	求大神告知

610613809

"Sub 货号对照()
arr = Range(""A2:A"" & Range(""A65536"").End(xlUp).Row)
brr = Worksheets(""对照表"").UsedRange
For i = 2 To UBound(brr)
    Cells.Replace What:=brr(i, 1), Replacement:=brr(i, 2)
Next i
Range(""A2:A"" & Range(""A65536"").End(xlUp).Row).Copy Range(""B2"")
Range(""A2:A"" & Range(""A65536"").End(xlUp).Row) = arr

End Sub
"
用的是这个代码
返回的结果不理想，有些单元格被拆分替换了，有偿求解  q610613809

changhong8

要替换的字符串按照长度排序，先替换长的，再替换短的，排个优先级