Вертикальное объединение текста - в одной ячейке

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

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

OlegSmirnov

Дата: Четверг, 06.06.2019, 03:07 | Сообщение № 1

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

Ранг: Участник

Сообщений: 91

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

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

Excel 2013

Доброго времени суток.
Подскажите мне, насчет формулы.

Вопрос такой - в столбце E - вписан какой-то абстрактный текст.
И мне этот текст нужно объединить - в одной ячейке H7.
Вроде бы несложно - на ум приходит формула навроде

Код

=E7&E8&E9&E10&E11&E12&E13

Но это объединение - горизонтальное, а мне нужно вертикальное - так чтобы этот текст был объединен по строкам.
То есть сейчас получается в ячейке H7: "Первый текст Второй текст третий текст "
А мне нужно, чтобы в ячейке H7 получился бы результат:
"Первый текст
Второй текст
третий текст "

Как это сделать при помощи формулы ?

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

Ответить

krosav4ig

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

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

Ранг: Старожил

Сообщений: 2306

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

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

Excel 2007,2010,2013

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

Код

=E7&СИМВОЛ(10)&E8&СИМВОЛ(10)&E9&СИМВОЛ(10)&E10&СИМВОЛ(10)&E11&СИМВОЛ(10)&E12&СИМВОЛ(10)&E13

Код

=E7&"
"&E8&"
"&E9&"
"&E10&"
"&E11&"
"&E12&"
"&E13

или UDF [vba]

Код

Function JoinLF$(ByRef r As Range)
    Dim v
    If r.Count = 1 Then JoinLF = " " & r: Exit Function
    For Each v In r.Value
        If Not IsEmpty(v) Then JoinLF = JoinLF & IIf(JoinLF > "", vbLf, "") & v
    Next
End Function

[/vba]

[p.s.]между кавычками перенос строки

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Четверг, 06.06.2019, 03:46

Ответить

OlegSmirnov

Дата: Четверг, 06.06.2019, 04:00 | Сообщение № 3

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

Ранг: Участник

Сообщений: 91

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

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

Excel 2013

krosav4ig, UDF не подходит, поскольку это макрос, а не формула.

Первая формула не работает, выдает результат
"Первый текст Второй текст третий текст "

Вторая формула не работает, выдает результат
"Первый текст Второй текст третий текст "

То есть формулы по прежнему выдают горизонтальное объединение, а не вертикальное.

Ответить

OlegSmirnov

Дата: Четверг, 06.06.2019, 04:01 | Сообщение № 4

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

Ранг: Участник

Сообщений: 91

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

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

Excel 2013

И UDF протестировал - тоже выдает результат:

"Первый текст Второй текст третий текст "
То есть опять горизонтальное объединение.

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

Ответить

DrMini

Дата: Четверг, 06.06.2019, 06:44 | Сообщение № 5

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

Ранг: Ветеран

Сообщений: 554

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

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

Excel 2010, 2013, 2019 RUS

В формате ячеек для (в Вашем примере H7) ячейки в которой должен отображаться результат установите "Формат ячеек"=>"Выравнивание"=>"Переносить по словам".

Ответить

OlegSmirnov

Дата: Четверг, 06.06.2019, 10:02 | Сообщение № 6

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

Ранг: Участник

Сообщений: 91

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

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

Excel 2013

DrMini, я не про формат спрашивал, а про запись объединенного текста.
Запись текста - должна быть вертикальная.
То есть сейчас в ячейке - должна быть видна только первая строка ("Первый текст")

А остальные строки - должны быть не видны, так как они располагаются - ниже.