vba怎么统计相同内容个数

VBA中可以使用字典(Dictionary)来统计相同内容的个数。以下是一个示例代码：

Sub CountDuplicates()    Dim dataRange As Range    Dim cell As Range    Dim dict As Object    Set dict = CreateObject("Scripting.Dictionary")        ' 设置数据范围    Set dataRange = Range("A1:A10")        ' 遍历数据范围中的每个单元格    For Each cell In dataRange        ' 判断单元格中的值是否已存在于字典中        If dict.Exists(cell.Value) Then            ' 如果存在，则在字典中对应的值加1            dict(cell.Value) = dict(cell.Value) + 1        Else            ' 如果不存在，则将单元格的值作为键，初始值设为1            dict.Add cell.Value, 1        End If    Next cell        ' 输出结果    For Each key In dict.Keys        MsgBox key & " 的个数为 " & dict(key)    Next keyEnd Sub

以上代码假设要统计的数据在A1:A10的单元格范围内。代码首先创建了一个字典对象，然后遍历数据范围中的每个单元格，将单元格中的值作为字典的键。如果键已存在，就将对应的值加1；如果键不存在，就将键添加到字典中，并将初始值设为1。最后，遍历字典的键，输出每个键对应的值，即相同内容的个数。