подсчет цифр

[Михаил1]

как в vba подсчитать цифры в числовой строке
пример: 10 14 16 22 28 состоит из 6ти цифр (1,0,4,6,2,8)
и в зависимости от кол-ва цифр удалить или оставить
6цифр - оставить 7 удалить

[Serge_Bliznykov]

что такое "числовая строка" ? Это строка таблицы Excel ?
сколько ячеек в Вашей строке может быть (ну сколько собираетесь анализировать)?
"удалить или оставить" - удалить или оставить что ?!

если речь идёт о разных ячейках, в которых записаны числа, то можно использовать примерно такой код:

Sub TestKolDigit()
Dim c As Range, s As String
Dim Cnt As Integer, i As Integer
s = ""
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
Next i
MsgBox "Разных цифр в выделенных числовых ячейках : " & Str(Cnt)
End Sub