當前位置:成語大全網 - 新華字典 - 使用excel vba匹配大量數據,比如Sheet1 A列,跟Sheet2 A列,匹配,Sheet2 B列,顯示Sheet1 B列結果,謝謝

使用excel vba匹配大量數據,比如Sheet1 A列,跟Sheet2 A列,匹配,Sheet2 B列,顯示Sheet1 B列結果,謝謝

可以用VBA實現,速度快,精度高,按照妳的要求的VBA代碼如下:

Option?Explicit

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