求助麻烦问下有什么办法根据对应表批量替换

复制B列结果，然后粘贴成值
=VLOOKUP(A1:A9,D:E,2,)

多对多替换

Option Explicit
Sub 批量替换()
Dim arr, brr, dic As Object, i%
Set dic = CreateObject("scripting.dictionary")
arr = Range("a1").CurrentRegion
brr = Range("d1").CurrentRegion
For i = 1 To UBound(brr)
dic(brr(i, 1)) = brr(i, 2)
Next i
For i = 1 To UBound(arr)
arr(i, 1) = dic(arr(i, 1))
Next i
Range("a1").Resize(UBound(arr)) = arr
End Sub

我贴吧搜，批量替换

=TEXT(A1:A9,"[dbnum1]")