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

Вход

Регистрация

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

 

= Мир MS Excel/Оставить последнее слово, которое содержит наш символ. - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Оставить последнее слово, которое содержит наш символ. (Формулы/Formulas)
Оставить последнее слово, которое содержит наш символ.
xavikz Дата: Пятница, 18.09.2015, 15:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Пример
5121 7,5x16 5x114,3 ET35 60,1 HB
Наш символ - запятая.
Т.е. нужно, чтоб в отдельном столбце выводилось значение 60,1,
Или хотя бы слева от последнего искомого символа, т.е. "60"

Подскажите пожалуйста. Нигде не нашел. Нашел только после последнего символа, а вот как вырезать 3 символа слева от искомого - не нашел(


Сообщение отредактировал xavikz - Пятница, 18.09.2015, 16:17
 
Ответить
СообщениеПример
5121 7,5x16 5x114,3 ET35 60,1 HB
Наш символ - запятая.
Т.е. нужно, чтоб в отдельном столбце выводилось значение 60,1,
Или хотя бы слева от последнего искомого символа, т.е. "60"

Подскажите пожалуйста. Нигде не нашел. Нашел только после последнего символа, а вот как вырезать 3 символа слева от искомого - не нашел(
Автор - xavikz
Дата добавления - 18.09.2015 в 15:57
китин Дата: Пятница, 18.09.2015, 16:31 | Сообщение № 2
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
Цитата xavikz, 18.09.2015 в 15:57, в сообщении № 1
Наш символ - запятая.
у вас здесь три запятые..... :'(

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
Цитата xavikz, 18.09.2015 в 15:57, в сообщении № 1
Наш символ - запятая.
у вас здесь три запятые..... :'(
Автор - китин
Дата добавления - 18.09.2015 в 16:31
buchlotnik Дата: Пятница, 18.09.2015, 16:33 | Сообщение № 3
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
"по фотографии" можно так:
Код
=--СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";ПОВТОР(" ";99));ДЛСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";ПОВТОР(" ";99)))-200;100))
, или так:
Код
=--ПСТР(A1;МАКС((ПСТР(A1;СТРОКА(A1:A100);1)=",")*СТРОКА(A1:A100))-2;4)
, а вообще файл-пример в студию ;)


Сообщение отредактировал buchlotnik - Пятница, 18.09.2015, 16:38
 
Ответить
Сообщение"по фотографии" можно так:
Код
=--СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";ПОВТОР(" ";99));ДЛСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A1);" ";ПОВТОР(" ";99)))-200;100))
, или так:
Код
=--ПСТР(A1;МАКС((ПСТР(A1;СТРОКА(A1:A100);1)=",")*СТРОКА(A1:A100))-2;4)
, а вообще файл-пример в студию ;)
Автор - buchlotnik
Дата добавления - 18.09.2015 в 16:33
Pelena Дата: Пятница, 18.09.2015, 16:38 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19517
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата xavikz, 18.09.2015 в 15:57, в сообщении № 1
вырезать 3 символа слева от искомого

Код
=ПСТР(A1;ПОИСК("#";ПОДСТАВИТЬ(A1;",";"#";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;",";""))))-2;4)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата xavikz, 18.09.2015 в 15:57, в сообщении № 1
вырезать 3 символа слева от искомого

Код
=ПСТР(A1;ПОИСК("#";ПОДСТАВИТЬ(A1;",";"#";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;",";""))))-2;4)
Автор - Pelena
Дата добавления - 18.09.2015 в 16:38
китин Дата: Пятница, 18.09.2015, 16:40 | Сообщение № 5
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация: 1079 ±
Замечаний: 0% ±

Excel 2007;2010;2016
ну что бы вытащить "60" вот вам монстр
Код
=ПСТР(ПОДСТАВИТЬ(A1;",";"ЯЯ";ДЛСТР(ПОДСТАВИТЬ(A1;",";"ЯЯ"))-ДЛСТР(A1));ПОИСК("ЯЯ";ПОДСТАВИТЬ(A1;",";"ЯЯ";ДЛСТР(ПОДСТАВИТЬ(A1;",";"ЯЯ"))-ДЛСТР(A1)))-2;2)

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщениену что бы вытащить "60" вот вам монстр
Код
=ПСТР(ПОДСТАВИТЬ(A1;",";"ЯЯ";ДЛСТР(ПОДСТАВИТЬ(A1;",";"ЯЯ"))-ДЛСТР(A1));ПОИСК("ЯЯ";ПОДСТАВИТЬ(A1;",";"ЯЯ";ДЛСТР(ПОДСТАВИТЬ(A1;",";"ЯЯ"))-ДЛСТР(A1)))-2;2)
Автор - китин
Дата добавления - 18.09.2015 в 16:40
xavikz Дата: Пятница, 18.09.2015, 16:56 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо огромноее!
, правда, к примеру в данной строчке применилось только целое число до запятой
A22 9x19 5x130 ET60 71,6 S (в столбце вывелось 71)

