Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос части текста из одной ячейки в другую, Перенос части текста из одной ячейки в другую
 
#1
21.04.2018 09:51:08
Здравствуйте. Есть необходимость вытянуть фамилию и имя из одной ячейки в другую. В каждой строке есть "Ф.И.О.: ", а потом идёт нужная информация, которую и необходимо перенести в другую таблицу.
Может быть есть функция, чтобы достать только 2 слова после "Ф.И.О.: " или что-нибудь подобное? Заранее благодарю


http://skrinshoter.ru/s/210418/DWBLuNzc
Изменено: Briss - 21.04.2018 09:53:13
 
 
 
#2
21.04.2018 10:00:47
файл-пример приложите.
 
 
 
#3
21.04.2018 10:08:15
Briss, вот как Вы вообще представляете помощь по картинке?
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#4
21.04.2018 10:58:54
V, прикрепляю примерный файл  
 
 
 
#5
21.04.2018 11:05:32
Цитата
Briss написал:
Есть необходимость вытянуть фамилию и имя
Цитата
Briss написал:
В каждой строке есть "Ф.И.О.: ", а потом идёт нужная информация, которую и необходимо перенести в другую таблицу.
Так всё же что нужно извлекать? Почему бы в примере не показать желаемый результат?
 
 
 
#6
21.04.2018 11:05:48
Цитата
Briss написал:
достать только 2 слова после "Ф.И.О.: "
Пробуйте
=ЛЕВСИМВ(ПСТР(E1;ПОИСК("Ф.И.О.";E1)+8;99);ПОИСК(" ";ПСТР(E1;ПОИСК("Ф.И.О.";E1)+8;99);ПОИСК(" ";ПСТР(E1;ПОИСК("Ф.И.О.";E1)+8;99))+1)-1)
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#7
21.04.2018 11:09:38
Bema, к сожалению, не робит(
 
 
 
#8
21.04.2018 11:12:04
Юрий М, нужно вытянуть Имя и фамилию клиента. Желаемый результат, чтобы в следующем столбце было: Даничев Денис, если берем в пример первую строку
 
 
 
#9
21.04.2018 11:13:40
Извлечь ТОЛЬКО имя и фамилию?
 
 
 
#10
21.04.2018 11:13:58
Цитата
Briss написал:
к сожалению, не робит(
Что значит не робит? Я перед тем как выложить формулу на форум проверил. У меня робит.
Изменено: Bema - 21.04.2018 11:15:58
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#11
21.04.2018 11:25:23
Bema,значит с моей стороны где то проблема, ищу. Спасибо
 
 
 
#12
21.04.2018 11:26:47
Что-бы проще было искать.
Возможно проблема из-за стиля ссылок. Что это такое можно почитать здесь.
Изменено: Bema - 21.04.2018 11:28:30
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#13
21.04.2018 11:31:20
Проблема была и в этом и надстройках, всё исправил, вручную ввёл ссылки на ячейки и всё заработало. Оцень ценю вашу помощь, спасибо большое
 
 
 
#14
21.04.2018 11:31:55
Код
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПСТР(E1;ПОИСК("Ф.И.О.";E1)+6;99);" ";ПОВТОР(" ";50));50;2*50))
Изменено: V - 21.04.2018 11:33:04
 
 
 
#15
21.04.2018 11:34:16
Большое спасибо за помощь!
 
 
 
#16
21.04.2018 12:17:52
вариант функции в столбце 8
Код
 Function bbb$(t$)
   With CreateObject("VBScript.RegExp"): .IgnoreCase = True: .Pattern = "Ф.И.О.: [а-яё]+ [а-яё]+ "
    bbb = Mid(.Execute(t)(0), 9)
  End With
 End Function
Изменено: кузя1972 - 21.04.2018 12:18:07
 
 
 
Страницы: 1
Наверх