Оставить только нужный текст - Мир MS Excel

Регистрация

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

= Мир MS Excel/Оставить только нужный текст - Мир MS Excel

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

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

Оставить только нужный текст (Формулы)

Оставить только нужный текст

Дата: Среда, 03.07.2013, 16:22 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Здравствуйте!
Прошу помочь. Как оставить в выделенных ячейках только нужный текст? Например, вместо текста в ячейке "один два три четыре
" оставить "один два". А если в ячейке "один три два", то не изменять ячейку.
Заранее признателен.

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

Михаил

Ответить

Дата: Среда, 03.07.2013, 16:29 | Сообщение № 2

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Не совсем понял задачу. Так надо?

Код

=ЕСЛИ(ЕЧИСЛО(ПОИСК("один два";A5));"один два";A5)

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 03.07.2013, 19:24 | Сообщение № 3

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

Ранг: Экселист

Сообщений: 7025

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

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

Excel 2007;2010;2016

[offtop]сколько же времени надо,что бы достичь такого уровня формулиста?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Среда, 03.07.2013, 20:25 | Сообщение № 4

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

[offtop] китин, Вы и сами уже довольно неплохо пишете формулы, так что Вам много времени не понадобится smile

smile

Главное - не останавливаться на достигнутом[/offtop]

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Четверг, 04.07.2013, 07:23 | Сообщение № 5

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

Ранг: Экселист

Сообщений: 7025

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

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

Excel 2007;2010;2016

[offtop]спасибо за столь высокую оценку

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 04.07.2013, 08:04 | Сообщение № 6

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Цитата (Serge_007)

=ЕСЛИ(ЕЧИСЛО(ПОИСК("один два";A5));"один два";A5)

Спасибо - нет. Во-первых - не работает. "один два" - я нечаянно Вас нацелил на цифры. Там текст - существительные, прилагательные. Хочется обрабатывать выделенное. Файл обновил

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

Михаил

Ответить

Дата: Четверг, 04.07.2013, 08:15 | Сообщение № 7

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

Ранг: Экселист

Сообщений: 7025

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

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

Excel 2007;2010;2016

а каковы критерии НУЖНОГО текста?почему "кран белый опять" "опять" надо убрать,а "кран да белый" "да"надо оставить?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 04.07.2013, 08:25 | Сообщение № 8

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (tmash)

Во-первых - не работает

Работает. В этом можно убедиться если подставить формулу в файл

Цитата (tmash)

Там текст

Там и был текст. "один два" - это не числа

Цитата (tmash)

Хочется обрабатывать выделенное

Замените "один два" на "кран белый":

Код

=ЕСЛИ(ЕЧИСЛО(ПОИСК("кран белый";A2));"кран белый";A2)

Добавлено (04.07.2013, 08:25)
---------------------------------------------

Цитата (китин)

почему "кран белый опять" "опять" надо убрать,а "кран да белый" "да"надо оставить?

Я понял задачу так: Если в ячейке есть заданное словосочетание - то надо его и вернуть, если нет - вернуть значение ячейки. Правильно я понял или нет пусть пояснит ТС, но с примерами в двух файлах решение совпадает smile

smile

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Четверг, 04.07.2013, 08:29 | Сообщение № 9

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

Ранг: Обитатель

Сообщений: 286

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

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

Excel 2010 RUS

Без формул это выглядит так:
выделяем необходимый диапазон и жмем Ctrl+H
Найти:*кран белый*
Заменить на:кран белый
Заменить все.
Вот и все

Ответить

Дата: Четверг, 04.07.2013, 09:09 | Сообщение № 10

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

Ранг: Экселист

Сообщений: 7025

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

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

Excel 2007;2010;2016

Цитата (Serge_007)

Если в ячейке есть заданное словосочетание

но ведь "кран ДА белый"это не заданное словосочетание.чем оно отличается от"кран белый опять"?только тем,что лишнее слово стоит в центре?
ждем ТС.

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 04.07.2013, 09:11 | Сообщение № 11

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата (китин)

чем оно отличается от"кран белый опять"?только тем,что лишнее слово стоит в центре?

