прошу помощи с функцией

[eeevg1]

помогите плз, если получится, новичку.

у меня есть таблица
2019-04-06_16-31-03.png

мне надо как-то сделать, чтобы в ячейках, в колонке "сумма К",
суммировались все числовые части ячеек, в которых присутствует буква К.

с буквой Н - соответственно.

сумма # - сумма ячеек без текстовых знаков.

И так по всем строкам.
(я заполнил, для примера, результаты на картинке)

пытаюсь написать 2-й день функцию, не могу осилить.

[IgorGO]

Function SumCh#(rg As Range.ch)
  Dim c As Range, v
  For Each c In rg
    v = Val(c):  If v & ch = c Then SumCh = SumCh + v
  Next
End Function

[Казанский]

Формула массива

=СУММ(ЕСЛИ(ПРАВБ(J16:O16)="н";--(ЛЕВБ(J16:O16;ДЛСТР(J16:O16)-1))))

[eeevg1]

Сообщение от Казанский

Формула массива

=СУММ(ЕСЛИ(ПРАВБ(J16:O16)="н";--(ЛЕВБ(J16:O16;ДЛСТР(J16:O16)-1))))

спасибо!

[eeevg1]

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

Function SumCh#(rg As Range.ch)
  Dim c As Range, v
  For Each c In rg
    v = Val(c):  If v & ch = c Then SumCh = SumCh + v
  Next
End Function

- а можно попросить вас "разжевать" хоть немного этот код?

[IgorGO]

текст функции копируете в программый модуль
потом на листе в любую ячейку =SunCh(СсылкаНаМассивСДанными; БкуваСуммирования), Enter (БукваСуммирования, напрмер "Н" или любая другая)

а вообще, если прикладывать файл пример, то ответ приходит в файле и не нужно просить ничего разжевывать. формула Казанского, правильно внесенныя на лист, тоже должна работать

[Казанский]

Function SumCh#(rg As Range, ch)

[eeevg1]

формулу Казанского реализовал уже. Спасибо! А как звучит-то - "формула Казанского"... ))

С функцией SumCh от IgorGO хочу разобраться для понимания. То-есть моя просьба "разжевать" относится к самому коду.
Функцию SumCh установил. но она выдает "#ЗНАЧ!", если подставить любую букву и "0", если любую цифру.
вопрос - а что за знак # после SumCh?