Перенос части текста из ячейки в ячейку
User799
Дата: Понедельник, 08.03.2021, 14:51 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Добрый день! Нашел на форуме тему с вопросом, похожим на мой - позаимствовал оттуда формулу. Она подошла, но не идеально - нужно донастроить. Описание моего случая: В ячейках в столбце А у меня находятся описания книг, как правило, состоящие из нескольких абзацев: цитата, о чем книга, кто автор. В столбец В мне надо переместить только информацию об авторе. Она не всегда есть в исходном столбце (в этом случае необходимо оставить соответствующую ячейку в столбце В пустой), но когда есть, то имеет постоянные признаки: 1. Абзац, который требуется перенести, всегда начинается с заголовка "Кто автор" (сам заголовок переносить не нужно); 2. Абзац с нужными сведениями числится последним в ячейке (что упрощает задачу составления формулы). Задача: Перенести текст со слов "Кто автор" из одной ячейки в другую. Если искомое значение в исходной ячейке отсутствует, то заполняемую ячейку необходимо оставить пустой. Файл с примером прилагаю. Прошу помочь.
Добрый день! Нашел на форуме тему с вопросом, похожим на мой - позаимствовал оттуда формулу. Она подошла, но не идеально - нужно донастроить. Описание моего случая: В ячейках в столбце А у меня находятся описания книг, как правило, состоящие из нескольких абзацев: цитата, о чем книга, кто автор. В столбец В мне надо переместить только информацию об авторе. Она не всегда есть в исходном столбце (в этом случае необходимо оставить соответствующую ячейку в столбце В пустой), но когда есть, то имеет постоянные признаки: 1. Абзац, который требуется перенести, всегда начинается с заголовка "Кто автор" (сам заголовок переносить не нужно); 2. Абзац с нужными сведениями числится последним в ячейке (что упрощает задачу составления формулы). Задача: Перенести текст со слов "Кто автор" из одной ячейки в другую. Если искомое значение в исходной ячейке отсутствует, то заполняемую ячейку необходимо оставить пустой. Файл с примером прилагаю. Прошу помочь. User799
Ответить
Сообщение Добрый день! Нашел на форуме тему с вопросом, похожим на мой - позаимствовал оттуда формулу. Она подошла, но не идеально - нужно донастроить. Описание моего случая: В ячейках в столбце А у меня находятся описания книг, как правило, состоящие из нескольких абзацев: цитата, о чем книга, кто автор. В столбец В мне надо переместить только информацию об авторе. Она не всегда есть в исходном столбце (в этом случае необходимо оставить соответствующую ячейку в столбце В пустой), но когда есть, то имеет постоянные признаки: 1. Абзац, который требуется перенести, всегда начинается с заголовка "Кто автор" (сам заголовок переносить не нужно); 2. Абзац с нужными сведениями числится последним в ячейке (что упрощает задачу составления формулы). Задача: Перенести текст со слов "Кто автор" из одной ячейки в другую. Если искомое значение в исходной ячейке отсутствует, то заполняемую ячейку необходимо оставить пустой. Файл с примером прилагаю. Прошу помочь. Автор - User799 Дата добавления - 08.03.2021 в 14:51
Pelena
Дата: Понедельник, 08.03.2021, 15:00 |
Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19174
Репутация:
4413
±
Замечаний:
±
Excel 365 & Mac Excel
Здравствуйте.Код
=ЕСЛИОШИБКА(ПСТР(A1;ПОИСК("Кто автор";A1)+9;ДЛСТР(A1));"")
Здравствуйте.Код
=ЕСЛИОШИБКА(ПСТР(A1;ПОИСК("Кто автор";A1)+9;ДЛСТР(A1));"")
Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Здравствуйте.Код
=ЕСЛИОШИБКА(ПСТР(A1;ПОИСК("Кто автор";A1)+9;ДЛСТР(A1));"")
Автор - Pelena Дата добавления - 08.03.2021 в 15:00
User799
Дата: Понедельник, 08.03.2021, 15:56 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Pelena , Спасибо. А если учесть в формуле пустую строку после слов "Кто автор", то как она будет выглядеть?Код
=ЕСЛИОШИБКА(ПСТР(Y3756;ПОИСК("Кто автор";Y3756)+13;ДЛСТР(Y3756));"")
Так правильно? И еще уточнение: Как изменится формула, если добавить в искомые значения, помимо "Кто автор", еще "Кто авторы", "Об авторах" и "Об авторе"?
Pelena , Спасибо. А если учесть в формуле пустую строку после слов "Кто автор", то как она будет выглядеть?Код
=ЕСЛИОШИБКА(ПСТР(Y3756;ПОИСК("Кто автор";Y3756)+13;ДЛСТР(Y3756));"")
Так правильно? И еще уточнение: Как изменится формула, если добавить в искомые значения, помимо "Кто автор", еще "Кто авторы", "Об авторах" и "Об авторе"?User799
Сообщение отредактировал User799 - Понедельник, 08.03.2021, 16:08
Ответить
Сообщение Pelena , Спасибо. А если учесть в формуле пустую строку после слов "Кто автор", то как она будет выглядеть?Код
=ЕСЛИОШИБКА(ПСТР(Y3756;ПОИСК("Кто автор";Y3756)+13;ДЛСТР(Y3756));"")
Так правильно? И еще уточнение: Как изменится формула, если добавить в искомые значения, помимо "Кто автор", еще "Кто авторы", "Об авторах" и "Об авторе"?Автор - User799 Дата добавления - 08.03.2021 в 15:56
gling
Дата: Понедельник, 08.03.2021, 22:01 |
Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация:
674
±
Замечаний:
0% ±
2010
Здравствуйте. Попробуйте монстрика Код
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("кто автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199));СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("об автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199)));"")
Здравствуйте. Попробуйте монстрика Код
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("кто автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199));СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("об автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199)));"")
gling
ЯД-41001506838083
Сообщение отредактировал gling - Понедельник, 08.03.2021, 22:06
Ответить
Сообщение Здравствуйте. Попробуйте монстрика Код
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("кто автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199));СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПСТР(A1;ПОИСК("об автор";A1);99);СИМВОЛ(10);ПОВТОР(" ";99));СИМВОЛ(151);ПОВТОР(" ";99));99;199)));"")
Автор - gling Дата добавления - 08.03.2021 в 22:01
User799
Дата: Понедельник, 08.03.2021, 22:11 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
gling , вечер добрый! Попробовал - не совсем то, к сожалению. Он много лишнего режет (см. прилагаемый файл). На всякий случаю уточню задачу: необходимо перенести не только ФИО автора, а весь абзац о нем.
gling , вечер добрый! Попробовал - не совсем то, к сожалению. Он много лишнего режет (см. прилагаемый файл). На всякий случаю уточню задачу: необходимо перенести не только ФИО автора, а весь абзац о нем.User799
Сообщение отредактировал User799 - Понедельник, 08.03.2021, 22:13
Ответить
Сообщение gling , вечер добрый! Попробовал - не совсем то, к сожалению. Он много лишнего режет (см. прилагаемый файл). На всякий случаю уточню задачу: необходимо перенести не только ФИО автора, а весь абзац о нем.Автор - User799 Дата добавления - 08.03.2021 в 22:11
gling
Дата: Понедельник, 08.03.2021, 22:44 |
Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация:
674
±
Замечаний:
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))));"")
Может тогда так?Код
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(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))));"")
gling
ЯД-41001506838083
Сообщение отредактировал gling - Понедельник, 08.03.2021, 22:49
Ответить
Сообщение Может тогда так?Код
=ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(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))));"")
Автор - gling Дата добавления - 08.03.2021 в 22:44
User799
Дата: Понедельник, 08.03.2021, 22:54 |
Сообщение № 7
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
gling , все ок. Только формула удаляет абзацы. Если можно легко добиться отмены этого эффекта, будет совсем хорошо. Но, в принципе, уже очень неплохо. Благодарю за помощь!
gling , все ок. Только формула удаляет абзацы. Если можно легко добиться отмены этого эффекта, будет совсем хорошо. Но, в принципе, уже очень неплохо. Благодарю за помощь!User799
Сообщение отредактировал User799 - Понедельник, 08.03.2021, 23:00
Ответить
Сообщение gling , все ок. Только формула удаляет абзацы. Если можно легко добиться отмены этого эффекта, будет совсем хорошо. Но, в принципе, уже очень неплохо. Благодарю за помощь!Автор - User799 Дата добавления - 08.03.2021 в 22:54
gling
Дата: Понедельник, 08.03.2021, 23:32 |
Сообщение № 8
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2519
Репутация:
674
±
Замечаний:
0% ±
2010
Первая формула не удаляет абзац. Смотрите ячейку D1.
Первая формула не удаляет абзац. Смотрите ячейку D1. gling
ЯД-41001506838083
Сообщение отредактировал gling - Понедельник, 08.03.2021, 23:34
Ответить
Сообщение Первая формула не удаляет абзац. Смотрите ячейку D1. Автор - gling Дата добавления - 08.03.2021 в 23:32
User799
Дата: Вторник, 09.03.2021, 12:07 |
Сообщение № 9
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
Первая формула вместе с абзацем оставляет пустую строку перед текстом. Пример прилагаю.
Первая формула вместе с абзацем оставляет пустую строку перед текстом. Пример прилагаю. User799
Ответить
Сообщение Первая формула вместе с абзацем оставляет пустую строку перед текстом. Пример прилагаю. Автор - User799 Дата добавления - 09.03.2021 в 12:07
Serge_007
Дата: Вторник, 09.03.2021, 12:12 |
Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация:
2749
±
Замечаний:
±
Excel 2016
Первая формула вместе с абзацем оставляет пустую строку перед текстом
Код
=ПОДСТАВИТЬ(ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1)));ДЛСТР(A1));ПСТР(ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1)));ДЛСТР(A1)));"");СИМВОЛ(10);)
Первая формула вместе с абзацем оставляет пустую строку перед текстом
Код
=ПОДСТАВИТЬ(ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1)));ДЛСТР(A1));ПСТР(ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1)));ДЛСТР(A1)));"");СИМВОЛ(10);)
Serge_007
ЮMoney :41001419691823 | WMR :126292472390
Ответить
Сообщение Первая формула вместе с абзацем оставляет пустую строку перед текстом
Код
=ПОДСТАВИТЬ(ЕСЛИОШИБКА(ЕСЛИОШИБКА(ПСТР(ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("кто автор";A1);ДЛСТР(A1)));ДЛСТР(A1));ПСТР(ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1));ПОИСК(СИМВОЛ(10);ПСТР(A1;ПОИСК("об автор";A1);ДЛСТР(A1)));ДЛСТР(A1)));"");СИМВОЛ(10);)
Автор - Serge_007 Дата добавления - 09.03.2021 в 12:12
User799
Дата: Вторник, 09.03.2021, 12:32 |
Сообщение № 11
Группа: Пользователи
Ранг: Новичок
Сообщений: 16
Репутация:
0
±
Замечаний:
0% ±
Excel 2013
То что надо У меня бы жизнь ушла, чтобы такие цепи из формул построить) Спасибо всем за помощь, тему можно закрывать - проблема решена.
То что надо У меня бы жизнь ушла, чтобы такие цепи из формул построить) Спасибо всем за помощь, тему можно закрывать - проблема решена. User799
Ответить
Сообщение То что надо У меня бы жизнь ушла, чтобы такие цепи из формул построить) Спасибо всем за помощь, тему можно закрывать - проблема решена. Автор - User799 Дата добавления - 09.03.2021 в 12:32