Но если после S добавить любой символ, то становится все в норме (71,6)

Или слишком длинное имя тоже выходит с косяком.. (
К сообщению приложен файл: _Microsoft_Exce.xlsx (49.9 Kb)


Сообщение отредактировал xavikz - Пятница, 18.09.2015, 17:01
 
Ответить
СообщениеСпасибо огромноее!
, правда, к примеру в данной строчке применилось только целое число до запятой
A22 9x19 5x130 ET60 71,6 S (в столбце вывелось 71)

Но если после S добавить любой символ, то становится все в норме (71,6)

Или слишком длинное имя тоже выходит с косяком.. (
Автор - xavikz
Дата добавления - 18.09.2015 в 16:56
TimSha Дата: Пятница, 18.09.2015, 17:13 | Сообщение № 7
Группа: Проверенные
Ранг: Ветеран
Сообщений: 627
Репутация: 94 ±
Замечаний: 0% ±

Excel 2013 Pro +
Цитата xavikz, 18.09.2015 в 16:56, в сообщении № 6
слишком длинное имя тоже выходит с косяком.. (

Не проще ли, имхо, вылет дисков и посадочный диаметр выбирать вместе,а затем поделить по пробелу?
Или же вообще эти данные разогнать по полям/столбам - выгода: есть данные в сборе, и рядом - по деталям?.. ;)

"Ctrl+S" - достойное завершение ваших гениальных мыслей!.. ;)
 
Ответить
Сообщение
Цитата xavikz, 18.09.2015 в 16:56, в сообщении № 6
слишком длинное имя тоже выходит с косяком.. (

Не проще ли, имхо, вылет дисков и посадочный диаметр выбирать вместе,а затем поделить по пробелу?
Или же вообще эти данные разогнать по полям/столбам - выгода: есть данные в сборе, и рядом - по деталям?.. ;)
Автор - TimSha
Дата добавления - 18.09.2015 в 17:13
buchlotnik Дата: Пятница, 18.09.2015, 17:16 | Сообщение № 8
Группа: Заблокированные
Ранг: Участник клуба
Сообщений: 3442
Репутация: 929 ±
Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG
а мой вариант чем не устроил?
К сообщению приложен файл: -Microsoft_Exce.xlsx (50.2 Kb)
 
Ответить
Сообщениеа мой вариант чем не устроил?
Автор - buchlotnik
Дата добавления - 18.09.2015 в 17:16
Pelena Дата: Пятница, 18.09.2015, 17:17 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 19517
Репутация: 4632 ±
Замечаний: ±

Excel 365 & Mac Excel
Цитата buchlotnik, 18.09.2015 в 17:16, в сообщении № 8
а мой вариант чем не устроил?

Тот же вопрос

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
Цитата buchlotnik, 18.09.2015 в 17:16, в сообщении № 8
а мой вариант чем не устроил?

Тот же вопрос
Автор - Pelena
Дата добавления - 18.09.2015 в 17:17
AlexM Дата: Пятница, 18.09.2015, 17:23 | Сообщение № 10
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1130 ±
Замечаний: 0% ±

Excel 2003
Еще вариант не массивный
Код
=ПРОСМОТР(9^9;--ПСТР(A1;СТРОКА($1:$99);5))
и так
Код
=-ПРОСМОТР(;-ПСТР(A1;СТРОКА($1:$99);5))
К сообщению приложен файл: xavikz.xls (13.0 Kb)


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

Сообщение отредактировал AlexM - Суббота, 19.09.2015, 08:27
 
Ответить
СообщениеЕще вариант не массивный
Код
=ПРОСМОТР(9^9;--ПСТР(A1;СТРОКА($1:$99);5))
и так
Код
=-ПРОСМОТР(;-ПСТР(A1;СТРОКА($1:$99);5))
Автор - AlexM
Дата добавления - 18.09.2015 в 17:23
МВТ Дата: Пятница, 18.09.2015, 17:47 | Сообщение № 11
Группа: Проверенные
Ранг: Обитатель
Сообщений: 476
Репутация: 137 ±
Замечаний: 0% ±

Excel 2007
Можно UDF[vba]
Код
Function LastComma(Text As String) As String
Dim List As Object
With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\d+,\d+"
     If .Test(Text) Then
         Set List = .Execute(Text)
         LastComma = List.Item(List.Count - 1)
     End If
End With
End Function
[/vba]
 
Ответить
СообщениеМожно UDF[vba]
Код
Function LastComma(Text As String) As String
Dim List As Object
With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "\d+,\d+"
     If .Test(Text) Then
         Set List = .Execute(Text)
         LastComma = List.Item(List.Count - 1)
     End If
End With
End Function
[/vba]
Автор - МВТ
Дата добавления - 18.09.2015 в 17:47
xavikz Дата: Пятница, 18.09.2015, 19:11 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо большое, выручили :)
 
Ответить
СообщениеСпасибо большое, выручили :)
Автор - xavikz
Дата добавления - 18.09.2015 в 19:11
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Оставить последнее слово, которое содержит наш символ. (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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