Excel表格插入、删除和修改批注的方法,Excel表格插入、删除和修改批注的方法......
代写VBA统计某一列中各数据出现次数
来源:互联网
2023-02-20 23:13:52 247
今天跟大家分享一下如何利用vba统计一列数据中每个数据出现的次数。
工具/原料
- Excel
方法/步骤
如下图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
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考!
上一篇:WPS如何输入特殊符号 下一篇:Excel多字段如何进行自定义排序