vlookup精确查找的增强版(升级，大大加快速度)

Sivans

感谢分享！！

caijun_27

很强，谢谢老师

jaffedream

andysky 发表于 2010-4-11 10:01

1. Function look(查找值 As String, 区域 As Range, Optional 列 As Integer = 2, Optional 索引号 As Integer = 1) As String
   
2.     Application.Volatile
   
3.     Dim i As Long, cell As Range, Str As String
   
4.     With 区域(1).Resize(区域.Rows.Count, 1)
   
5.     If .Cells(1) = 查找值 Then Set cell = .Cells(1) Else Set cell = .Find(查找值, LookIn:=xlValues, Lookat:=xlWhole)
   
6.      If Not cell Is Nothing Then
   
7.         Str = cell.Address
   
8.         Do
   
9.             i = i + 1
   
10.             If i = 索引号 Then look = cell.Offset(0, 列 - 1): Exit Function
    
11.             Set cell = 区域.Find(查找值, cell, , xlWhole)
    
12.         Loop While Not cell Is Nothing And cell.Address <> Str
    
13.     End If
    
14. End With
    
15. End Function

复制代码

我测试了一下，这个自定义函数在跨簿引用时，如果引用的工作簿关闭，可以正常引用其单元格的内容，但不能引用其数据区域。使用微软内置的vlookup函数是都能引用的。如果把查找值 As String改成查找值 As range，那么跨簿单元格都无法引用（关闭引用工作簿的情况下），因此造成这个问题的原因，应该是Range所致，可能微软自带的函数中没有把区域定义为range？使用了其他对象？有没有办法使用其他对象替代range呢？我测试了好几种都不行，object的效果和range一样。
如附件中，在不打开1.xls时，2.xls里N2单元格引用了1.xls的数据区域，会出错，N8单元格采用了VLOOKUP就是正确值，没有更新的话要按F9刷新下。打开1.xls以后刷新，N2单元格就正常了，其他仅引用了1.xls单元格的公式始终正确。

质量3

老师，后面更新的这个是不是模糊查找啊？，比如，我查找的是水，第一个和第二个分别出现的是矿泉水和水，它返回的是第一个搜索到的矿泉水的值，如何能精确查找水的值？

jaffedream

质量3 发表于 2017-6-17 15:04
老师，后面更新的这个是不是模糊查找啊？，比如，我查找的是水，第一个和第二个分别出现的是矿泉水和水，它 ...

1楼是模糊查找，102楼是精确查找。

质量3

jaffedream 发表于 2017-6-17 15:38
1楼是模糊查找，102楼是精确查找。

好的，谢谢。。。感觉用起来和vlookup速度差不多

jaffedream

发现BUG：-1<查找值<0或0<查找值<1时，无法返回正确的值。

2217918

老师，您好！恳请帮忙解决下哈，谢谢！

2217918

老师，您好！恳请帮忙解决下哈，谢谢！