Разбить текст по строкам (без замены символов)

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

Разбить текст по строкам (без замены символов) (Формулы/Formulas)

Anpetu

Дата: Четверг, 30.11.2017, 13:29 | Сообщение № 1

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

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

Сообщений: 19

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

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

Excel 2013

Добрый день! Подскажите, пожалуйста, есть ли возможность разбить данный текст по строкам в Exel 2013 не вручную?
Все символы нужны, без них фото потом не загрузится...

Файлы прилагаю. В первом, как есть, во втором, как нужно, чтобы было.

Заранее спасибо!

К сообщению приложен файл: 4461048.xlsx (8.1 Kb) · 1285223.xlsx (8.2 Kb)

Ответить

_Boroda_

Дата: Четверг, 30.11.2017, 13:45 | Сообщение № 2

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

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

Сообщений: 16885

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Формулой так можно

Код

=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(" "&A$1;" ";ПОВТОР(" ";999));999*СТРОКА(A1);999))

Если по горизонтали пойдет, то можно Данные - Текст по столбцам

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

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

Ответить

ВладимирG

Дата: Четверг, 30.11.2017, 13:45 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 136

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

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

2007

[vba]

Код

Sub qqq()
Dim i&
For i = 1 To UBound(Split(Cells(1, 1), "[/IMG][/URL]"))
Cells(i, 2) = Trim(Split(Cells(1, 1), "[/IMG][/URL]")(i - 1)) & "[/IMG][/URL]"
Next
End Sub

[/vba]