как суммировать только числа из ячеек где есть текст?

[Alex-76]

Спасибо, но у меня не работает. Скорее всего я просто не знаю как это запихнуть в ексел, читал,разбирался всю ночь но увы. Нужно учить матчасть,но бонально нет времени. Нельзя ли это записать в виде формулы? Чтоб бонально ввести с клавиатуры в нужную ячейку и всё.

[Казанский]

Сообщение от Alex-76

разбирался всю ночь но увы

Если встроенной справки не хватило, почитайте
https://www.planetaexcel.ru/techniques/3/59/

[svsh2016]

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

 Function bbb&(r As Range)
  Dim i&, z, j&, t$
  With CreateObject("VBScript.RegExp"):   .Global = True: .Pattern = "\d+": z = r.Value
    For j = 1 To UBound(z): t = z(j, 1)
      For i = 0 To .Execute(t).Count - 1: bbb = bbb + .Execute(t)(i): Next
    Next
  End With
End Function

Function bbb1#(r As Range)
  Dim i&, z, j&, t$, O As Object
  With CreateObject("VBScript.RegExp"):   .Global = True: .Pattern = "\d+,?(?:\d+)?": z = r.Value
    For j = 1 To UBound(z)
       t = z(j, 1): Set O = .Execute(t)
      For i = 0 To O.Count - 1
        bbb1 = bbb1 + O(i)
     Next i, j
  End With
End Function

[svsh2016]

добавил на листе Лист2 в F2 вариант для двухмерного случая

Function bbb2#(r As Range)
  Dim i&, z, k&, j&, t$, O As Object
  With CreateObject("VBScript.RegExp"):   .Global = True: .Pattern = "\d+,?(?:\d+)?": z = r.Value
  For k = 1 To UBound(z, 2)
    For j = 1 To UBound(z)
       t = z(j, k): Set O = .Execute(t)
      For i = 0 To O.Count - 1
        bbb2 = bbb2 + O(i)
     Next i, j, k
  End With
End Function

[Alex-76]

Здравствуйте.
Спасибо, ваш вариант очень хорошо работает но на в вашей же только книге. Если функцию перенести в мою, то видимо у меня другая версия exel2013 при устранении совместимости перестает работать, пишет неправильное ИМЯ.

[svsh2016]

Alex-76,приведите пример Вашего файла,где у Вас не получается,результат не может зависеть от версии Excel.

[Alex-76]

Сообщение от svsh2016

Alex-76,приведите пример Вашего файла,где у Вас не получается,результат не может зависеть от версии Excel.

Нужно чтоб в графе "количество часов" была сумма чисел.

[Aleksandr H.]

Function bbb3&(r As Range)
  Dim i&, z, j&, t$
  Dim cel
  With CreateObject("VBScript.RegExp")
    .Global = True:
    .Pattern = "\d+"
    For Each cel In r
        z = cel.Value
        For i = 0 To .Execute(z).Count - 1: bbb = bbb + .Execute(z)(i): Next
    Next
  End With
End Function