Function Vlookups(Rng1 As Range, Rng2 As Range, Col As Byte, Sep As String)
Dim Region, Dict
Set Rng1 = Rng1(1)
Set Dict = CreateObject("Scripting.Dictionary")
Region = Intersect(Rng2, ActiveSheet.UsedRange)
Dim Target As String, R As Long
For R = LBound(Region, 1) To UBound(Region, 1)
If Region(R, 1) = Rng1.Value Then
Target = Region(R, Col)
If Not Dict.Exists(Target) Then Dict.Add Target, ""
End If
Next
Vlookups = Join(Dict.Keys(), Sep)
End Function
Vlookup函数增强版 根据查找内容返回多个匹配值
最新推荐文章于 2024-04-10 22:01:10 发布