求组 VBA 高手， VBA 编程实现多条件多返回值查找(可有偿)

[ZakaryTime]

函数功能：制作一个可以在 WPS 和 Excel VBA 通用自定义函数（自加载宏加载可以直接用函数名作为公式名调用），实现多条件查找返回符合条件的一个或者多个返回值,利用指定的分隔符连接，默认分隔符为;

函数原型：符合条件的数据 mylookup(查找的单元格，查找条件 1条件 2.....*条件 n,返回的区域,指定的连接符(可以不指定使用默认;))

[zhyt0520]

我自己用过的两个方法，跟你的需求不太一样，但是感觉可以参考

https://aword.net/excel-zhong-duo-tiao-jian-que-ding-hang-yin-yong-hang-zhong-qi-ta-shu-zhi
https://aword.net/excel-zhong-vlookup-duo-tiao-jian-yin-yong

[greatbody]

老 VB6 用户路过

[Tumblr]

多条件查找，一般来说直接 vlookup 或 xlookup 就可以了，用不到 vba 。

[ZakaryTime]

@zhyt0520 谢谢，解决了。

[ZakaryTime]

@Tumblr 匹配值不是唯一的时候很麻烦。

[ZakaryTime]

已经解决了，代码共享出来给以后有用的人

Function myLookUp(arr, RngData As Range, Optional splitFlag$ = ";")
Dim arrData
Dim r&, i&
Dim xrr(), x&
If Not IsArray(arr) Then
myLookUp = CVErr(xlErrValue)
Else
arrData = RngData.Resize(UBound(arr), 1)
For r = 1 To UBound(arr)
If arr(r, 1) Then
x = x + 1
ReDim Preserve xrr(1 To x)
xrr(x) = arrData(r, 1)
End If
Next
If x > 0 Then
myLookUp = Join(xrr, splitFlag)
Else
myLookUp = CVErr(xlErrValue)
End If
End If
End Function


完整的说明：
[VBA Excel 多条件 多返回值]( https://www.yuque.com/zakary/qrnvpn/frpg6s)