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

gly1126 · 发表于 2009-8-18 20:29

Function Look(查找值 As String, 区域 As Range, Optional 列偏移 As Integer = 1, Optional 索引号 As Integer = 1) As String
Application.Volatile
For Each c In 区域.Columns(1).Cells
If c = 查找值 Then j = j + 1
If j = 索引号 Then Look = c.Offset(0, 列偏移): Exit Function
Next c
End Function

tancaixi · 发表于 2009-8-18 20:39

罗刚君老师真高！

yanjianbin · 发表于 2009-8-18 22:14

学习中。。。。谢谢！

阿熊 · 发表于 2009-8-19 09:38

太厉害了，学习，谢谢

fanrna · 发表于 2009-8-19 10:39

谢谢楼主分享，我得实践一下！

美人计 · 发表于 2009-8-19 11:55

VBA就是强悍!!!!
看不懂,我,我
再研究研究

zbjwl · 发表于 2009-8-19 11:55

现在就用！立马行动！

lenovo1976 · 发表于 2009-8-19 12:19

我正在找这样的东东哦，十分感谢了~学习了

zhengrd · 发表于 2009-8-19 12:35

这是高手的做法,将自己常用定义成函数

lilicom · 发表于 2009-8-19 15:28

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

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

终于看明白了,作了一下改动

回复 1楼 andysky 的帖子