Перенос части текста из ячейки в ячейку

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

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

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

User799

Дата: Понедельник, 08.03.2021, 14:51 | Сообщение № 1

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

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

Сообщений: 16

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

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

Excel 2013

Добрый день!

Нашел на форуме тему с вопросом, похожим на мой - позаимствовал оттуда формулу. Она подошла, но не идеально - нужно донастроить.

Описание моего случая:
В ячейках в столбце А у меня находятся описания книг, как правило, состоящие из нескольких абзацев: цитата, о чем книга, кто автор. В столбец В мне надо переместить только информацию об авторе. Она не всегда есть в исходном столбце (в этом случае необходимо оставить соответствующую ячейку в столбце В пустой), но когда есть, то имеет постоянные признаки:
1. Абзац, который требуется перенести, всегда начинается с заголовка "Кто автор" (сам заголовок переносить не нужно);
2. Абзац с нужными сведениями числится последним в ячейке (что упрощает задачу составления формулы).

Задача:
Перенести текст со слов "Кто автор" из одной ячейки в другую. Если искомое значение в исходной ячейке отсутствует, то заполняемую ячейку необходимо оставить пустой.

Файл с примером прилагаю.

Прошу помочь.

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

Ответить

Pelena

Дата: Понедельник, 08.03.2021, 15:00 | Сообщение № 2

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

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

Сообщений: 19182

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

Замечаний: ±

Excel 365 & Mac Excel

Здравствуйте.

Код

=ЕСЛИОШИБКА(ПСТР(A1;ПОИСК("Кто автор";A1)+9;ДЛСТР(A1));"")

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

User799

Дата: Понедельник, 08.03.2021, 15:56 | Сообщение № 3

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

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

Сообщений: 16

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

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

Excel 2013

Pelena, Спасибо. А если учесть в формуле пустую строку после слов "Кто автор", то как она будет выглядеть?

Код

=ЕСЛИОШИБКА(ПСТР(Y3756;ПОИСК("Кто автор";Y3756)+13;ДЛСТР(Y3756));"")

Так правильно?

И еще уточнение:
Как изменится формула, если добавить в искомые значения, помимо "Кто автор", еще "Кто авторы", "Об авторах" и "Об авторе"?

Сообщение отредактировал User799 - Понедельник, 08.03.2021, 16:08

Ответить

gling

Дата: Понедельник, 08.03.2021, 22:01 | Сообщение № 4

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

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

Сообщений: 2523

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

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

2010

Здравствуйте.
Попробуйте монстрика

Код

=ЕСЛИОШИБКА(ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("кто автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199));СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("об автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199)));"")

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

ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 08.03.2021, 22:06

Ответить

User799

Дата: Понедельник, 08.03.2021, 22:11 | Сообщение № 5

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

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

Сообщений: 16

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

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

Excel 2013

gling, вечер добрый!
Попробовал - не совсем то, к сожалению. Он много лишнего режет (см. прилагаемый файл).
На всякий случаю уточню задачу: необходимо перенести не только ФИО автора, а весь абзац о нем.

К сообщению приложен файл: 8032270.xlsx (12.1 Kb)

Сообщение отредактировал User799 - Понедельник, 08.03.2021, 22:13

Ответить

gling

Дата: Понедельник, 08.03.2021, 22:44 | Сообщение № 6

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

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

Сообщений: 2523

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

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

2010

Может тогда так?

Код

=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1)));ДЛСТР(A1));ПСТР(ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1)));ДЛСТР(A1)));"")

то-же самое но немного другая формула

Код

=ЕСЛИОШИБКА(ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1));СИМВОЛ(10);ПОВТОР(" ";99));99;ДЛСТР(A1)));СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1));СИМВОЛ(10);ПОВТОР(" ";99));99;ДЛСТР(A1))));"")

ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 08.03.2021, 22:49

Ответить

User799

Дата: Понедельник, 08.03.2021, 22:54 | Сообщение № 7

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

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

Сообщений: 16

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

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

Excel 2013

gling, все ок. Только формула удаляет абзацы. Если можно легко добиться отмены этого эффекта, будет совсем хорошо. Но, в принципе, уже очень неплохо.
Благодарю за помощь!

Сообщение отредактировал User799 - Понедельник, 08.03.2021, 23:00

Ответить

gling

Дата: Понедельник, 08.03.2021, 23:32 | Сообщение № 8

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

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

Сообщений: 2523

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

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

2010

Первая формула не удаляет абзац. Смотрите ячейку D1.

К сообщению приложен файл: 5112223.xlsx (12.6 Kb)

ЯД-41001506838083

Сообщение отредактировал gling - Понедельник, 08.03.2021, 23:34

Ответить

User799

Дата: Вторник, 09.03.2021, 12:07 | Сообщение № 9

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

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

Сообщений: 16

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

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

Excel 2013

Первая формула вместе с абзацем оставляет пустую строку перед текстом. Пример прилагаю.

К сообщению приложен файл: 7087338.xlsx (10.3 Kb)

Ответить

Serge_007

Дата: Вторник, 09.03.2021, 12:12 | Сообщение № 10

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата User799, 09.03.2021 в 12:07, в сообщении № 9 ()

Первая формула вместе с абзацем оставляет пустую строку перед текстом

Код

=ПОДСТАВИТЬ(ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1)));ДЛСТР(A1));ПСТР(ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1)));ДЛСТР(A1)));"");СИМВОЛ(10);)