作业帮 > 综合 > 作业

excel表格怎么计算有多少个数字1数字2,如图,怎么知道这一列有多少个2多少个7多少个1

来源:学生作业帮 编辑:神马作文网作业帮 分类:综合作业 时间:2024/11/19 20:55:57
excel表格怎么计算有多少个数字1数字2,如图,怎么知道这一列有多少个2多少个7多少个1
excel表格怎么计算有多少个数字1数字2,如图,怎么知道这一列有多少个2多少个7多少个1
在宏中添加以下自定义函数,然后在要显示统计结果的单元格里输入
=CalcNumbers(被统计的范围)
就可以了.

Public Function CalcNumbers(calcRange As Range)
Dim tmpCell As Range Dim newString As String
newString = ""
For Each tmpCell In calcRange
newString = newString & tmpCell.Value
Next

Dim resultString As String
resultString = ""
For i = 0 To 9
counts = Len(newString) - Len(VBA.Replace(newString, i, ""))
resultString = resultString & "[" & i & "]有[" & counts & "]个" & vbCrLf
Next
CalcNumbers = resultString
End Function