Ребята подскажите мне нужно суммировать столбец в котором вперемежку числовые значения и числовые значения с текстом. Много уже времени провел здесь на форуме и так и не нашел ответа. Для возможного удобства отправлю ссылку на таблицу https://docs.google.com/spreads....t#gid=0
Ребята подскажите мне нужно суммировать столбец в котором вперемежку числовые значения и числовые значения с текстом. Много уже времени провел здесь на форуме и так и не нашел ответа. Для возможного удобства отправлю ссылку на таблицу https://docs.google.com/spreads....t#gid=0slavazaytsev23051987
Если речь действительно о таблице Google, то в ячейке A19 можно еще вот так повыпендриваться: [vba]
Код
=REDUCE(;A1:A18;LAMBDA(s;x;s+SUBSTITUTE(x;"+";)))
[/vba] Или так (пожалуй, поизящнее): [vba]
Код
=SUM(SPLIT(JOIN("+";A1:A18);"+"))
[/vba]
[p.s.]А если бы речь шла всё-таки об Excel, [/p.s.]то можно было бы написать очень простую пользовательскую функцию (UDF), основанную на VBA-функции Val, которая выделяет из строки начальное (слева) число до первого не интерпретируемого как число символа (в данном случае это "+" в конце строки ПОСЛЕ числа справа): [vba]
Код
Function СУММПЛЮС(rng) Dim c For Each c In rng СУММПЛЮС = СУММПЛЮС + Val(c) Next End Function
[/vba] Вызов на рабочем листе (в ячейке A19): [vba]
Код
=СУММПЛЮС(A1:A18)
[/vba] Работает и для нескольких несмежных диапазанов, правда, их нужно обернуть в дополнительные внутренние скобки: [vba]
Код
=СУММПЛЮС( (A1:A4;A15:A18) )
[/vba]
Если речь действительно о таблице Google, то в ячейке A19 можно еще вот так повыпендриваться: [vba]
Код
=REDUCE(;A1:A18;LAMBDA(s;x;s+SUBSTITUTE(x;"+";)))
[/vba] Или так (пожалуй, поизящнее): [vba]
Код
=SUM(SPLIT(JOIN("+";A1:A18);"+"))
[/vba]
[p.s.]А если бы речь шла всё-таки об Excel, [/p.s.]то можно было бы написать очень простую пользовательскую функцию (UDF), основанную на VBA-функции Val, которая выделяет из строки начальное (слева) число до первого не интерпретируемого как число символа (в данном случае это "+" в конце строки ПОСЛЕ числа справа): [vba]
Код
Function СУММПЛЮС(rng) Dim c For Each c In rng СУММПЛЮС = СУММПЛЮС + Val(c) Next End Function
[/vba] Вызов на рабочем листе (в ячейке A19): [vba]
Код
=СУММПЛЮС(A1:A18)
[/vba] Работает и для нескольких несмежных диапазанов, правда, их нужно обернуть в дополнительные внутренние скобки: [vba]