数据查询VBA实现（数据量大情况下实现VLOOKUP函数功能提高速度）

yivoo

VBA求助:表1中有A、B两列数据，表2中是同样的A、B两列字段数据（A列有数B列为空），从表1中查询A列数据对应的B列数值填入表2的B列。用函数VLOOKUP可以实现，但因数据量大几十万条速度太慢，想通过VBA实现提高效率，请帮忙编写附件。VBA没用过，借此学习。谢谢。

cflood

Sub a()
Set d = CreateObject("Scripting.Dictionary")
arr = Worksheets("sheet1").Range("A5:B" & Worksheets("sheet1").Range("A1048576").End(xlUp).Row)
arr2 = Worksheets("sheet2").Range("A5:B" & Worksheets("sheet2").Range("A1048576").End(xlUp).Row)
For i = 1 To UBound(arr)
d(arr(i, 1)) = arr(i, 2)
Next i
For i = 1 To UBound(arr2)
arr2(i, 2) = d(arr2(i, 1))
Next i
Worksheets("sheet2").Range("A5:B" & Worksheets("sheet2").Range("A1048576").End(xlUp).Row) = arr2
End Sub

lsc900707

Sub lsc()
    Set d = CreateObject("Scripting.Dictionary")
    arr = Sheet1.[a4].CurrentRegion
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 2)
    Next
    brr = ActiveSheet.[a4].CurrentRegion
    For i = 2 To UBound(brr)
        brr(i, 2) = d(brr(i, 1))
    Next
    [a4].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

vba789

若是多条件查询怎么写代码 多条件查询.rar (9.27 KB, 下载次数: 234)

2017-4-15 07:43 上传

点击文件名下载附件

lsc900707

vba789 发表于 2017-4-15 07:43
若是多条件查询怎么写代码

你这还是单条件查询：
Sub lsc()
    Set d = CreateObject("Scripting.Dictionary")
    arr = Sheet1.[a4].CurrentRegion
    For i = 2 To UBound(arr)
        d(arr(i, 1)) = arr(i, 3)
    Next
    brr = ActiveSheet.[a4].CurrentRegion
    For i = 2 To UBound(brr)
        brr(i, 2) = d(brr(i, 1))
    Next
    [a4].Resize(UBound(brr), UBound(brr, 2)) = brr
End Sub

LMY123

vba789 发表于 2017-4-15 07:43
若是多条件查询怎么写代码

http://club.excelhome.net/thread-1170501-2-1.html

vba789

lsc900707 发表于 2017-4-15 08:03
你这还是单条件查询：
Sub lsc()
    Set d = CreateObject("Scripting.Dictionary")

哦，大意了，是呢，谢谢LSC900707老师的耐心回复！
单位人事档案管理经常用，用公式量多容易卡死，我重新上传附件，请LSC900707老师帮助！
要的结果是：表2中A、B列从表1中查找唯一值。 多条件查询.rar (9.75 KB, 下载次数: 139)

2017-4-15 09:18 上传

点击文件名下载附件

lsc900707

vba789 发表于 2017-4-15 09:18
哦，大意了，是呢，谢谢LSC900707老师的耐心回复！
单位人事档案管理经常用，用公式量多容易卡死，我重 ...

附件内容还是一样，用5楼的代码即可解决。

vba789

lsc900707 发表于 2017-4-15 09:24
附件内容还是一样，用5楼的代码即可解决。

LSC900707老师，是我没表达清楚，白木一个！
产品编号重复，但身份证唯一，要得到负责人的唯一值，
单位用表是：在同名同姓的第一列中用第二列身份证的唯一性来查找到个人银行卡号。
再次请LSC900707老师指教了！

jjmysjg

留下记号，下来