如何将VBA中Scripting.Dictionary对象的唯一值转换为数组？

要把存储在Scripting.Dictionary对象（即你的List对象）中的唯一名称转换成数组，直接利用Dictionary的Keys属性即可——这个属性会返回所有唯一键的集合，赋值给Variant变量就会自动转为一维数组。

修改后的完整代码 #

Sub vba_string_array()
    Dim unique_agents As Long, List As Object, Rng As Range
    Dim uniqueNamesArr As Variant ' 声明存储唯一名称的数组变量
    
    Set List = CreateObject("Scripting.Dictionary")

    For Each Rng In Range("F4:F15")
        ' 增加空值判断，避免空单元格被加入字典
        If Rng.Value <> "" And Not List.Exists(Rng.Value) Then
            List.Add Rng.Value, Nothing
        End If
    Next
    
    ' 核心步骤：将字典的键转换为数组
    uniqueNamesArr = List.Keys
    
    ' 可选：验证数组内容（输出到VBA编辑器的立即窗口）
    Dim i As Long
    For i = LBound(uniqueNamesArr) To UBound(uniqueNamesArr)
        Debug.Print uniqueNamesArr(i)
    Next
    
    ' 修正原代码的计数：字典Count属性就是唯一名称的数量，无需减1
    unique_agents = List.Count
End Sub

关键说明 #

• List.Keys返回的是包含所有唯一名称的集合，直接赋值给Variant类型变量就会自动转为一维数组，数组默认下标从0开始。
• 如果需要将数组转为适合工作表输出的二维数组，可以用uniqueNamesArr = Application.Transpose(List.Keys)，转置后下标从1开始，方便直接写入单元格区域。
• 原代码中unique_agents = List.Count -1大概率是错误的，Dictionary的Count属性本身就是唯一键的数量，加入空值判断能避免空单元格被误计入统计。

内容的提问来源于stack exchange，提问作者Akula