не считает цифры подскажите

[сергей4]

не считает цифры в строке,подскажите как правильно
есть строки
12 15 17 18 19
20 22 36 34 44
Sub TestKolDigit()
Dim c As Range, s As String
Dim Cnt As Integer, i As Integer
Dim intI, intJ, intK As Integer
s = ""

For intI = 1 To 20

Worksheets("Ëèñò1").Cells(intI, 6).ClearContents 'îáíóëÿåì ÿ÷åéêó â 6-îì ñòîëáöå i-îé ñòðîêè

For intJ = 1 To 5

For Each c In Selection
If TypeName(c.Value) = "Double" Then
s = s + Trim(CStr(c.Value))
End If
Next

Cnt = 0
For i = 0 To 9
If InStr(s, CStr(i)) > 0 Then Cnt = Cnt + 1
Cells(intI, 6).Value = Cnt
Next i
Next intJ
Next intI
End Sub


как посчитать цифры в каждой строкев числах?

[IgorGO]

я так посчитал - отмечаете нужный диапазон, запускаете эту процедуру.

Sub DigitCount()
  Dim cnt As Integer, s As String
  cnt = 0
  For Each c In Selection
    If VarType(c) <> vbString Then s = Str(c) Else s = c
    For i = 1 To Len(s)
      If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then cnt = cnt + 1
    Next
  Next
  Debug.Print cnt
End Sub

[сергей4]

Sub DigitCount()
Dim cnt As Integer, s As String
cnt = 0
For Each c In Selection
If VarType(c) <> vbString Then s = Str(c) Else s = c
For i = 1 To Len(s)
If Mid(s, i, 1) >= "0" And Mid(s, i, 1) <= "9" Then cnt = cnt + 1
Next
Next
Debug.Print cnt
End Sub

она считает цифры во всем выделенном диапазоне общее кол-во ,а как
посчитать цифры в каждой строке
допустим
1 22 35 44 45 всего встроке 5 цифр (1,2,3,5,4,)
и перейти к следующей
спасибо