请教如何运用数组提高VLOOKUP速度

2574476074

A表有7000多行数据，单纯用VLOOKUP很慢，希望用数组能快速匹配提高效率，但不能运行（系统显示下标越界），请老师指点，谢谢
代码如下:Sub a()
Dim ARR3()
X = Range("A1").CurrentRegion.Rows.Count
ARR1 = Range("A2:A" & X)
Set wb = Workbooks.Open(ThisWorkbook.Path & "/B.xlsx")
ARR2 = wb.Sheets("Sheet1").Range("A2:B3") ‘B表信息装入数组
ReDim ARR3(1 To Range("d65536").End(xlUp).Row, 1 To 1)
For I = 1 To UBound(ARR1)
ARR3(I, 1) = Application.VLookup(ARR1(I, 1), ARRY2, 2, 0)
Next I
End sub

cbtaja

1. Sub cs()
   
2. Set dic = CreateObject("Scripting.Dictionary")
   
3. Set wb = Workbooks.Open(ThisWorkbook.Path & "/b.xlsx")
   
4. arr = wb.Sheets(1).Range("A1").CurrentRegion
   
5. wb.Close False
   
6. For i = 1 To UBound(arr)
   
7.     dic(arr(i, 1)) = arr(i, 2)
   
8. Next
   
9. arr = Sheet1.Range("A1").CurrentRegion.Resize(, 1)
   
10. For i = 2 To UBound(arr)
    
11.     arr(i, 1) = dic(arr(i, 1))
    
12. Next
    
13. arr(1, 1) = "qty"
    
14. Sheet1.[b1].Resize(i - 1, 1) = arr
    
15. End Sub
    

复制代码

2574476074

请教老师如果要匹配不止一列的信息该如何操作？循环吗？谢谢了

chenbiao2012

2574476074 发表于 2015-3-17 22:07
请教老师如果要匹配不止一列的信息该如何操作？循环吗？谢谢了

用字典和数组结合使用

chenbiao2012

1. Sub test()
   
2.     Set d = CreateObject("scripting.dictionary")
   
3.     Set wb = Workbooks.Open(ThisWorkbook.Path & "\b.xlsx")
   
4.     With wb.Sheets("sheet1")
   
5.         arr = .[a1].CurrentRegion
   
6.     End With
   
7.     wb.Close False
   
8.     For i = 1 To UBound(arr)
   
9.         d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4))  '假设有4列，当然可以根据需要乱序放入数组
   
10.     Next
    
11.     With Sheets("sheet1")
    
12.         arr = .Range("a1:d" & .Cells(Rows.Count, 1).End(3).Row)
    
13.         For i = 2 To UBound(arr)
    
14.             If d.exists(arr(i, 1)) Then
    
15.                 t = d(arr(i, 1))
    
16.                 For j = 0 To UBound(t)
    
17.                     arr(i, j + 2) = t(j)
    
18.                 Next
    
19.             End If
    
20.         Next
    
21.         .[a1].Resize(UBound(arr), 4) = arr
    
22.     End With
    
23. End Sub

复制代码

2574476074

总算看懂了，谢谢两位老师指点

LMY123

字典跨工作薄实现VLOOKUP