共享VBA 多条件 多匹配值 代码

讨论分享
1

分享一个支持多条件 多匹配值的 vlookup 函数，查找更加的方便，自己放到自加载宏后可以当做普通函数调用。
代码内容如下：
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 多条件 多返回值 说明&附件

2

网页404了

3

VBA 多条件 多返回值

试试现在的，链接复制错了。