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

Admin | 2011-6-19 9:19:23 | 被阅次数 | 16323

温馨提示!

如果未能解决您的问题，请点击搜索；登陆可复制文章，点击登陆

　　使用如下的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