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。最后，遍历字典的键，输出每个键对应的值，即相同内容的个数。