Excel统计出现次数.个数的VBA代码
发布时间：2023-12-13 16:54:53
标签：Excel统计出现次数.个数的VBA代码
使用如下的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
0
投稿猜你喜欢
在我们日常使用win7系统电脑的时候，有些情况下可能就会出现系统更新完毕之后出现了电脑无法开机，一直卡在开机界面的情况。对于这个问题小编觉得- excel怎么制作动态图表?1.创建窗体点击开发工具——点击插入——窗体控件。右击——设置控件格式数据源区域：如图所示，公司所在单元格区域单
- 利用过WPS表格都 分明，WPS表格里 单位格的 巨细是 牢固的，你要 调解的话要 本人 别的 配置。 假如在 单位格 拔出图形会 怎样？
- 有时候我们会因个人需求来更改电脑的用户名，但有一些小伙伴说自己Win10系统的电脑出现了无法更改用户名的情况，那么碰到这种问题应该怎么办呢？
- 虽然现在光盘都很少见了，但是不可否认光盘是一个非常好用的存储文件的利器。光盘存储文件的话，价格便宜空间又大，所以依旧有用户选择光盘作为文件存
- 添加批注就是加入一些注释或者说明，可以帮助自己备忘或者帮助其他使用者更好的理解单元格数据的内容，那么在excel中如何选择全部批注?下面小编
- 多年来，Mac和PC一直都是势不两立的两大阵营。而随着MacbookPro和SurfaceStudio的发布，苹果和微软的对抗关系似乎又开始
- MicrosoftGraph应用程序是微软公司为用户提供的一款Office附件。使用时，首先要打开该应用程序，然后在ppt幻灯片中加入数据图
- 在使用Excel做报表的时候，发现自动输入功能无法正常使用。导致自动输入功能无法正常使用的原因有很多种，可以采用以下方法进行排除。1.检查最
- 码字精灵是一款非常好用的编辑软件，在使用的过程中想插入图片，怎么办？那你知道码字精灵如何插图的吗？接下来我们一起往下看看码字精灵添加图片的方
- 在Win7系统中，想要运行某项程序并对系统做出修改，一般要通过管理员允许。如果打开电脑后一直弹出“交互式检测服务”窗口，提示“程序可能需要您
- 虽然微软宣布Windows 10装机量已经突破6亿，但这个数字距离微软的预期仍然相差甚远，前边还横亘着Windows 7这座大山。不过，微软
- 作为一个整天对着电脑上班族来说，excel表格大家都应该接触过，但是很多伙伴接触不多，对excel表格不熟练，经常会在制作表格中遇到很多问题
- Q：有时候，我们需要获取字符串中某字符第n次出现的位置。例如，在单元格A1中的字符串为“xy-01-02”，如何知道字符“–”第2次出现的位
- 很多更新了win10系统的小伙伴想把我的电脑创建到桌面上，一般都是英文或者中文的，中文的很好设置，那么英文版的该如何设置呢?今天小编整理了相
- Win10系统如何打开SmartScreen筛选器？SmartScreen筛选器是什么，这是IE中内置的检测仿冒网站的组件，能够在用户下载软
- 1、单击左上角wordoffice按钮2、选择单击右下角word选项3、单击高级4、下拉找到显示，在“在任务栏中显示所有窗口”前打勾选中，最
- Win10专业版系统用户升级重装系统之后，发现电脑没有声音怎么回事呢？这个问题可能是Win10专业版系统声卡驱动出现了故障，那应该怎么办呢？
- Excel中经常需要使用到添加阴影的技巧，阴影具体该如何进行添加呢?接下来是小编为大家带来的excel表格添加阴影的教程，供大家参考。exc
- 最近一款游戏赛博朋克2077很是火爆，很多玩家都被深深的吸引了但是对于它的价格还是一无所知，今天就给你们带来了赛博朋克2077价格详情分享，
