Vlookup函数增强版根据查找内容返回多个匹配值

最新推荐文章于 2025-02-04 13:38:18 发布

原创最新推荐文章于 2025-02-04 13:38:18 发布 · 1.5k 阅读

5 ·

本内容遵循CC 4.0 BY-SA版权协议

收录于

当前文章被以下社区和专栏收录：

本文介绍了一个名为FunctionVlookups的函数，通过使用VLOOKUP和字典数据结构，实现在Excel中高效查找并整理数据。它演示了如何利用Rng1范围作为查找键，Rng2范围进行匹配，并将结果存储在字典中，最后返回所有匹配项的列表。

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