excel - 将唯一值从 Excel 填充到 VBA 数组中

Question

任何人都可以给我 VBA 代码，该代码将从 Excel 工作表中获取范围(行或列)并使用唯一值填充列表/数组，即:

table
table
chair
table
stool
stool
stool
chair

当宏运行时会创建一个数组，如下所示:

fur[0]=table
fur[1]=chair
fur[2]=stool

Answer 1

Sub GetUniqueAndCount()

    Dim d As Object, c As Range, k, tmp As String

    Set d = CreateObject("scripting.dictionary")
    For Each c In Selection
        tmp = Trim(c.Value)
        If Len(tmp) > 0 Then d(tmp) = d(tmp) + 1
    Next c

    For Each k In d.keys
        Debug.Print k, d(k)
    Next k

End Sub