vba词典匹配

可以用VBA实现，速度快，精度高，按照你的要求的VBA代码如下：

Sub?告诉匹配()

Dim?i,?k,?v,?arr,?db

'扫描Sheet1表，建立字典

arr?=?Sheets("sheet1").Range("a1").CurrentRegion

Set?db?=?CreateObject("Scripting.Dictionary")

For?i?=?1?To?UBound(arr)

k?=?Trim(arr(i,?1))

v?=?arr(i,?2)

db(k)?=?v

Next?i

'扫描Sheet2表，填写B列

Sheets("sheet2").Select

For?i?=?1?To?Sheets("sheet2").UsedRange.Rows.Count

k?=?Trim(Cells(i,?1))

v?=?db(k)

Cells(i,?1)?=?v

Next?i

End?Sub