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

skvin

请问罗老师，应该如何给FIND增加参数，最好上传附件，呵呵，我比较菜！

andysky

原帖由 skvin 于 2010-4-11 09:49 发表
请问罗老师，应该如何给FIND增加参数，最好上传附件，呵呵，我比较菜！

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

复制代码

dieqi320

谢谢你了啊，有了这个以后我做事就更好了

zzmjxxy

够强大！

lhx120824

版主真是个多产的专家，看到你的很多精彩作品。

边城

呵呵，，没有看太明白，，

cwang63

太强大了！努力学习。

cnh6226

原帖由 andysky 于 2010-4-11 10:01 发表




Function look(查找值 As String, 区域 As Range, Optional 列 As Integer = 2, Optional 索引号 As Integer = 1) As String
    Application.Volatile
    Dim i As Long, cell As Range, Str As String ...

太强了，谢谢罗老师！！

Kn_my415

Very gooD!

extlocal

收藏。。。。。。