Подсчет количества чисел в диапазоне ячеек

Вставьте этот код в модуль

Function GetNumbCount(Rng As Range) As Long
    Dim aCell As Range
    Dim MYAr As Variant
    Dim n As Long, i As Long

    For Each aCell In Rng
        If InStr(1, aCell.Value, " ") Then
            MYAr = Split(aCell.Value, " ")
            For i = LBound(MYAr) To UBound(MYAr)
                If IsNumeric(Trim(MYAr(i))) Then n = n + 1
            Next i
        Else
            If IsNumeric(Trim(aCell.Value)) Then n = n + 1
        End If
    Next

    GetNumbCount = n
End Function

А затем используйте его на листе

Синтаксис

GetNumbCount (диапазон)

Снимок экрана

Не могу понять, что необходимо и почему, но чтобы суммировать результаты данной формулы в диапазоне A1:B2, вы можете использовать такую ​​формулу массива:

{=SUM(IF(A1:B2="",0,LEN(A1:B2)-LEN(SUBSTITUTE(A1:B2," ",""))+1))}

Используйте Ctrl + Shift + Enter, чтобы ввести формулу как массив.