您当前的位置: 首页 > 办公软件教程 > Excel教程 浏览
Excel统计出现次数、个数的VBA代码
发布时间:2015-10-25    点击率:次    来源:www.sytcke.com    作者:电脑技术学习网

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

发表留言
发表留言请先登录!
免责声明:本站发布的信息和评论纯属网民个人行为,并不代表本站立场,如发现有违法信息或侵权行为,请直接与本站管理员联系,我们将在收到您的信息后24小时内作出处理!