Формула текстового поиска по диапазону (в левую сторону).

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по Excel » Формула текстового поиска по диапазону (в левую сторону). (Формулы/Formulas)

odeon16

Дата: Вторник, 04.07.2017, 09:04 | Сообщение № 1

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

Ранг: Участник

Сообщений: 85

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

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

Excel 2013

Доброе утро, уважаемые программисты.
Помогите решить вопрос.

На листе располагается диапазон. подсвеченный зеленым цветом. В этом диапазоне - содержатся различные текстовые и числовые символы.
В этом диапазоне в некоторых ячейках находится текст "rhp trs05-shrdn reu"

Цель - найти и вынести в отдельный столбец - числовой показатель, находящийся в середине этого текста (либо 05=0,5 либо целое число).

Моя формула проводит поиск и анализ - по Правой части ключевого текста - то есть "rhp trs". (формула находит текст "rhp trs" и ищет число стоящее Справа)

Как провести подобный поиск - по Левой части ключевого текста - то есть по "shrdn reu" ?
(То есть формула должна найти текст "shrdn reu" и извлечь число стоящее Слева )

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

Ответить

_Boroda_

Дата: Вторник, 04.07.2017, 09:10 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

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

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

2003; 2007; 2010; 2013 RUS

Может, лучше сразу по обоим текстам искать?

Код

=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(E8;"rhp trs";"-shrdn reu");"-shrdn reu";ПОВТОР(" ";999));999;999))

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

buchlotnik

Дата: Вторник, 04.07.2017, 09:34 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

я, конечно, не программист, но мне кажется, что проще всего на регулярках: [vba]

Код

Function getleft(t$, p$)
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+(?=" & p & ")"
        If .test(t) Then getleft = .Execute(t)(0) Else getleft = ""
    End With
   If Left(getleft, 1) = "0" Then getleft = Replace(getleft, "0", "0,")
End Function

[/vba]

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

Ответить

odeon16

Дата: Вторник, 04.07.2017, 10:08 | Сообщение № 4

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

Ранг: Участник

Сообщений: 85

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

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

Excel 2013

_Boroda_, нет, по обоим текстам - не нужно.
Нужно только по левому тексту.

Ответить

odeon16

Дата: Вторник, 04.07.2017, 10:09 | Сообщение № 5

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

Ранг: Участник

Сообщений: 85

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

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

Excel 2013

buchlotnik, мне нужна формула, а не макрос.

Ответить

AlexM

Дата: Вторник, 04.07.2017, 10:49 | Сообщение № 6

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

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

Сообщений: 4484

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

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

Excel 2003

Одна формула для двух вариантов

Код

=--ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(H8;H$6;);"-";);0;"0,")

Ошибка!!! не понял задание.

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

Сообщение отредактировал AlexM - Вторник, 04.07.2017, 10:53

Ответить

odeon16

Дата: Вторник, 04.07.2017, 12:00 | Сообщение № 7

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

Ранг: Участник

Сообщений: 85

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

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

Excel 2013

AlexM, вот смотрите - есть текст:
"543 , fhg , rhp trs12-shrdn reu, fgjhdh6 "

Как формулой извлечь из этого текста и поместить в отдельную ячейку - кусок "12-shrdn reu" ?
То есть видимо - должен быть поиск по слову "shrdn reu" и нескольких символов слева.
Ограничитель слева - это любая буква, идущая после цифры.
То есть в данном случае во фрагменте "s12-shrdn reu" - ограничителем будет выступать буква "s" перед которой стоит "1".

Ответить

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