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

tongsheng

没看懂，学学一下

masancj

Function look(查找值 As String, 区域 As Range, 列 As Integer, 索引号 As Integer) As String
    Application.Volatile
    On Error Resume Next
    Dim i As Long
    For i = 1 To 区域.Rows.Count
        If 区域(i, 1) = 查找值 Then j = j + 1
        If j = 索引号 Then look = 区域(1).Offset(i - 1, 列 - 1): Exit Function
    Next i
End Function

请问这段代码是新的还是旧的

huangmoxi1

大神。。。

huangmoxi1

请问您是怎么自定义设置的下拉控件的？因为一般的窗体控件都是浮动的，而您这边是直接在单元格上就能筛选，如果我想继续添加筛选格式的话，如何操作？？
非常感谢

huangmoxi1

请问大家以上罗老师作品是如何自定义设置的下拉控件的？因为一般的窗体控件都是浮动的，而您这边是直接在单元格上就能筛选，如果我想继续添加筛选格式的话，如何操作？？
非常感谢

huangmoxi1

andysky 发表于 2009-8-17 15:32
=look(C$2,A$2:A$12,2,1)
这还不简单吗？

您好，罗老师，我看了您关于VLOOKUP精确查找增强。上面有选项有语文，数学，英语。能不能帮我编写一个有15项可选则的窗口。如：语文，数学，英语，地理，历史。。。。。。15个
非常感谢，我对VBA不是很懂，真的很急，非常感谢您罗老师

brier

啥叫有15个选项的窗口，把公式复制到15个列上，再把MATCH(I$2,A$1:F$1,0)-COLUMN($C:$C)+1中的I$2这个值分别改成A1、B1、C1、…… 这样就可以，A1、B1、C1、……单元格填写语文，数学，英语…… 罗老师我理解的对么

lyb200

不错的，下载学习了。

dcg328

一点看不懂，学习了

清风明月九

谢谢楼主的分享！很有用啊。