【VBA】VBA实现统计目标范围内重复值次数
2013-11-16 21:30
330 查看
Sub f() Set myb = CreateObject("scripting.dictionary"): myb("PICSID") = "出现次数" Set Rng = Application.InputBox("选择统计区域:", Type:=8) ActiveSheet.Cells.Interior.ColorIndex = 0 Rng.Interior.ColorIndex = 3 For Each rng1 In Rng myb(rng1.Value) = Application.WorksheetFunction.CountIf(Rng, rng1) Next Set rng3 = Application.InputBox("选择输出地方:", Type:=8) With rng3 .Resize(myb.Count) = Application.Transpose(myb.keys) .Offset(, 1).Resize(myb.Count) = Application.Transpose(myb.items) End With Set myb = Nothing: Set rng3 = Nothing End Sub
相关文章推荐
- 上千万或上亿数据(有重复),统计其中出现次数最多的N个数据. C++实现
- 实现给定一个字符串剔除重复字符,并统计各个字符出现的次数
- c++实现“统计输入的string中重复次数最多的string”
- JS编写一个函数,实现传入一个不定长度字符串,查找出重复次数前n名的字符并分别统计其次数
- java统计字符串中重复【单个】字符的次数频次-使用字符数组实现
- sharepoint2010问卷调查(4)-实现问卷的重复答复次数(采用自定义字段类型和JS)
- Hihocoder #1014 : Trie树 (字典数树统计前缀的出现次数 *【模板】 基于指针结构体实现 )
- Java实现 统计单词出现的次数并按照单词频率从高到低输出
- js cookies实现简单统计访问次数
- Dedecms实现统计真实下载次数的方法
- 去除数组中重复项,并统计重复出现次数最多的元素及重复次数
- Python编程实现生成特定范围内不重复多个随机数的2种方法
- JavaScript实现点击出现图片并统计点击次数功能示例
- 数组中有重复数据统计并按照次数的由大到小排列出来
- 有1000000个数,每个数取值范围是0-999999 找出其中重复的数,重复次数
- 算法--生成m个指定范围的不重复随机数的三种方法分析(Java实现)
- 随机生成50个数,范围在【10,50】,统计每个数字出现的次数以及出现次数最多的数字与它的个数。
- java8 lambda 统计list中对象的重复次数
- JS实现在线统计一个页面内鼠标点击次数-刷新过后也会保留上次点击次数
- 统计字符串中出现次数最多的字母的次数,如果有多个重复的,都求出