下面是个Excel统计出现次数、个数的VBA代码教程,撑握了其技术要点,学起来就简单多了。赶紧跟着图老师小编一起来看看吧!
【 tulaoshi.com - Excel教程 】
使用如下的VBA代码,您就可以在Excel中,统计某个字符或某个数字,甚至是某个字符串,在某个数据区域范围内,所出现的次数,即出现几次,或称为有几个。
代码如下,是VBA宏代码。
Set myb = CreateObject("scripting.dictionary"): myb("数字") = "次数"
Set rng = Application.InputBox("选择要统计的区域:", Type:=8)
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com)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
(本文来源于图老师网站,更多请访问http://www.tulaoshi.com).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
来源:http://www.tulaoshi.com/n/20160219/1614112.html
看过《Excel统计出现次数、个数的VBA代码》的人还看了以下文章 更多>>