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。最后，遍歷字典的鍵，輸出每個鍵對應的值，即相同內容的個數。