Да

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Четверг, 04.07.2013, 12:28 | Сообщение № 12

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Спасибо всем и каждому. Мне уже самому интересно cool

cool

Ко мне попадает файл Excel. Вижу столбец в ячейках которого МНОГАСЛОВ, но мне нужны из этих всяких разных слов те которые выражают суть (для меня) каждой ячейки и эти слова в этой ячейке уже находятся (Вы их не обязаны знать).
Конкретно в ячейках написано:
---
специальной одежды, специальной обуви и индивидуальной защиты
---
, других индивидуальной защиты (головы, дыхания, глаз, лица, рук) и электрозащитных средств ОГУЭП «Облкоммунэнерго»
---
специальной одежды, специальной обуви и других индивидуальной защиты на 2 полугодие 2013 года филиала «Генерирующая компания» Казанская ТЭЦ-1.

пусть в этих ячейках останется:
---
индивидуальной защиты
---
индивидуальной защиты
---
индивидуальной защиты

У меня есть несколько слов выражающих суть. Хорошо же когда вместо пришедшей "портянки" на три экрана, получится полэкрана?

У меня есть костыли типа:
[vba]

Код

Selection.Replace What:="Закрытое акционерное общество", Replacement:="ЗАО", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

[/vba]
т.е. сокращать известное, с горем пополам, умею, я не умею отбрасывать неизвестное.

Другими словами.
Есть столбец, ячейки кем-то заполнены.
У меня (заранее) есть набор слов и фраз, которые хочу натравить на эти ячейки поочерёдно (очередность знаю я).
Если в ячейке есть фраза – пусть в ячейке останется только эта фраза. Нет фразы – пытает счастья другая фраза. Ни одна фраза не нашлась.? Ничего не трогая, переходим к следущей ячейке столбца.
Фух.
Обновил файл.

Спасибо всем и каждому. Мне уже самому интересно cool

cool

Ко мне попадает файл Excel. Вижу столбец в ячейках которого МНОГАСЛОВ, но мне нужны из этих всяких разных слов те которые выражают суть (для меня) каждой ячейки и эти слова в этой ячейке уже находятся (Вы их не обязаны знать).
Конкретно в ячейках написано:
---
специальной одежды, специальной обуви и индивидуальной защиты
---
, других индивидуальной защиты (головы, дыхания, глаз, лица, рук) и электрозащитных средств ОГУЭП «Облкоммунэнерго»
---
специальной одежды, специальной обуви и других индивидуальной защиты на 2 полугодие 2013 года филиала «Генерирующая компания» Казанская ТЭЦ-1.

пусть в этих ячейках останется:
---
индивидуальной защиты
---
индивидуальной защиты
---
индивидуальной защиты

У меня есть несколько слов выражающих суть. Хорошо же когда вместо пришедшей "портянки" на три экрана, получится полэкрана?

У меня есть костыли типа:
[vba]

Код

Selection.Replace What:="Закрытое акционерное общество", Replacement:="ЗАО", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

[/vba]
т.е. сокращать известное, с горем пополам, умею, я не умею отбрасывать неизвестное.

Другими словами.
Есть столбец, ячейки кем-то заполнены.
У меня (заранее) есть набор слов и фраз, которые хочу натравить на эти ячейки поочерёдно (очередность знаю я).
Если в ячейке есть фраза – пусть в ячейке останется только эта фраза. Нет фразы – пытает счастья другая фраза. Ни одна фраза не нашлась.? Ничего не трогая, переходим к следущей ячейке столбца.
Фух.
Обновил файл.tmash

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

Михаил

Ответить

СообщениеСпасибо всем и каждому. Мне уже самому интересно cool

cool

Ко мне попадает файл Excel. Вижу столбец в ячейках которого МНОГАСЛОВ, но мне нужны из этих всяких разных слов те которые выражают суть (для меня) каждой ячейки и эти слова в этой ячейке уже находятся (Вы их не обязаны знать).
Конкретно в ячейках написано:
---
специальной одежды, специальной обуви и индивидуальной защиты
---
, других индивидуальной защиты (головы, дыхания, глаз, лица, рук) и электрозащитных средств ОГУЭП «Облкоммунэнерго»
---
специальной одежды, специальной обуви и других индивидуальной защиты на 2 полугодие 2013 года филиала «Генерирующая компания» Казанская ТЭЦ-1.

