如何计算每个数值各有多少个

meyhu

请教各位高手，
如何用函数计算以下表，每个数量各有多少个？ 谢
比如： 10 有2个

14	33	30	22	13	12	3
13	24	22	21	14	07	6
02	29	28	19	15	12	8
03	25	22	18	13	07	3
14	32	21	16	14	13	10
04	32	30	28	17	13	10
12	30	27	17	11	08	1

安然祥和

用数据透视、多重合并计算

swyrlbq

=countif(区域，10）

清风幽闲

Sub g()
Dim rng As Range
Dim d As New Dictionary
For Each rng In Range("a1:g7")
    d(rng.Value) = d(rng.Value) + 1
Next rng
For n = 1 To d.Count
    Cells(n, "h").Value = d.Keys(n - 1)
    Cells(n, "i").Value = d.Items(n - 1)
Next n
End Sub
前期绑定字典

heike2004

3楼最省事。。。。