在VBA中实现VLOOKUP功能

zhhl4874

收藏了，谢谢啊！

zhhl4874

高手啊，学习喽

yangjia1980

这个好帖
最近总为大数据匹配困扰，又不会用字典或数组，终于找到个现成的

IAW930628

smhf_6 发表于 2010-12-27 17:48
修改一下，中午在单位里一直出问题，所以变通了一下，晚上回家一试，行了：
Sub xx()
Dim d As Object

好用，但字典用法还是不懂

阿庄

学习一下字典功能

sunny_8848

学习好方法，多谢分享

寒冰小处男

感谢 MARK

一指禅62

1. Sub 读入()
   
2.     Dim t As Date
   
3.     t = Timer
   
4.     Application.ScreenUpdating = False
   
5.     Dim arr, brr(), R As Long, i As Long, j As Integer, Rng As Range
   
6.     R = Sheet2.Range("B65536").End(3).Row
   
7.     Sheet2.Range("C3:H1000").ClearContents
   
8.     If R < 3 Then Exit Sub
   
9.     arr = Sheet2.Range("B3:B" & R)
   
10.     ReDim brr(1 To 6, 1 To UBound(arr))
    
11.     For i = 1 To UBound(arr)
    
12.         Set Rng = Sheet1.Range("B:B").Find(arr(i, 1))
    
13.         If Rng Is Nothing Then
    
14. 
    
15.         Else
    
16.             For j = 1 To 6
    
17.                 brr(j, i) = Sheet1.Cells(Rng.Row, j + 2)
    
18.             Next
    
19.         End If
    
20.     Next
    
21.     Sheet2.Range("C3").Resize(UBound(brr, 2), 6) = WorksheetFunction.Transpose(brr)
    
22.     Set Rng = Nothing
    
23.     Application.ScreenUpdating = True
    
24.     MsgBox "共用时" & Format(Timer - t, "0.000")
    
25. End Sub

复制代码

一指禅62

附件                    


求助件.rar (29.68 KB, 下载次数: 334)

2014-3-22 16:52 上传

点击文件名下载附件

sixhero

如果是要查序号呢？