用VBA代码是很容易实现你的要求的,用函数就很麻烦吧!假如你这些数据存在于A1:G1000,那么可以用下面的代码实现,H1~H10分别是0~9的出现次数的统计值:Sub DAXX()Dim rw As RangeDim l As ByteDim i As ByteDim tj(0 To 9) As IntegerFor Each rw In Range("A1:G1000")l = Len(rw) If l > 0 Then For i = 1 To l
tj(Val(Mid(rw, i, 1))) = tj(Val(Mid(rw, i, 1))) + 1
NextEnd If...