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