VBA调用外部对象01:字典Dictionary(统计数据出现的次数)
时间:2022-07-22
本文章向大家介绍VBA调用外部对象01:字典Dictionary(统计数据出现的次数),主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
前面说过了字典去除重复的使用方法,既然字典可以去除重复,那就可以统计数据出现的次数,现在我们来说说如何利用字典来做到这个。
前面去除重复我们是直接更新Key的Item属性,利用的是字典不会保存重复Key的特点。
我们当时并没有特别注意Item的值,是直接使用了数据所在的行号,而且没有使用到这个Item的值。统计数据出现的次数就是要使用到字典的Item值。
要统计数据出现的次数,因为字典是不会有重复的Key的,我们直接把Item的值加1就行了,这个时候是有2种情况:
- 不存在的Key:这个时候Item也不存在,也就是vbEmpty,CLng转换vbEmpty的Item的值为0,所以+1正好是第一次出现
- 存在的Key:这个时候就好理解了,首先会取出这个Key的Item值,也就是前面已经出现过的次数,然后再+1,再更新这个Key的Item
所以直接更新Item的值+1就能达到目的:
Sub TestDic3()
'声明
Dim d As Dictionary
'创建
Set d = New Dictionary
Dim rowA As Long
Dim i As Long
'获取A列的最后一行行号
rowA = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim arrA() As Variant
'将A列的数据存放到数组中
arrA = Range("A1").Resize(rowA, 1).Value
'将A列数据记录到字典中,并更新Item的值+1
For i = 2 To rowA
d(VBA.CStr(arrA(i, 1))) = VBA.CLng(d(VBA.CStr(arrA(i, 1)))) + 1
Next
'输出
Range("B1").Resize(d.Count, 1).Value = Application.WorksheetFunction.Transpose(d.keys)
Range("C1").Resize(d.Count, 1).Value = Application.WorksheetFunction.Transpose(d.items)
'释放
Set d = Nothing
End Sub
效果:
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- 浅谈Android Studio 3.0 的一些小变化
- 详解如何使用Android Studio开发Gradle插件
- Android ItemDecoration 实现分组索引列表的示例代码
- Android TextView实现词组高亮的示例代码
- Android开发使用json实现服务器与客户端数据的交互功能示例
- Android中实现词组高亮TextView方法示例
- AsyncTask类实例详解
- Android中ListView的item点击没有反应的解决方法
- android 应用内部悬浮可拖动按钮简单实现代码
- 详解Android PopupWindow怎么合理控制弹出位置(showAtLocation)
- Android Studio 3.0上分析内存泄漏的原因
- Android 实现图片生成卷角和圆角缩略图的方法
- Android使用TextInputLayout创建登陆页面
- Android使用WebSocket实现多人游戏
- Android Studio多渠道打包套路