在MS Word VBA中统计列表各唯一值出现次数及推荐合适的存储容器

嘿，我来帮你搞定这个VBA的统计问题！先拆解你遇到的坑，再给你可行的解决方案，最后推荐更合适的存储方式。

一、先解决你当前ArrayList的统计需求 #

你之前尝试的方法都踩了VBA的小细节坑，我先给你一个能直接运行的统计代码，适配你现有的ArrayList：

Sub CountUniqueFromArrayList()
    ' 注意：需要先引用「Microsoft Scripting Runtime」
    ' 引用方式：开发工具 -> 引用 -> 勾选对应选项
    Dim myArrayList As New ArrayList
    Dim countDict As New Dictionary
    Dim currentVal As Variant
    
    ' 填充你的示例数据
    myArrayList.Add 10
    myArrayList.Add 10.5
    myArrayList.Add 10.5
    myArrayList.Add 10.5
    myArrayList.Add 10.5
    
    ' 遍历ArrayList统计每个值的出现次数
    For Each currentVal In myArrayList
        If countDict.Exists(currentVal) Then
            ' 值已存在，计数+1
            countDict(currentVal) = countDict(currentVal) + 1
        Else
            ' 值不存在，添加新键并设计数为1
            countDict.Add currentVal, 1
        End If
    Next currentVal
    
    ' 输出统计结果（可改成写入单元格等操作）
    Dim uniqueVal As Variant
    For Each uniqueVal In countDict.Keys
        Debug.Print "数值 " & uniqueVal & " 出现 " & countDict(uniqueVal) & " 次"
    Next uniqueVal
End Sub

为什么你之前的方法失效？ #

我给你逐个拆解：

• Filter(arr, 10, True, vbTextCompare)：Filter是字符串匹配逻辑，它会把所有数值转成字符串后检查是否包含"10"，所以"10.5"也会被匹配到，自然返回所有值。VBA没有内置的精确匹配数组过滤函数，得自己遍历判断。
• Application.Count(Application.Match(arr, Array(10), 0))：Match的参数顺序搞反了！正确顺序是Match(要找的值, 查找范围, 匹配类型)，而且Match只会返回第一个匹配的位置，不是所有匹配项的数量。就算改对了，遇到不匹配的值会返回错误，Count会忽略错误，结果也不准。
• occurrences = arr.lastIndexOf(10) - arr.IndexOf(10, 0) + 1：VBA的ArrayList确实没有lastIndexOf方法，这个是Java、.NET等语言的API，VBA不支持，所以代码直接报错。

二、推荐更合适的数值存储&统计方案 #

其实从一开始就不该用ArrayList来做这件事，Dictionary（字典）才是最适合的选择——它天生就是键值对结构，键存唯一数值，值存出现次数，从数据录入阶段就能完成统计，效率更高。

直接用Dictionary的示例代码：

Sub DirectCountWithDictionary()
    Dim numDict As New Dictionary
    Dim inputValues As Variant
    Dim val As Variant
    
    ' 示例输入数据
    inputValues = Array(10, 10.5, 10.5, 10.5, 10.5)
    
    ' 录入时直接统计
    For Each val In inputValues
        If numDict.Exists(val) Then
            numDict(val) = numDict(val) + 1
        Else
            numDict.Add val, 1
        End If
    Next val
    
    ' 输出结果
    For Each val In numDict.Keys
        Debug.Print "数值 " & val & " 出现 " & numDict(val) & " 次"
    Next val
End Sub

其他可选方案 #

如果你必须用列表类存储：

• Collection：但Collection没有键的存在性检查，需要自己遍历查找，效率比Dictionary低，适合数据量小的场景。
• Variant数组：可以结合Application.CountIf统计，但CountIf对内存数组的支持有限，有时候需要把数组写入工作表单元格再统计，不如Dictionary灵活。

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