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

Вход

Регистрация

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

 

= Мир MS Excel/Как поставить скобки в середине текста? - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как поставить скобки в середине текста? (Формулы/Formulas)
Как поставить скобки в середине текста?
alexyakim20 Дата: Вторник, 31.10.2017, 13:20 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Всем привет! есть текст "Свая железобетонная сечение 10000 х 400 х 400 С100.40-10.1У (серия 1.011.1-10, выпуск 1)" как сделать так: "Свая железобетонная сечение 10000 х 400 х 400 (С100.40-10.1У) (серия 1.011.1-10, выпуск 1)" может есть формулы? текста такого очень много и по каждому наименованию делать долго.
К сообщению приложен файл: 4403124.xlsx (8.5 Kb)
 
Ответить
СообщениеВсем привет! есть текст "Свая железобетонная сечение 10000 х 400 х 400 С100.40-10.1У (серия 1.011.1-10, выпуск 1)" как сделать так: "Свая железобетонная сечение 10000 х 400 х 400 (С100.40-10.1У) (серия 1.011.1-10, выпуск 1)" может есть формулы? текста такого очень много и по каждому наименованию делать долго.
Автор - alexyakim20
Дата добавления - 31.10.2017 в 13:20
buchlotnik Дата: Вторник, 31.10.2017, 14:39 | Сообщение № 2
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
чисто по примеру - на регулярках[vba]
Код
Function рег_зам(t$, p$, r$, Optional g = True, Optional i = True)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Global = g
        .IgnoreCase = i
        .Pattern = p
       рег_зам= .Replace(t, r)
    End With
End Function
[/vba] с паттерном (С\d+[^\s]+) и заменой на ($1)
К сообщению приложен файл: 4403124-1-.xlsm (15.8 Kb)
 
Ответить
Сообщениечисто по примеру - на регулярках[vba]
Код
Function рег_зам(t$, p$, r$, Optional g = True, Optional i = True)
    Application.Volatile
    With CreateObject("VBScript.RegExp")
        .Global = g
        .IgnoreCase = i
        .Pattern = p
       рег_зам= .Replace(t, r)
    End With
End Function
[/vba] с паттерном (С\d+[^\s]+) и заменой на ($1)
Автор - buchlotnik
Дата добавления - 31.10.2017 в 14:39
Pelena Дата: Вторник, 31.10.2017, 15:05 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 19179
Репутация: 4419 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата buchlotnik, 31.10.2017 в 14:39, в сообщении № 2 ()
чисто по примеру
формулой
Код
=ЗАМЕНИТЬ(ЗАМЕНИТЬ(A9;ПОИСК("(";A9)-1;;")");ПОИСК(" ";A9;ПОИСК(".*-";A9)-5)+1;;"(")
К сообщению приложен файл: 7206218.xlsx (10.4 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата buchlotnik, 31.10.2017 в 14:39, в сообщении № 2 ()
чисто по примеру
формулой
Код
=ЗАМЕНИТЬ(ЗАМЕНИТЬ(A9;ПОИСК("(";A9)-1;;")");ПОИСК(" ";A9;ПОИСК(".*-";A9)-5)+1;;"(")
Автор - Pelena
Дата добавления - 31.10.2017 в 15:05
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Как поставить скобки в середине текста? (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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