VBA Excel:枚举重复项的总数。计数和求和

VBA Excel中，要枚举重复项的总数并进行计数和求和，可以使用以下代码：

Sub CountAndSumDuplicates()
    Dim rng As Range
    Dim cell As Range
    Dim dict As Object
    Dim countDict As Object
    Dim sumDict As Object
    
    Set rng = Range("A1:A10") '假设要统计的数据范围是A1到A10
    
    Set dict = CreateObject("Scripting.Dictionary")
    Set countDict = CreateObject("Scripting.Dictionary")
    Set sumDict = CreateObject("Scripting.Dictionary")
    
    '遍历数据范围，将重复项的值作为键，出现次数作为值存入字典
    For Each cell In rng
        If dict.exists(cell.Value) Then
            dict(cell.Value) = dict(cell.Value) + 1
            sumDict(cell.Value) = sumDict(cell.Value) + cell.Value
        Else
            dict.Add cell.Value, 1
            sumDict.Add cell.Value, cell.Value
        End If
    Next cell
    
    '输出重复项的总数、计数和求和结果
    For Each key In dict.keys
        Debug.Print "值为 " & key & " 的重复项总数为 " & dict(key)
        Debug.Print "值为 " & key & " 的重复项计数为 " & countDict(key)
        Debug.Print "值为 " & key & " 的重复项求和为 " & sumDict(key)
    Next key
End Sub

这段代码首先定义了一个范围rng，表示要统计的数据范围。然后创建了三个字典对象：dict用于存储重复项的出现次数，countDict用于存储重复项的计数，sumDict用于存储重复项的求和结果。

接下来，通过遍历数据范围rng，将重复项的值作为键，出现次数作为值存入字典。如果字典中已存在该键，则更新出现次数和求和结果；否则，添加新的键值对。

最后，通过遍历字典的键，输出重复项的总数、计数和求和结果。

这段代码的应用场景是在Excel中统计某一列数据中重复项的总数、计数和求和结果。例如，可以用于统计销售数据中每个产品的销售数量和销售额。

腾讯云相关产品和产品介绍链接地址：