подскажите, какую формулу нужно использовать, чтобы суммировать ячейки с числами и буквенным знаком. Похожую тему я не нашла, но если она существует буду благодарна за ссылку. Пример в приложении.
заранее спасибо Катя
Здравствуйте,
подскажите, какую формулу нужно использовать, чтобы суммировать ячейки с числами и буквенным знаком. Похожую тему я не нашла, но если она существует буду благодарна за ссылку. Пример в приложении.
Ctrl+h уберите сочетание" р.", затем также между цифрами пробел и через специальную вставку умножьте на "1" и сложите. В этом случае можно обойтись без формул.
Ctrl+h уберите сочетание" р.", затем также между цифрами пробел и через специальную вставку умножьте на "1" и сложите. В этом случае можно обойтись без формул.
jakim, в примере всего пара строк, но в реальном документе их слишком много чтобы убрать буквенное сочетание вручную. Файл продаж, который я скачиваю из моей рабочей продажи сохраняется в формате .csv После конвертации в эксель суммы остаются в формате, который я привела в примере. Символ "р." обязательный, мне его не убрать, могу только заменить на другой.
Nic70v, скорее всего предложенная вами формула правильная, но пока все-равно не считает. Может это из-за пробела? Пример в приложении.
С этим можно что-то сделать?
jakim, в примере всего пара строк, но в реальном документе их слишком много чтобы убрать буквенное сочетание вручную. Файл продаж, который я скачиваю из моей рабочей продажи сохраняется в формате .csv После конвертации в эксель суммы остаются в формате, который я привела в примере. Символ "р." обязательный, мне его не убрать, могу только заменить на другой.
Nic70v, скорее всего предложенная вами формула правильная, но пока все-равно не считает. Может это из-за пробела? Пример в приложении.
Function yyy#(r As Range) Dim c As Range For Each c In r With CreateObject("VBScript.RegExp"): .Pattern = "(.+) р" If .test(c) Then yyy = yyy + .Execute(c)(0).Submatches(0) End With Next End Function
[/vba]
KatiaW, попробуйте функцию yyy в E1
[vba]
Код
Function yyy#(r As Range) Dim c As Range For Each c In r With CreateObject("VBScript.RegExp"): .Pattern = "(.+) р" If .test(c) Then yyy = yyy + .Execute(c)(0).Submatches(0) End With Next End Function
Символ "р." обязательный, мне его не убрать, могу только заменить на другой
А Вы в поле Заменить ничего не пишите, получится, что символ р. меняется на пусто, т.е. удаляется. То же самое можно сделать и с пробелом: Найти пробел -- Заменить на оставляете пустым.
Ну а если формулой, то добавьте ещё одну ПОДСТАВИТЬ() для удаления пробела
Символ "р." обязательный, мне его не убрать, могу только заменить на другой
А Вы в поле Заменить ничего не пишите, получится, что символ р. меняется на пусто, т.е. удаляется. То же самое можно сделать и с пробелом: Найти пробел -- Заменить на оставляете пустым.
Ну а если формулой, то добавьте ещё одну ПОДСТАВИТЬ() для удаления пробела
странно, у меня работает, но при открытии Вашего файла, до нажатия "разрешить редактирование" выдает #ЗНАЧ! подозреваю, что разные версии ведут себя поразному. воспользуйтесь формулой Pelena из сооб. №7 - так уж точно должно "всегда" сработать [p.s.]у меня даже такие 1 000(много пробелов)р. обрабатывает а Вы не пробовали денежный формат? тогда просто СУММ достаточно[/p.s.]
странно, у меня работает, но при открытии Вашего файла, до нажатия "разрешить редактирование" выдает #ЗНАЧ! подозреваю, что разные версии ведут себя поразному. воспользуйтесь формулой Pelena из сооб. №7 - так уж точно должно "всегда" сработать [p.s.]у меня даже такие 1 000(много пробелов)р. обрабатывает а Вы не пробовали денежный формат? тогда просто СУММ достаточно[/p.s.]Nic70y
ЮMoney 41001841029809
Сообщение отредактировал Nic70y - Суббота, 20.02.2016, 08:05