Никанор, в ответ на #20,вариант, как в файл-примере, для дробной части(#),например, в соседней ячейке K58,сохраняйте файл,как Excel 97-2003 или файл с использованием макросов,использовать можно в любой ячейке ,формулы в Вашей теме не мешают функциям ( UDF),пишете в ячейке,например =uuu1(),в скобках диапазон,-преимущество функций-простота,хранятся в стандартном модуле VBA,- там,где макросы.
[vba]
Код
Function uuu1#(r As Range) Dim z, t$, i&: z = r.Value With CreateObject("VBScript.RegExp"): .Pattern = "\d+(?:,\d+)?" For i = 1 To UBound(z): t = z(i, 1) If .test(t) Then uuu1 = uuu1 + .Execute(t)(0) Next End With End Function
[/vba]
Никанор, в ответ на #20,вариант, как в файл-примере, для дробной части(#),например, в соседней ячейке K58,сохраняйте файл,как Excel 97-2003 или файл с использованием макросов,использовать можно в любой ячейке ,формулы в Вашей теме не мешают функциям ( UDF),пишете в ячейке,например =uuu1(),в скобках диапазон,-преимущество функций-простота,хранятся в стандартном модуле VBA,- там,где макросы.
[vba]
Код
Function uuu1#(r As Range) Dim z, t$, i&: z = r.Value With CreateObject("VBScript.RegExp"): .Pattern = "\d+(?:,\d+)?" For i = 1 To UBound(z): t = z(i, 1) If .test(t) Then uuu1 = uuu1 + .Execute(t)(0) Next End With End Function
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
