代写VBA统计某一列中各数据出现次数

1、如下图B列数据中含有部分重复数据，现在我们想要统计出这一列中各个数据出现的次数。

2、选中B列数据单元格区域

3、同时按下Alt+F11

4、点击sheet。然后在右侧区域录入vba代码

5、点击【运行】，选择【运行宏】

6、点击D2单元格作为存放位置，然后点击【确定】即可完成

7、完成效果如下图，最后跟大家分享一下本文这里所使用的vba代码，有需要的朋友可以复制粘贴使用。

'激活工作表事件

'激活工作表，写入除目录外所有表名
'作者：如需代做vba，请百度方方格子
'------------------------------------------
Sub 统计选区中每个值出现的次数()
       
    On Error Resume Next
    Dim rn As Range
    Dim count As Integer
    Dim d As Object
   
    Dim tar As Range
    '-------------------------------
    Set d = CreateObject("scripting.dictionary")
   
    For Each rn In Selection
        If rn <> "" Then
            If Not d.exists(rn.Value) Then
                d.Add rn.Value, 1
            Else
                count = d(rn.Value)
                d(rn.Value) = count + 1
            End If
        End If
    Next
   
    '-------------------------------
    Set tar = Application.InputBox(prompt:="请选择一单元格用于存放结果。", Title:="结果存放", Type:=8)
   
    If tar Is Nothing Then
        Exit Sub
    End If
    '---------------------
    tar.Cells(1, 1).Offset(0, 0).Resize(d.count) = WorksheetFunction.Transpose(d.keys)
    tar.Cells(1, 1).Offset(0, 1).Resize(d.count) = WorksheetFunction.Transpose(d.items)
End Sub