Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Найти значение DOF/ и REG/ и показать их в отдельный ячейках
 
#1
30.12.2020 06:22:13
Помогите найти значение DOF/ и REG/ и показать их в отдельный ячейках.
Позиция DOF/ и REG/ могут быть в любом месте ячейки A2/
Спасибо
 
 
 
#2
30.12.2020 07:16:21
Получилось так.
А как сделать если в REG есть RA то надо  оставить только 67552?
 
 
 
#3
30.12.2020 09:02:43
Цитата
nvn1958 написал:
надо  оставить только 67552?
Примените функцию ПОДСТАВИТЬ или ПРАВСИМВ.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#4
30.12.2020 09:08:52
Цитата
Максим В. написал:
Примените функцию ПОДСТАВИТЬ или ПРАВСИМВ.
Не все записи идут с RA. Как-то надо сделать - если есть -убрать; если нет - оставить как есть
 
 
 
#5
30.12.2020 09:10:03
Цитата
nvn1958 написал:
Не все записи идут с RA.
Да ладно. Не может такого быть.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#6
30.12.2020 09:12:51
По ТС2013 должно, но есть отклонения.
 
 
 
#7
30.12.2020 11:10:44
Это вы о чём? Совет (если вам действительно нужно решение задчи)
1) Предложите название темы отражающее задачу. К нынешнему названию у модераторов будут претензии.
2) Приложите нормальные пример на десяток строк, с различными вариантами исходных данных и желаемым результатом.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#8
30.12.2020 11:36:52
Цитата
Значение DOF/ и REG/ и показать их в отдельный ячейках
UDF
Код
Function iDOF(cell$)
 With CreateObject("VBScript.RegExp")
     .Pattern = "DOF/(\d+)"
     iDOF = .Execute(cell)(0).SubMatches(0)
 End With
End Function
Function iREG(cell$)
 With CreateObject("VBScript.RegExp")
     .Pattern = "REG/(RA)?(\d+)"
     iREG = .Execute(cell)(0).SubMatches(1)
 End With
End Function
 
 
 
Страницы: 1
Наверх