EXCEL查找数据有非常多的方法,如:EXCEL自带的查找,替换和EXCEL函数等等.现在用VBA的字典来写查找数据的代码,在工作中还是非常实用的.利用字典的KEY唯一性,可以做很多事情,比如找重复项,删除重复项,查找数据等等.今天的代码实现非重复项数据查找.
Sub 查找数据()
Dim i, j As Integer
Dim arr, arr1
Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")
arr = Range("A2:B" & Range("A65536").End(xlUp).Row)
arr1 = Range("E2:F" & Range("E65536").End(xlUp).Row)
For i = LBound(arr) To UBound(arr)
If arr(i, 1) <> "" Then
k = arr(i, 1)
dic(k) = arr(i, 2)
End If
Next
For j = LBound(arr1) To UBound(arr1)
k = arr1(j, 1)
If dic.exists(k) Then
arr1(j, 2) = dic(k)
End If
Next
Range("E2:F" & Range("E65536").End(xlUp).Row) = arr1
End Sub
,