Вопрос по программированию

[евгенийqwer]

(Здравствуйте.
Есть такая задача в Экселе:

Необходимо чтобы было видно содержимое ячейки (числа через запятую или через пробел), но при суммировании данной ячейки она должна равняться количеству чисел перечисленных в ней.

Пример: (1,5,158,45) + (13,65,40) =(7)

[alex777555]

Function Считать_цифры(Выражение)
    Dim s, u
    s = Replace(Выражение, "(", "")
    s = Replace(s, ")", "")
    s = Replace(s, "+", ",")
    s = Replace(s, "-", ",")
    s = Replace(s, " ", "")
    u = Split(s, ",")
    Считать_цифры = UBound(u) + 1
End Function

[svsh2016]

вариант функции в C1

Function aaa&(t$)
With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\d+"
 aaa = .Execute(t).Count
End With
End Function

[евгенийqwer]

Огромное спасибо за столь профессиональную помощь!

[Aleksandr H.]

евгенийqwer,
какое практическое использование в этом?