如何计算数组中的重复值(VBA)？

Sub CalculateDuplicates()
    Dim arr() As Variant
    Dim dict As Object
    Dim element As Variant
    Dim duplicates() As Variant
    Dim i As Long, j As Long
    
    ' 将要计算的数组赋值给变量 arr
    arr = Array(1, 2, 3, 4, 2, 3, 5, 6, 1)
    
    ' 创建字典对象
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' 遍历数组，统计每个元素的出现次数
    For i = LBound(arr) To UBound(arr)
        If dict.Exists(arr(i)) Then
            dict(arr(i)) = dict(arr(i)) + 1
        Else
            dict(arr(i)) = 1
        End If
    Next i
    
    ' 遍历字典，找到重复值
    j = 0
    For Each element In dict.Keys
        If dict(element) > 1 Then
            ReDim Preserve duplicates(j)
            duplicates(j) = element
            j = j + 1
        End If
    Next element
    
    ' 输出重复值到工作表中
    For i = LBound(duplicates) To UBound(duplicates)
        Cells(i + 1, 1).Value = duplicates(i)
    Next i
End Sub