пусть в этих ячейках останется:
---
индивидуальной защиты
---
индивидуальной защиты
---
индивидуальной защиты

У меня есть несколько слов выражающих суть. Хорошо же когда вместо пришедшей "портянки" на три экрана, получится полэкрана?

У меня есть костыли типа:
[vba]

Код

Selection.Replace What:="Закрытое акционерное общество", Replacement:="ЗАО", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

[/vba]
т.е. сокращать известное, с горем пополам, умею, я не умею отбрасывать неизвестное.

Другими словами.
Есть столбец, ячейки кем-то заполнены.
У меня (заранее) есть набор слов и фраз, которые хочу натравить на эти ячейки поочерёдно (очередность знаю я).
Если в ячейке есть фраза – пусть в ячейке останется только эта фраза. Нет фразы – пытает счастья другая фраза. Ни одна фраза не нашлась.? Ничего не трогая, переходим к следущей ячейке столбца.
Фух.
Обновил файл.

Автор - tmash
Дата добавления - 04.07.2013 в 12:28

Дата: Четверг, 04.07.2013, 12:34 | Сообщение № 13

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Список соответствий пишите. Иначе задача не решаема

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Четверг, 04.07.2013, 12:41 | Сообщение № 14

Группа: Админы

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

Сообщений: 16675

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Код

=ЕСЛИ(СУММПРОИЗВ(-ЕЧИСЛО(ПОИСК($G$2:$G$4;A2)));ПРОСМОТР(2;1/ПОИСК($G$2:$G$4;A2);$G$2:$G$4);A2)

В $G$2:$G$4 список фраз.

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

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

Ответить

Дата: Четверг, 04.07.2013, 13:26 | Сообщение № 15

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Цитата (Serge_007)

Список соответствий пишите. Иначе задача не решаема

противогаз
самоспасател
респиратор
индивидуальной защиты
СИЗ
фильтр

Возможно запихнуть в макрос?

Михаил

Ответить

Дата: Четверг, 04.07.2013, 13:28 | Сообщение № 16

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Цитата (_Boroda_)

=ЕСЛИ(СУММПРОИЗВ(-ЕЧИСЛО(ПОИСК($G$2:$G$4;A2)));ПРОСМОТР(2;1/ПОИСК($G$2:$G$4;A2);$G$2:$G$4);A2)
В $G$2:$G$4 список фраз.

Да! Спасибо!
Подскажите, пожалуйста, как это "запихать" в макрос?

Михаил

Ответить

Дата: Четверг, 04.07.2013, 13:33 | Сообщение № 17

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

Ранг: Экселист

Сообщений: 7025

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

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

Excel 2007;2010;2016

tmash, а зачем?и так все работает

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Дата: Четверг, 04.07.2013, 15:55 | Сообщение № 18

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Цитата (китин)

зачем?и так все работает

Происходит накопление информации - в столбец ручками добавляются "непричёсанные" ячейки, они же при вставке выделяются? Вот на этом выделении их бы и причёсывать макросом.
Количество:за раз - десятки, всего - тысячи, подозреваю формулы будут тормозить. Оригинальные значения ячеек не нужны, нужны обрезанные.

Михаил

Ответить

Дата: Понедельник, 15.07.2013, 15:27 | Сообщение № 19

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

Ранг: Новичок

Сообщений: 11

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

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

Excel 2003

Успокоился на:
[vba]

Код

   For Each cell In Selection
       If cell.Value Like "*противогаз*" Then
          cell.Value = "противогаз"
       End If

[/vba]

Михаил

Ответить

Дата: Пятница, 16.05.2014, 08:30 | Сообщение № 20

Группа: Гости

Как оставить в ячейках только русскоязычный текст, если там и ангийский и русский?

Ответить

Оставить только нужный текст (Формулы)

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

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