VBA 统计 A 列重复内容数量 - 使用字典方法

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

Sub CountDuplicates()
    Dim dict As Object
    Set dict = CreateObject('Scripting.Dictionary')
    
    Dim lastRow As Long
    lastRow = Cells(Rows.Count, 'A').End(xlUp).Row
    
    Dim i As Long
    For i = 1 To lastRow
        If Not dict.exists(Cells(i, 'A').Value) Then
            dict.Add Cells(i, 'A').Value, 1
        Else
            dict(Cells(i, 'A').Value) = dict(Cells(i, 'A').Value) + 1
        End If
    Next i
    
    For Each key In dict.keys
        MsgBox '内容: ' & key & ' 出现次数: ' & dict(key)
    Next key
End Sub

这段代码首先创建了一个字典对象 (dict)，然后通过循环遍历列 A 中的每个单元格。如果字典中不存在当前单元格的值，则将其添加到字典中，并将计数器设置为 1；如果字典中已存在当前单元格的值，则将计数器加 1。最后，通过循环遍历字典中的键 (key)，并在对话框中显示内容和出现次数。

请注意，此代码假定要统计的数据从第 1 行开始，并且没有空行。如果数据从其他行开始或包含空行，请相应地调整代码。