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
