Слово/цифру разделить на части - Microsoft Office Excel

0mega · 30.01.2010, 22:38

Всем форумчанам желаю доброго времени суток
Имеется некий массив (столбик "В")
Из каждого слова надо "вырезать" определенное сочетание.
В колонку "С" и "D" поместить сочетание до и после "АС"
Спасибо

motorway · 30.01.2010, 23:01

Пишем соотв-но в ячейках (пусть в A1 слово исходное):
B1=НАЙТИ("АС";A1)
C1=ЛЕВСИМВ(A1;B1-1)
D1=ПРАВСИМВ(A1;ДЛСТР(A1)-B1-1)
Если искомая часть другая, то в последней ячейке может измениться цифра в формуле
А именно: общая формула такая: D1=ПРАВСИМВ(A1;ДЛСТР(A1)-B1-ДЛСТР(искомый текст)+1)
Попробуйте сами доделать, если надо.
У меня немного другой порядок ячеек

Serge 007 · 31.01.2010, 01:09

На самом деле формулы будут такие: Для С2:

Код:

=ЕСЛИ(ЕОШИБКА(ЛЕВСИМВ(B2;ПОИСК("ас";B2)-1));"";ЛЕВСИМВ(B2;ПОИСК("ас";B2)-1))

Для D2:

Код:

=ЕСЛИ(ЕОШИБКА(ПСТР(B2;НАЙТИ("ас";B2)+2;ДЛСТР(B2)));"";ПСТР(B2;НАЙТИ("ас";B2)+2;ДЛСТР(B2)))

И протягиваем вниз.
Это как в Вашем примере.
Забыл добавить: это реализуемо для всех экселей, для 2007 можно проще.

Лучше вместо ПОИСК использовать НАЙТИ, эта функция регистры не различает...

0mega · 31.01.2010, 21:45

to Serge 007
точно в яблочко

The_Prist · 31.01.2010, 22:14

Или вот такие еще можно

Код:

=ПСТР(A1;1;ЕСЛИ(ЕОШ(НАЙТИ("ас";A1));0;НАЙТИ("ас";A1)-1))

Код:

=ПСТР(A1;ЕСЛИ(ЕОШ(НАЙТИ("ас";A1));1000;НАЙТИ("ас";A1)+2);1000)

0mega · 31.01.2010, 22:46

to The_Prist
все работает . Благодарю
(если вместо А1 Вы бы написали В2 - то я бы быстрей вышел из стопора.)

30.01.2010, 23:01	#2
motorway Участник клуба Регистрация: 28.06.2009 Сообщений: 1,950	Пишем соотв-но в ячейках (пусть в A1 слово исходное): B1=НАЙТИ("АС";A1) C1=ЛЕВСИМВ(A1;B1-1) D1=ПРАВСИМВ(A1;ДЛСТР(A1)-B1-1) Если искомая часть другая, то в последней ячейке может измениться цифра в формуле А именно: общая формула такая: D1=ПРАВСИМВ(A1;ДЛСТР(A1)-B1-ДЛСТР(искомый текст)+1) Попробуйте сами доделать, если надо. У меня немного другой порядок ячеек Скрипты PHP, VBA. Skype:ktmtramway Расписание электричек Быстрый проверенный хостинг. Последний раз редактировалось motorway; 30.01.2010 в 23:03.

31.01.2010, 01:09	#3
Serge 007 Участник клуба Регистрация: 15.12.2009 Сообщений: 1,418	На самом деле формулы будут такие: Для С2: Код: `=ЕСЛИ(ЕОШИБКА(ЛЕВСИМВ(B2;ПОИСК("ас";B2)-1));"";ЛЕВСИМВ(B2;ПОИСК("ас";B2)-1))` Для D2: Код: `=ЕСЛИ(ЕОШИБКА(ПСТР(B2;НАЙТИ("ас";B2)+2;ДЛСТР(B2)));"";ПСТР(B2;НАЙТИ("ас";B2)+2;ДЛСТР(B2)))` И протягиваем вниз. Это как в Вашем примере. Забыл добавить: это реализуемо для всех экселей, для 2007 можно проще. Лучше вместо ПОИСК использовать НАЙТИ, эта функция регистры не различает... Бесплатная помощь: www.excelworld.ru Платная помощь: serge_007.planetaexcel@mail.ru https://yoomoney.ru: 41001419691823 Последний раз редактировалось Serge 007; 31.01.2010 в 08:44. Причина: Орфографическая ошибка

31.01.2010, 22:14	#5
The_Prist Участник клуба Регистрация: 17.07.2009 Сообщений: 1,088	Или вот такие еще можно Код: `=ПСТР(A1;1;ЕСЛИ(ЕОШ(НАЙТИ("ас";A1));0;НАЙТИ("ас";A1)-1))` Код: `=ПСТР(A1;ЕСЛИ(ЕОШ(НАЙТИ("ас";A1));1000;НАЙТИ("ас";A1)+2);1000)` WebMoney - R298726502453; Яндекс.Деньги - 41001332272872 www.excel-vba.ru

Опции темы	Поиск в этой теме
Версия для печати Отправить по электронной почте	Поиск в этой теме: Расширенный поиск

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
букву в цифру	Артэс	Общие вопросы C/C++	1	05.01.2010 04:12
преобразование текста в цифру...	0mega	Microsoft Office Excel	5	27.11.2009 20:10
Assembler TASM/ Разработать прогу:разбивающую каждое слово текстовой строки на две части	levis07	Фриланс	5	20.11.2009 10:34
Взять цифру из числа	Kolik317	Общие вопросы Delphi	7	27.09.2009 23:42
найти k-цифру фибоначчи	pizhon1	Помощь студентам	8	17.09.2009 21:28

31.01.2010, 21:45	#4
0mega Форумчанин Регистрация: 12.09.2009 Сообщений: 232	to Serge 007 точно в яблочко

31.01.2010, 22:46	#6
0mega Форумчанин Регистрация: 12.09.2009 Сообщений: 232	to The_Prist все работает . Благодарю (если вместо А1 Вы бы написали В2 - то я бы быстрей вышел из стопора.)