Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Убрать из текста ненужные символы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать из текста ненужные символы (Формулы/Formulas)
Убрать из текста ненужные символы
Narahon Дата: Пятница, 14.12.2018, 17:34 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Подскажите пожалуйста, как убрать из текста ненужные символы через формулу, если они там содержаться?

Клиенты часто заполняют свой номер телефона в базе по разному:

79991112233
89991112233
8(999)1112233
8(999)111-22-33 и т.д.,

а я хочу привести всё к единому формату через формулу ( 89991112233 ), пока написал такую формулу, с остальным справиться в одной формуле не могу...

Код
=ЕСЛИ(ЛЕВСИМВ(B10;1)="7";8&ПРАВСИМВ(B10;10);B10)


Сообщение отредактировал Pelena - Понедельник, 17.12.2018, 17:08
 
Ответить
СообщениеЗдравствуйте!
Подскажите пожалуйста, как убрать из текста ненужные символы через формулу, если они там содержаться?

Клиенты часто заполняют свой номер телефона в базе по разному:

79991112233
89991112233
8(999)1112233
8(999)111-22-33 и т.д.,

а я хочу привести всё к единому формату через формулу ( 89991112233 ), пока написал такую формулу, с остальным справиться в одной формуле не могу...

Код
=ЕСЛИ(ЛЕВСИМВ(B10;1)="7";8&ПРАВСИМВ(B10;10);B10)

Автор - Narahon
Дата добавления - 14.12.2018 в 17:34
gling Дата: Пятница, 14.12.2018, 19:48 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация: 674 ±
Замечаний: 0% ±

2010
Здравствуйте!
Можно попробовать так
Код
=ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(";"");")";"");"-";"");1;1;7)
или так
Код
=7&ПРАВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(";"");")";"");"-";"");10)
Но может закрасться пробел куда нибудь, в начале, в конце или в середине, возможно придется использовать ещё СЖРОБЕЛЫ(). Но наверное лучше их удалить еще одной ПОДСТАВИТЬ(). Файл-Пример очень бы помог понять как действовать.


ЯД-41001506838083

Сообщение отредактировал gling - Пятница, 14.12.2018, 20:00
 
Ответить
СообщениеЗдравствуйте!
Можно попробовать так
Код
=ЗАМЕНИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(";"");")";"");"-";"");1;1;7)
или так
Код
=7&ПРАВСИМВ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(";"");")";"");"-";"");10)
Но может закрасться пробел куда нибудь, в начале, в конце или в середине, возможно придется использовать ещё СЖРОБЕЛЫ(). Но наверное лучше их удалить еще одной ПОДСТАВИТЬ(). Файл-Пример очень бы помог понять как действовать.

Автор - gling
Дата добавления - 14.12.2018 в 19:48
Narahon Дата: Пятница, 14.12.2018, 19:54 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Можно попробовать так


Большое спасибо, работает!
Если использовать 1 вариант, то можно ли туда ещё добавить удаление пробелов (некоторые люди разделяют номер просто пробелами)?
 
Ответить
Сообщение
Можно попробовать так


Большое спасибо, работает!
Если использовать 1 вариант, то можно ли туда ещё добавить удаление пробелов (некоторые люди разделяют номер просто пробелами)?

Автор - Narahon
Дата добавления - 14.12.2018 в 19:54
_Boroda_ Дата: Пятница, 14.12.2018, 19:57 | Сообщение № 4
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели)
И прочитайте Правила форума, там об этом говорится

gling, deal deal deal


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеNarahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели)
И прочитайте Правила форума, там об этом говорится

gling, deal deal deal

Автор - _Boroda_
Дата добавления - 14.12.2018 в 19:57
Narahon Дата: Понедельник, 17.12.2018, 12:30 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели)
И прочитайте Правила форума, там об этом говорится


Извиняюсь, в следующий раз буду внимательнее.
А вот редактировать своё сообщения я не могу, нету этой кнопки
 
Ответить
Сообщение
Narahon, Оформите в своем первом сообщении формулу тегами в режиме редактирования поста нужно выделить формулу и нажать кнопку fx на панели)
И прочитайте Правила форума, там об этом говорится


Извиняюсь, в следующий раз буду внимательнее.
А вот редактировать своё сообщения я не могу, нету этой кнопки

Автор - Narahon
Дата добавления - 17.12.2018 в 12:30
_Boroda_ Дата: Понедельник, 17.12.2018, 12:56 | Сообщение № 6
Группа: Модераторы
Ранг: Местный житель
Сообщений: 16666
Репутация: 6478 ±
Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS
Правильно. Сутки прошли
В следующий раз еще и файл прикладывайте, как в Правилах форума написано. Надеюсь, читали?

По поводу пробела - просто добавьте еще один ПОДСТАВИТЬ
Код
=8&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(";);")";);"-";);" ";);2;99)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеПравильно. Сутки прошли
В следующий раз еще и файл прикладывайте, как в Правилах форума написано. Надеюсь, читали?

По поводу пробела - просто добавьте еще один ПОДСТАВИТЬ
Код
=8&ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;"(";);")";);"-";);" ";);2;99)

Автор - _Boroda_
Дата добавления - 17.12.2018 в 12:56
Narahon Дата: Понедельник, 17.12.2018, 16:17 | Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 42
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
В следующий раз еще и файл прикладывайте, как в Правилах форума напимано. Надеюсь, читали?


Да, правила читал, был на работе, в запаре не сформировал нормально письмо, к сожалению.

Спасибо Вам за помощь, уже как раз собирался добавить ещё один ПОДСТАВИТЬ. Очень выручили
 
Ответить
Сообщение
В следующий раз еще и файл прикладывайте, как в Правилах форума напимано. Надеюсь, читали?


Да, правила читал, был на работе, в запаре не сформировал нормально письмо, к сожалению.

Спасибо Вам за помощь, уже как раз собирался добавить ещё один ПОДСТАВИТЬ. Очень выручили

Автор - Narahon
Дата добавления - 17.12.2018 в 16:17
sboy Дата: Понедельник, 17.12.2018, 17:37 | Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2566
Репутация: 724 ±
Замечаний: 0% ±

Excel 2010
добавить ещё один ПОДСТАВИТЬ

Чтобы для каждого ненужного символа этого не делать, пользовательская функция
[vba]
Код
Function Narahon(t)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\D"
        .Global = True
        t = .Replace(t, "")
        .Pattern = "^7"
        Narahon = .Replace(t, 8)
    End With
End Function
[/vba]
К сообщению приложен файл: 1243597.xlsm (14.6 Kb)


Яндекс: 410016850021169
 
Ответить
Сообщение
добавить ещё один ПОДСТАВИТЬ

Чтобы для каждого ненужного символа этого не делать, пользовательская функция
[vba]
Код
Function Narahon(t)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\D"
        .Global = True
        t = .Replace(t, "")
        .Pattern = "^7"
        Narahon = .Replace(t, 8)
    End With
End Function
[/vba]

Автор - sboy
Дата добавления - 17.12.2018 в 17:37
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Убрать из текста ненужные символы (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!