使用下面的VBA代码，你可以计算一个字符或一个数字，或一个字符串，在某个数据区域出现的次数，即多少次，或多少。
代码如下，是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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
