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
免责声明：本文仅代表文章作者的个人观点，与本站无关。其原创性、真实性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容文字的真实性、完整性和原创性本站不作任何保证或承诺，请读者仅作参考，并自行核实相关内容。文章投诉邮箱：anhduc.ph@yahoo.com
