作业帮VBA统计单元格里面逗号的个数
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/05/17 22:29:39
VBA统计单元格里面逗号的个数
先看看格式,假定某个单元格里数据是7(25),9(14),01(3),45(2),236(1),8(0),
小括号和逗号全是英文输入法下的,小括号外的的数字是具体数字,小括号内的数字是其次数,相同的次数按升序排列放在一起,不同的次数用逗号隔开,上述数据表示7是25次的,9是14次的,0和1都是3次的,4和5都是2次的,2,3,6都是1次的,8是0次的,可以看到由6个名次,有6个逗号,所有单元格都是这种形式的,逗号个数1-10个,现在就是统计任意单元格中逗号的个数.
要求：
本人不会VBA,只会录制宏,以前请网友写过一些代码,这次请写成自定义函数的形式,这样我可以对具体的单元格进行调用,自定义函数的形式是：
Function DouHao(r,c)'r表示行号,c表示列号
具体代码
DouHao=s‘s即逗号的个数
End Function
先看看格式,假定某个单元格里数据是7(25),9(14),01(3),45(2),236(1),8(0),
小括号和逗号全是英文输入法下的,小括号外的的数字是具体数字,小括号内的数字是其次数,相同的次数按升序排列放在一起,不同的次数用逗号隔开,上述数据表示7是25次的,9是14次的,0和1都是3次的,4和5都是2次的,2,3,6都是1次的,8是0次的,可以看到由6个名次,有6个逗号,所有单元格都是这种形式的,逗号个数1-10个,现在就是统计任意单元格中逗号的个数.
要求：
本人不会VBA,只会录制宏,以前请网友写过一些代码,这次请写成自定义函数的形式,这样我可以对具体的单元格进行调用,自定义函数的形式是：
Function DouHao(r,c)'r表示行号,c表示列号
具体代码
DouHao=s‘s即逗号的个数
End Function
Function DouHao(r,c) 'r表示行号,c表示列号
arr = Split(Cells(r,c).Value,",")
DouHao = UBound(arr)
End Function
arr = Split(Cells(r,c).Value,",")
DouHao = UBound(arr)
End Function