【自定义函数】多条件查询VLOOKUPIFS

little-key

自2007版本后
微软推出几个带有IFS的函数
如sumifs、countifs、averageifs等
但是就是没有vlookupifs多条件查询
但是在之前回帖的过程中
就经常有一些朋友问
要返回符合某些条件的单元格值
之前用的是数组公式
如index(,small(if(.....)))
现在编写一个vlookupifs的自定义函数
只是根据这个理念编写的
没有考虑效率问题
在彭希仁版主的提示下
优化了不等号的做法
我原来用的是正则
现在调整为if+like
但是查询的效率还不是很高

1. 
   
2. Function VLOOKUPIFS(lookup_range As Range, index_num As Long, ParamArray R() As Variant)
   
3.     n = UBound(R)
   
4.     m = n + 1
   
5.     ReDim arr(m)
   
6.     For i = 0 To n Step 2
   
7.         arr(i) = R(i)
   
8.     Next i
   
9.     k = UBound(arr(0))
   
10.     For h = 1 To k
    
11.         For j = 0 To n Step 2
    
12.             q = R(j + 1)
    
13.             If q Like ">*" Then
    
14.                 If arr(j)(h, 1) > Replace(R(j + 1), ">", "") Then l = l + 1
    
15.             End If
    
16.             If q Like ">=*" Then
    
17.                 If arr(j)(h, 1) >= Replace(R(j + 1), ">=", "") Then l = l + 1
    
18.             End If
    
19.             If q Like "<*" Then
    
20.                 If arr(j)(h, 1) < Replace(R(j + 1), "<", "") Then l = l + 1
    
21.             End If
    
22.             If q Like "<=*" Then
    
23.                 If arr(j)(h, 1) <= Replace(R(j + 1), "<=", "") Then l = l + 1
    
24.             End If
    
25.             If q Like "<>*" Then
    
26.                 If arr(j)(h, 1) <> Replace(R(j + 1), "<>", "") Then l = l + 1
    
27.             Else
    
28.                 If arr(j)(h, 1) = R(j + 1) Then l = l + 1
    
29.             End If
    
30.         Next j
    
31.         If l = (n + 1) / 2 Then p = p + 1
    
32.         l = 0
    
33.         If p = index_num Then
    
34.             y = h
    
35.             Exit For
    
36.         End If
    
37.     Next h
    
38.     Erase arr
    
39.     Set arr1 = lookup_range
    
40.     If y > 0 Then
    
41.         VLOOKUPIFS = arr1(y)
    
42.     Else
    
43.         VLOOKUPIFS = CVErr(xlErrValue)    '这儿要返回一个错误值
    
44.     End If
    
45. End Function

复制代码

该贴已经同步到 little-key的微博

little-key

ParamArray 这个是在andysky版的帮助
将原来的固定数量的条件数
扩展为自定义个数的
不过也是有限制的，应该是255个

little-key

目前我能想到的优化还有以下两点：
1、查询的效率问题，还有很大程度的提高
2、输入公式后的参数提示，目前还没有，这个还需要补

以上两个问题，以及其他新的功能设置，基于个人能力有限，还望大家一起优化优化

flydove

支持版主分享，研究一下。谢谢！

蔡明江

版主提供个附件参考参考嘛，谢谢！

myl玉龙

可以学习一下，谢谢楼主

tiger2003

不错，谢谢哦！

wss0002

谢谢分享，先收藏，期待完善版。

周老虎点蚊香

这个函数还有点问题，就是Replace前面都要加VAL转数值才在不等式时不会出错，但都加后又出了一个错，就是“>=”时全是“<"的值。

hgp212

我有一个效率特高的，不像你这样子的，要轮循每个单元格