如何在同一列找出同一个数字出现的次数？

lol2011 · 发表于 2011-3-24 17:50

在同一列中，每个单元格可以填1-12中的任意不重复的数字，个数不等，数字之间用小圆点符号“.”分隔（也可以换做是逗号或者空格），如A1填1.2.3.4、A2填3.8.9.4、A3填3.5.8.9.3.2.12.11.10，等等。现在希望统计这一列中，1-12各个数字出现的次数。要注意两位数与一位数的区分，如数字“12“只能统计为”12“的次数，不能统计为”1“的次数和”2“的次数。请高手帮忙，谢谢！

piny · 发表于 2011-3-24 18:06

請把想要的結果格式告知一下

lol2011 · 发表于 2011-3-24 18:17

每个数字的统计结果用一个单元格存放，其他没有特别要求。

changxuegu · 发表于 2011-3-24 18:25

假如C2:C13的值为1到12
次数=SUM(N(ISNUMBER(FIND(C2&".",REPLACE($A$2:$A$175,100,0,".")))))

[ 本帖最后由 changxuegu 于 2011-3-24 18:30 编辑 ]

piny · 发表于 2011-3-24 18:29

如4樓附件及呈現模式應可不用B列為輔助

=COUNT(FIND("."&C2&".","."&A$2:A$175&"."))

复制代码

數組

請注意前後皆需加"."

[ 本帖最后由 piny 于 2011-3-24 18:30 编辑 ]

liu985 · 发表于 2011-3-24 18:31

示例.rar (8.02 KB, 下载次数: 15)

无辣味水煮鱼 · 发表于 2011-3-24 18:40

不知道是不是这个意思。

无辣味水煮鱼 · 发表于 2011-3-24 21:45

Sub test()
Dim d As Object, arr, s, m, i%, j%
Set d = CreateObject("Scripting.dictionary")
arr = Range("a2:a" & Range("a65536").End(3).Row)
For i = 1 To UBound(arr)
      m = Split(arr(i, 1), ".")
      For j = 0 To UBound(m)
      If m(j) <> "" Then
         d(m(j)) = d(m(j)) + 1
      End If
      Next j
Next i
[c2].Resize(d.Count, 2) = Application.Transpose(Array(d.keys, d.items))
End Sub

lol2011 · 发表于 2011-3-28 17:09

非常感谢各位高手支招。piny、无辣味水煮鱼以及changxuegu的方法均可行，就是changgxuegu的公式统计1、2两个数字的结果与其他两位有所不一致。已采用piny的统计公式。
liu985的办法也可以，不过需要点击才能出现数据，这个有点意思，但如果是在Q4输入数字的话貌似结果有点乱。

总之，非常感谢各位！

[ 本帖最后由 lol2011 于 2011-3-28 17:18 编辑 ]

		自动登录	找回密码
密码			免费注册

[求助] 如何在同一列找出同一个数字出现的次数？