VBA 如何统计一列中每一个数据出现的次数，并在另外两列中分别显示数据名称和次数。 注：用VBA

Sub j0r()
Dim arr, dic, i%
    Set dic = CreateObject("scripting.dictionary")
    With ActiveSheet
        arr = .Range("A2:A" & .Range("A65535").End(xlUp).Row)
        For i = 1 To UBound(arr)
            If dic.exists(arr(i, 1)) Then
                dic(arr(i, 1)) = dic(arr(i, 1)) + 1
            Else
                dic(arr(i, 1)) = 1
            End If
        Next
        .[C2].Resize(dic.Count, 1) = Application.Transpose(dic.Keys)
        .[D2].Resize(dic.Count, 1) = Application.Transpose(dic.Items)
    End With
End Sub