Question

VBA统计000-999的次数

Excel的某一行有多个三位数(每个三位数占一个单元格),现在编写一个自定义函数,统计每个三位数出现的次数,未出现的三位数用0次代替,比如237有3次,732有4次,702有4次,890有1次,按次数从高到低,格式是前面是数字,小括号内是次数,用逗号隔开,上面的结果就是732(4),702(4),237(3),890(1),000(0),001(0),(剩余还有995个数就不列举了,数字按升序排列),本人不会VBA,参照别人以前写的自定义函数,请你也做成自定义函数形式,如Function CiShu(r,c)
万分感谢.

Answer 1

代码文本已经私信发给你了,好用的话就采纳这个号吧.

百度不知道怎么搞的,写个VBA都要审核.

追问

我使用cells(3,1)=CiShu(A1:A10) 结果在A1与A10之间的冒号处提示出错,提示的错误是Expected list separator or
又在C1单元格输入=CiShu(A2:B10),不知道怎么运行,这个函数到低怎么调用?

追答

首先这些代码要放在模块里
然后 回到工作表，假设你的所有三位数在A2:B10
在c1输入=CiShu(A2:B10)就会出来结果了
上边图片你可以点开看大图。

Answer 2

连0个的都要显示么?那岂不是一个单元格至少需要输出7000个字符.

追问

不显示0次也可以

追答

其实显示0也可以,不过数据太长,单元格虽然可以显示3w多个字符,但是恐怕要好几个屏幕

Function CiShu(r As Range)

Dim n(999)

For i = 0 To 999

n(i) = Application.WorksheetFunction.CountIf(r, i)

Next i

For m = 999 To 0 Step -1

For i = 0 To 999

If n(i) = m Then CiShu = CiShu & Format(i, "000") & "(" & n(i) & "),"

Next i

Next m

CiShu = Left(CiShu, Len(CiShu) - 1)

End Function

 

记得自定义函数的代码要放在模块里.

用法是:

=cishu(范围)

如图