Excel: вопрос - ответ : Закупщик

=ДЛСТР(A2&",")-ДЛСТР(ПОДСТАВИТЬ(A2&",";",";""))

Function CommaCount(rng As Range) As Byte
    CommaCount = UBound(Split(rng, ",")) + 1
End Function

Public Function FiguresCounter(Line As String)
    Dim i As Integer
    Dim Figure As String
    Dim Symbol As String
    Dim Counter As Integer
    Counter = 0
    Line = Line + ","
    For i = 1 To Len(Line)
        Symbol = Mid(Line, i, 1)
        If IsNumeric(Symbol) Then
            Figure = Figure & Symbol
        Else
            If Len(Figure) > 0 Then
                Figure = ""
                Counter = Counter + 1
            End If
        End If
    Next i
    FiguresCounter = Counter
End Function

Public Function FiguresCounter(Line As String)
    Dim i As Integer
    Dim Figure As String
    Dim Symbol As String
    For i = 1 To Len(Line)
        Symbol = Mid(Line, i, 1)
        If IsNumeric(Symbol) Then
            Figure = Figure & Symbol
        End If
    Next i
    FiguresCounter = Len(Figure)
End Function