请高手帮忙在EXCEL中用VBA计算数字的个数。 EXCEL中怎样用VBA计算单元格中数字的和值?

做好了，继续加分啊

'从B列第一行开始逐个统计，结果显示在C列
Sub tj()
For r = 1 To Range("B65536").End(xlUp).Row
Dim a
a = Cells(r, 2)
Dim n
n = Len(a)

Dim x As Integer
For i = 1 To n
x = x + Mid(a, i, 1)
Next
Cells(r, 3) = x
x = 0
Next
End Sub

样本文件见附件（两种方案，一种为自定义函数，一种是宏代码）

自定义函数用法如下：

代码如下：

Function 数字(ByVal rg As Range) As Integer
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For Each c In rg
    If Len(c) > 0 And VBA.IsNumeric(c) Then
        d(c.Value) = ""
    End If
Next
数字 = d.Count
End Function

Sub 统计不重复个数()
Dim d As Object
Set d = CreateObject("scripting.dictionary")
For i = 1 To [b65536].End(3).Row
    For j = 2 To 7

      d(Cells(i, j).Value) = ""

    Next j
      Cells(i, 8) = d.Count
      d.RemoveAll
    
Next i

End Sub