Удаление лишних цифр после знака

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Удаление лишних цифр после знака (Формулы/Formulas)

Horror

Дата: Вторник, 13.09.2016, 18:49 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 11

Репутация: 0 ±

Замечаний: 0% ±

Excel 2007

есть некие числа 12241-0001, 45678-0234, 34875-0033, подскажите или намекните формулу чтобы после знака - удаляла 0, если они друг за другом

К сообщению приложен файл: _Microsoft_Exce.xlsx (8.8 Kb)

Ответить

TimSha

Дата: Вторник, 13.09.2016, 19:01 | Сообщение № 2

Группа: Проверенные

Ранг: Ветеран

Сообщений: 627

Репутация: 94 ±

Замечаний: 0% ±

Excel 2013 Pro +

Вариант: текст по столбам, разделитель "-", затем сцепить.

Код

=D9&"-"&E9

К сообщению приложен файл: 5683934.xlsx (9.5 Kb)

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)

Сообщение отредактировал TimSha - Вторник, 13.09.2016, 19:26

Ответить

AlexM

Дата: Вторник, 13.09.2016, 19:20 | Сообщение № 3

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4517

Репутация: 1130 ±

Замечаний: 0% ±

Excel 2003

Код

=ЛЕВБ(F9;ПОИСК("?-";F9))&-ПСТР(F9;ПОИСК("-";F9)+1;9)

Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.

Ответить

krosav4ig

Дата: Вторник, 13.09.2016, 19:29 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2348

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

а если количество символов перед и полсле - фиксировано, то можно просто

Код

=ЛЕВБ(F9;5)&-ПРАВБ(F9;4)

можно немного поизвращаться

Код

=ПОДСТАВИТЬ(ПРОСМОТР(9^9;--(ПОДСТАВИТЬ(F9;"-"&ПОВТОР(0;СТРОКА($1:$99));",")));",";"-")

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 13.09.2016, 19:40

Ответить

sv2014

Дата: Среда, 14.09.2016, 10:19 | Сообщение № 5

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

Horror, добрый день,вариант функции uuu в столбце H или yyyв столбце I

[vba]

Код

Function yyy$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "(\d+\-)(0+)(\d+)": .Global = True
yyy = .Replace(t, "$1$3")
End With
End Function

[/vba]

[vba]

Код

Function uuu$(t$)
With CreateObject("VBScript.RegExp"): .Pattern = "\d+": .Global = True
uuu = .Execute(t)(0) & "-" & CLng(.Execute(t)(1))
End With
End Function

[/vba]

К сообщению приложен файл: example_14_09_2.xls (33.0 Kb)

Сообщение отредактировал sv2014 - Среда, 14.09.2016, 11:06

Ответить

Удаление лишних цифр после знака (Формулы/Formulas)

Страница 1 из 1
1