Excel统计出现次数、个数的VBA代码

2016-02-19 17:05 11 1 收藏

下面是个Excel统计出现次数、个数的VBA代码教程,撑握了其技术要点,学起来就简单多了。赶紧跟着图老师小编一起来看看吧!

【 tulaoshi.com - Excel教程 】

使用如下的VBA代码,您就可以在Excel中,统计某个字符或某个数字,甚至是某个字符串,在某个数据区域范围内,所出现的次数,即出现几次,或称为有几个。

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

代码如下,是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

(本文来源于图老师网站,更多请访问https://www.tulaoshi.com)

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

来源:https://www.tulaoshi.com/n/20160219/1614112.html

延伸阅读
标签: excel
excel中如何根据多条件来统计个数函数?   在红框区域的e2单元格输入函数,将返回这个人在对应日期出现的次数 两个等式相乘代表两个条件同时满足,函数将在由真和假组成的数组中统计真的个数,也就是同事满足条件的个数 右键点击单元格,在弹出的菜单中点击复制然后做点选中大框区域,选择性粘贴,公式 如果用...
统计个数,在日常工作中会经常用到,count,countif等常用函数只能解决一般统计,稍微复杂一些的就无能为力了,下面有个例子: 这就需要用到SUMPRODUCT函数,下面简要介绍下 说明 · 数组参数必须具有相同的维数,否则,函数 SUMPRODUCT 将返回错误值 #VALUE!。· 函数 SUMPRODUCT 将非数值型的数组元素作为 0 处理。 含义 ...
标签: 电脑入门
①滚动行 Worksheets("Sheet1").Activate ActiveWindow.ScrollRow = 14 代码解释:上述代码的功能是,先激活Sheet1,将其作为活动工作表,然后,自动拖动垂直滚动条,将第14行拖到第一行的位置,即第一行至第13行将被拖到窗口中的上面,并看不到,而第14行则显示在可视窗口的最上面(在可视范围的第一行位置)。 与之相关的知识: ...
标签: 电脑入门
以下的宏代码,其功能是,找到AB两列相同值,并存放到C列。 Sub MySubSearch() Dim i As Integer Dim c As Range For i = 2 To Sheet1.[B65536].End(xlUp).Row For Each c In Sheet1.Range("A2:A" & Sheet1.[A65536].End(xlUp).Row) If Cells(i, 2).Value = c Then Cells(i, 2).Font.ColorIndex = 3 Next c If Cells(i, ...
标签: 电脑入门
MyColumn=Target.Column获取活动单元格所在的列号 MyRow=Target.Row获取活动单元格所在的行号 工作表名.UsedRange.Rows.Count指定工作表已使用的行的总数 工作表名.UsedRange.Columns.Count指定工作表已使用的列的总数 工作表名.Cells(行号, 列号).Value获取指定工作表某个单元格的值 Worksheets(m).Cells(i, j).Value使用通用的序号方法...

经验教程

431

收藏

65
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部