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

选中B列数据单元格区域

同时按下Alt+F11

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

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

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

完成效果如下图，最后跟大家分享一下本文这里所使用的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