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

skvin · 发表于 2010-4-11 09:49

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

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

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

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
With 区域(1).Resize(区域.Rows.Count, 1)
If .Cells(1) = 查找值 Then Set cell = .Cells(1) Else Set cell = .Find(查找值, LookIn:=xlValues, Lookat:=xlWhole)
If Not cell Is Nothing Then
Str = cell.Address
Do
i = i + 1
If i = 索引号 Then look = cell.Offset(0, 列 - 1): Exit Function
Set cell = 区域.Find(查找值, cell, , xlWhole)
Loop While Not cell Is Nothing And cell.Address <> Str
End If
End With
End Function

复制代码

dieqi320 · 发表于 2010-4-11 10:22

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

zzmjxxy · 发表于 2010-7-26 14:44

够强大！

lhx120824 · 发表于 2010-7-27 07:19

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

边城 · 发表于 2010-7-27 09:35

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

cwang63 · 发表于 2010-9-27 22:51

太强大了！努力学习。

cnh6226 · 发表于 2010-12-12 01:04

原帖由 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 · 发表于 2010-12-30 21:57

Very gooD!

extlocal · 发表于 2010-12-30 22:46

收藏。。。。。。

		自动登录	找回密码
密码			免费注册

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