[已解决]统计一列中每一项出现的次数

billyzhang0609

怎样做出类似数据透视里面的记数项来统计每一种单元格出现的次数的效果?

最佳答案

月排行榜 / 总排行榜

grf1973

2015-10-8 11:24

最简单最典型的字典用法。

跳转到最佳答案楼层

billyzhang0609

附件和附图在此处：

Hsiao

=countif(a:a,g2)

billyzhang0609

Hsiao 发表于 2015-10-2 23:39
=countif(a:a,g2)

使用完这个公式有一个问题：

例如:                     使用完公式：                其实我想要的效果：
苹果                      苹果 3                          苹果3
苹果                      苹果 3                          。
苹果                      苹果 3                          。
。                         。                                。
。                         。                                。
。                         。                                。

我希望重复项也能归类在一起，类似于 “数据透视表” 对 “一列进行计数统计”

baksy

billyzhang0609 发表于 2015-10-2 22:24
附件和附图在此处：

先把编号中的A替换为999，最后再把结果中的999替换为A。

billyzhang0609

baksy 发表于 2015-10-3 08:30
先把编号中的A替换为999，最后再把结果中的999替换为A。

假如模型里面只有第A列，那么首先就是将第A列重复项去除来得到G列，

之后才可以用公式 {=MIN(IF(A$2:A$78718>N(G1),A$2:A$78718))}

如何：“将第A列重复项去除来得到G列”？

目前我的做法，很笨拙：我可以使用 “数据”---“高级”---“选择不重复的记录”，然后再用 =countif(g:g,g2)下拉


有没有更加简便的办法和vba代码？

grf1973

1. Sub tt()
   
2.     arr = [a1].CurrentRegion
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     For i = 2 To UBound(arr)   '计数
   
5.         If Len(arr(i, 1)) Then d(arr(i, 1)) = d(arr(i, 1)) + 1
   
6.     Next
   
7.     [J2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))      '结果显示
   
8.     [J2].Resize(d.Count, 2).Sort key1:=[J2]       '排序
   
9. End Sub

复制代码

grf1973

最简单最典型的字典用法。