Excel统计出现次数.个数的VBA代码
时间:2023-12-13 16:54:53
使用如下的VBA代码,您就可以在Excel中,统计某个字符或某个数字,甚至是某个字符串,在某个数据区域范围内,所出现的次数,即出现几次,或称为有几个。
代码如下,是VBA宏代码。
Set myb = CreateObject("scripting.dictionary"): myb("数字") = "次数"
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
标签:Excel统计出现次数.个数的VBA代码
0
投稿
猜你喜欢
win10系统通过注册表更改计算机名的方法
2023-09-27 23:38:52
mac好用的添加水印工具推荐
2022-06-11 23:51:11
win7只 能上QQ不能打开网页怎么解决
2023-04-03 01:13:24
Excel表格如何进行模拟运算表分析
2023-04-09 13:49:29
网易邮箱大师怎么添加Word附件?
2023-09-23 06:30:44
如何运行Office修复实用工具来修复Word 2016?
2023-03-26 07:50:04
lenovo联想yoga系列笔记本重装系统教程图文详细介绍
2022-02-23 00:25:49
迅捷CAD编辑器怎么绘制圆形公切线?迅捷CAD编辑器绘制圆形公切线的方法
2022-02-23 01:43:59
2021年抖音集卡活动怎么玩?2021抖音集音符活动玩法
2023-11-16 01:23:03
Win7同时安装Office2007和Office2010的技巧
2023-05-20 01:14:36
Excel数据透视表使用过程中常见问题
2022-10-01 09:33:19
Excel表格让"自动更正"输入统一的文本
2022-08-08 06:31:02
爱剪辑如何制作暴闪效果?
2022-07-05 03:22:03
Win11自启动管理在哪里?Win11开机自启动程序关闭方法
2023-01-16 09:43:02
WinXP壁纸设置注意事项(让壁纸设置更好看)
2023-04-19 22:03:51
windows11怎么添加桌面图标?win11怎么创建桌面快捷图标
2022-10-15 08:08:58
WPS文字怎么改变文字排版方向图文教程
2023-04-16 06:01:16
Win11进入休眠后无法唤醒怎么办 ?Win11进入休眠后无法唤醒的处理方法
2022-12-11 20:48:00
在任务栏通知区操作打开Windows7的回收站
2023-11-27 03:43:24
wps表格如何使用替换功能
2023-01-05 06:38:07