vba中字典的使用实例 用VBA字典来查找数据

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