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 key
End Sub

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