Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенос строки внутри ячейки, Перенос строки внутри ячейки
 
#1
24.04.2024 17:16:06
Доброго времени суток!
Облазал уже много тем и форумов, но не смог найти нужного.
Мне нужно в файле, в одной ячейке перенести текст на английском языке на новую строчку, не выходя за ячейку.
Сейчас это в виде Русское наименование пробел Английское наименование. По количеству символов не подходит, т.к. есть очень длинные наименования.
Вручную это делать долго, т.к. более 3500 ячеек с наименованиями.
Сможет кто-нибудь помочь? Желательно, чтобы это были формулы, т.к. модули доустанавливать не могу на рабочем пк.

Пример во вложении.

Заранее спасибо за вашу помощь!
 
 
 
#2
24.04.2024 17:28:36
перенос по 2-му пробелу
 
 
 
#3
24.04.2024 17:38:11
polen4ik, Помощь скрыта. Читаем правила, меняем отображаемое имя. по готовности пишем.
По вопросам из тем форума, личку не читаю.
 
 
 
#4
24.04.2024 17:53:13
БМВ, готово
 
 
 
#5
24.04.2024 18:34:15
С помощью Power Query (вкладка Данные -> Обновить все)
Код
let
    lst1 = List.Buffer({"А".."я"," "}),
    lst2 = List.Buffer({"A".."z"}),
    from = Table.ToList(Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content]),
    tr = List.Transform(from,(x)=>Splitter.SplitTextByCharacterTransition(lst1,lst2)(x)),
    to = List.Transform(tr,(x)=>x{0}&"#(lf)"&Text.Combine(List.Skip(x),""))
in
    to
Изменено: sotnikov - 24.04.2024 18:38:09
 
 
 
#6
24.04.2024 18:38:33
Если названия более чем из 2х слов то нужно делить по пробелу стоящему перед не русской буквой. Но это не проконтролирует длинну если даже моноязычное название длиннее того что помещается в ячейке. Пример самого сложного и длинного варианта б в файле.
Цитата
sotnikov написал:
С помощью Power Query
Цитата
polen4ik написал:
Желательно, чтобы это были формулы, т.к. модули доустанавливать не могу на рабочем пк.
Изменено: БМВ - 24.04.2024 18:41:18
По вопросам из тем форума, личку не читаю.
 
 
 
#7
24.04.2024 18:50:36
БМВ, завтра буду на работе и скину файл
 
 
 
#8
24.04.2024 23:44:23
что-то  такое массивное
=REPLACE(B3;MIN(IFERROR(1/(1/LOOKUP(CODE(RIGHT(MID(B3;ROW($1:$999);2)));{0;65;91;97;122};{0;1;0;1;0})/ROW($1:$999));FALSE));1;CHAR(10))
По вопросам из тем форума, личку не читаю.
 
 
 
#9
25.04.2024 09:31:06
БМВ, файл с более длинными наименованиями приложил


UPD. Взял ваш файлик и туда закинул наименования. Вроде сработало.
Огромное спасибо!
Изменено: poleno - 25.04.2024 09:35:06
 
 
 
#10
25.04.2024 13:01:08
Если икать крайнюю букву кириллицы
=ЗАМЕНИТЬ(B3;ПРОСМОТР(;-1/(КОДСИМВ(ПСТР(B3;СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(B3)));1))>191);СТРОКА(A$1:ИНДЕКС(A:A;ДЛСТР(B3))))+1;1;СИМВОЛ(10))
...мумиё не рассматривал (т.е. "ё" в качестве крайнего символа)
 
 
 
#11
25.04.2024 13:02:56
Павел \Ʌ/,  по этому с латиницей и проще :-)
По вопросам из тем форума, личку не читаю.
 
 
 
Страницы: 1
Наверх