请教一个反向查找并替换文本的方法

saxndsaxte

请教如何把单元格数组内的文本，通过查找比对之后替换成唯一key

saxndsaxte

如何把A3,A4,A5中的文本字符串（有规律，都是数组第2位），替换成D3：D10，并输入成A8,A9,A10格式

saxndsaxte

我自己写了一个方法，供大家参考：
Function TiHuan(Sour As String, Old_Word As Range, New_Word As Range) As String
    For i = 1 To New_Word.Count
        Sour = Replace(Sour, Old_Word(i), New_Word(i))
    Next
    TiHuan = Sour
End Function

在B2单元格插入=tihuan(A2,$B$1:$B$9999,$C$1:$C$9999)

这样就是一套完整的表单全局遍历，把对照后的string全部替换成D10里的唯一id