Question

excel vba 字典什么功能

Answer 1

可以理解为一种高级数组，下标可以是字符串，例子代码：

option explicit

Function 获取唯一清单(ByRef rng As Range) As String
    Dim t As Range
    Dim db As Object, s$
    Set db = CreateObject("Scripting.Dictionary")
    For Each t In rng.Cells
        s = Trim(t.Value)
        db(s) = True
    Next t
    s = Join(db.Keys, ",")
    Set db = Nothing
    获取唯一清单 = s
End Function

利用这个函数可以获得某区域内不重复的内容清单到一个单元格里面。