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

lsc900707

vba789 发表于 2017-4-15 09:49
LSC900707老师，是我没表达清楚，白木一个！
产品编号重复，但身份证唯一，要得到负责人的唯一值，
单 ...

好，晚上我再修改一下。

vba789

lsc900707 发表于 2017-4-15 11:36
好，晚上我再修改一下。

在楼上老师的帮助下写的代码，多条件查询，增加查询值的准确性。
Sub 查询()
Dim Arr, i&, Brr, d
t = Timer
Set d = CreateObject("Scripting.Dictionary")
   Sheet2.Activate
      Arr = Sheet1.[a1].CurrentRegion
        For i = 2 To UBound(Arr)
          x = Arr(i, 1) & "|" & Arr(i, 2) '可增加或减少查询条件
            d(x) = Arr(i, 3)
   Next
        Brr = Sheet2.[a1].CurrentRegion
           For i = 2 To UBound(Brr)
             x = Brr(i, 1) & "|" & Brr(i, 2)
               If d.exists(x) Then Cells(i, 3) = d(x)
     Next
     MsgBox Timer - t
        MsgBox "数据已导入！"
     End Sub

lsc900707

vba789 发表于 2017-4-16 07:44
在楼上老师的帮助下写的代码，多条件查询，增加查询值的准确性。
Sub 查询()
Dim Arr, i&, Brr, d

不错，自己可以写出来了。学习就要这样。

vba789

lsc900707 发表于 2017-4-16 09:20
不错，自己可以写出来了。学习就要这样。

还得感谢您的指教。

hahahaha0001

不动手写，还真不行哪。明天也试一下。学习了。

qcf

vba789 发表于 2017-4-16 07:44
在楼上老师的帮助下写的代码，多条件查询，增加查询值的准确性。
Sub 查询()
Dim Arr, i&, Brr, d

提示下标越界，请教怎么修改的？

qcf

lsc900707 发表于 2017-4-16 09:20
不错，自己可以写出来了。学习就要这样。

提示下标越界，请问如何修改呢？

lsc900707

qcf 发表于 2020-2-2 22:44
提示下标越界，请问如何修改呢？

上传附件看看。

qcf

lsc900707 发表于 2020-2-3 07:44
上传附件看看。

提示下标越界了  多条件下

lsc900707

qcf 发表于 2020-2-3 15:50
提示下标越界了  多条件下

1. Sub 查询()
   
2.     Dim Arr, i&, Brr, d
   
3.     t = Timer
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     Arr = Sheet1.[a4].CurrentRegion
   
6.     For i = 2 To UBound(Arr)
   
7.         x = Arr(i, 1) & Arr(i, 2)
   
8.         d(x) = Arr(i, 3)
   
9.     Next
   
10.     Brr = [a4].CurrentRegion
    
11.         For i = 2 To UBound(Brr)
    
12.             x = Brr(i, 1) & Brr(i, 2)
    
13.             Brr(i, 3) = d(x)
    
14.      Next
    
15.      [a4].CurrentRegion = Brr
    
16.      MsgBox Timer - t
    
17.     MsgBox "数据已导入！"
    
18. End Sub

复制代码