Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Как добавить знак перехода на новую строку внутри ячейки - Мир MS Excel

Старая форма входа
  • Страница 1 из 2
  • 1
  • 2
  • »
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Как добавить знак перехода на новую строку внутри ячейки (Формулы/Formulas)
Как добавить знак перехода на новую строку внутри ячейки
Nicko Дата: Среда, 18.03.2015, 15:47 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
В одной ячейке содержится текст на нескольких строчках.
Как добавить к этому тексту еще значений, но так что бы каждое было с новой строки?

В примере из столбца В на втором листе нужно добавить значения в столбец АВ на первом листе, в соответствии с артикулами из столбца D
К сообщению приложен файл: 2463237.xlsx (58.6 Kb)
 
Ответить
СообщениеВ одной ячейке содержится текст на нескольких строчках.
Как добавить к этому тексту еще значений, но так что бы каждое было с новой строки?

В примере из столбца В на втором листе нужно добавить значения в столбец АВ на первом листе, в соответствии с артикулами из столбца D

Автор - Nicko
Дата добавления - 18.03.2015 в 15:47
Russel Дата: Среда, 18.03.2015, 15:59 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1394
Репутация: 320 ±
Замечаний: 0% ±

Excel 2010
С допстолбцом. При условии, что на втором листе везде соблюдается такая структура - три строки для одного артикула.
К сообщению приложен файл: 6751590.xlsx (14.9 Kb)


QIWI 9173973973
 
Ответить
СообщениеС допстолбцом. При условии, что на втором листе везде соблюдается такая структура - три строки для одного артикула.

Автор - Russel
Дата добавления - 18.03.2015 в 15:59
Nicko Дата: Среда, 18.03.2015, 16:08 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Совсем не то. Структура везде разная. От 4 до 6 значений на один артикул.

В финале должно в ячейках АВ быть добавлены значения в столбик, а не в строчку (внутри каждой ячейки)

Суть проблемы: где взять символ перехода на новую строку внутри одной ячейки?
 
Ответить
СообщениеСовсем не то. Структура везде разная. От 4 до 6 значений на один артикул.

В финале должно в ячейках АВ быть добавлены значения в столбик, а не в строчку (внутри каждой ячейки)

Суть проблемы: где взять символ перехода на новую строку внутри одной ячейки?

Автор - Nicko
Дата добавления - 18.03.2015 в 16:08
Pelena Дата: Среда, 18.03.2015, 16:38 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Russel Вам в формуле показал, как выглядит символ переноса строки
а не в строчку

Достаточно установить параметр Переносить по словам


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеRussel Вам в формуле показал, как выглядит символ переноса строки
а не в строчку

Достаточно установить параметр Переносить по словам

Автор - Pelena
Дата добавления - 18.03.2015 в 16:38
Nicko Дата: Среда, 18.03.2015, 16:55 | Сообщение № 5
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Вот я ступил))
Спасибо Вам!
 
Ответить
СообщениеВот я ступил))
Спасибо Вам!

Автор - Nicko
Дата добавления - 18.03.2015 в 16:55
Pelena Дата: Среда, 18.03.2015, 16:57 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Можно ещё UDF (взято из Готовых решений)
Макросы должны быть разрешены
К сообщению приложен файл: 6751590.xls (41.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеМожно ещё UDF (взято из Готовых решений)
Макросы должны быть разрешены

Автор - Pelena
Дата добавления - 18.03.2015 в 16:57
Nicko Дата: Среда, 18.03.2015, 22:31 | Сообщение № 7
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Не работает макрос в рабочем листе
Или же что то я опять не так делаю
К сообщению приложен файл: 6751590-2.xls (50.5 Kb)
 
Ответить
СообщениеНе работает макрос в рабочем листе
Или же что то я опять не так делаю

Автор - Nicko
Дата добавления - 18.03.2015 в 22:31
Pelena Дата: Среда, 18.03.2015, 22:53 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Работает, вроде. Удалила лишний Модуль2
К сообщению приложен файл: 6991925.xls (48.0 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеРаботает, вроде. Удалила лишний Модуль2

Автор - Pelena
Дата добавления - 18.03.2015 в 22:53
Nicko Дата: Среда, 18.03.2015, 23:06 | Сообщение № 9
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
А как запустить макрос?
Кнопка "выполнить" в макросах не активна
 
Ответить
СообщениеА как запустить макрос?
Кнопка "выполнить" в макросах не активна

Автор - Nicko
Дата добавления - 18.03.2015 в 23:06
Pelena Дата: Среда, 18.03.2015, 23:09 | Сообщение № 10
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Так это же функция пользователя (UDF)
Посмотрите формулу в столбце АВ


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак это же функция пользователя (UDF)
Посмотрите формулу в столбце АВ

Автор - Pelena
Дата добавления - 18.03.2015 в 23:09
Nicko Дата: Среда, 18.03.2015, 23:22 | Сообщение № 11
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Все ровно не работает.
Может я переформулирую вопрос:

Есть столбец со значениями (в столбик, а не в строчку) внутри каждой ячейки
К нему нужно добавить значении из другого листа (что то типа ВПР или аналогии...)

Проблемы:

1) текст в столбик внутри ячейки
2) несколько значений для парсинга в одну ячейку

вот как то так...
 
Ответить
СообщениеВсе ровно не работает.
Может я переформулирую вопрос:

Есть столбец со значениями (в столбик, а не в строчку) внутри каждой ячейки
К нему нужно добавить значении из другого листа (что то типа ВПР или аналогии...)

Проблемы:

1) текст в столбик внутри ячейки
2) несколько значений для парсинга в одну ячейку

вот как то так...

Автор - Nicko
Дата добавления - 18.03.2015 в 23:22
Nicko Дата: Четверг, 19.03.2015, 00:35 | Сообщение № 12
Группа: Пользователи
Ранг: Участник
Сообщений: 63
Репутация: 0 ±
Замечаний: 60% ±

Excel для Mac
Пример в файле
К сообщению приложен файл: 9401831.xlsx (28.0 Kb)
 
Ответить
СообщениеПример в файле

Автор - Nicko
Дата добавления - 19.03.2015 в 00:35
DJ_Marker_MC Дата: Четверг, 19.03.2015, 01:01 | Сообщение № 13
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Nicko, и Вам доброй ночи!!!

можно с помощью udf
[vba]
Код
Option Explicit
Function СцепитьМассивЕсли(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _
                         RezultColumnNum As Integer, Separator_ As String, Optional BezPovtorov As Boolean = True)
'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - колонка, откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце
'BezPovtorov - если поставить 0, то будут выведены все повторяющиеся совпадения

     Dim i As Long, oDict As Object, tmp As String, vlk
          
     If TypeName(Table) = "Range" Then Table = Table.Value

     If BezPovtorov Then
         Set oDict = CreateObject("Scripting.Dictionary")

         For i = 1 To UBound(Table)
             If Table(i, SearchColumnNum) = SearchValue Then
                 tmp = Table(i, RezultColumnNum)
                 If tmp <> "" Then
                     If Not oDict.Exists(tmp) Then
                         oDict.Add tmp, 0&
                         vlk = vlk & Separator_ & Table(i, RezultColumnNum)
                     End If
                 End If
             End If
         Next i

     Else
         For i = 1 To UBound(Table)
             If Table(i, SearchColumnNum) = SearchValue Then
                 vlk = vlk & Separator_ & Table(i, RezultColumnNum)
             End If
         Next i
     End If
     If vlk > 0 Then vlk = Mid(vlk, Len(Separator_) + 1) Else vlk = ""
     СцепитьМассивЕсли = vlk
End Function
[/vba]
К сообщению приложен файл: marker.xlsm (17.5 Kb)
 
Ответить
СообщениеNicko, и Вам доброй ночи!!!

можно с помощью udf
[vba]
Код
Option Explicit
Function СцепитьМассивЕсли(Table As Variant, SearchColumnNum As Integer, SearchValue As Variant, _
                         RezultColumnNum As Integer, Separator_ As String, Optional BezPovtorov As Boolean = True)
'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - колонка, откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце
'BezPovtorov - если поставить 0, то будут выведены все повторяющиеся совпадения

     Dim i As Long, oDict As Object, tmp As String, vlk
          
     If TypeName(Table) = "Range" Then Table = Table.Value

     If BezPovtorov Then
         Set oDict = CreateObject("Scripting.Dictionary")

         For i = 1 To UBound(Table)
             If Table(i, SearchColumnNum) = SearchValue Then
                 tmp = Table(i, RezultColumnNum)
                 If tmp <> "" Then
                     If Not oDict.Exists(tmp) Then
                         oDict.Add tmp, 0&
                         vlk = vlk & Separator_ & Table(i, RezultColumnNum)
                     End If
                 End If
             End If
         Next i

     Else
         For i = 1 To UBound(Table)
             If Table(i, SearchColumnNum) = SearchValue Then
                 vlk = vlk & Separator_ & Table(i, RezultColumnNum)
             End If
         Next i
     End If
     If vlk > 0 Then vlk = Mid(vlk, Len(Separator_) + 1) Else vlk = ""
     СцепитьМассивЕсли = vlk
End Function
[/vba]

Автор - DJ_Marker_MC
Дата добавления - 19.03.2015 в 01:01
Hugo Дата: Четверг, 19.03.2015, 01:43 | Сообщение № 14
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Зачем название поменяли? Вроде я нормально придумал, и на всех локалях работает - VLOOKUPCOUPLE
Мой вариант чуть получше - там есть пара отличий, найдите :)
[vba]
Код

Function VLOOKUPCOUPLE(Table As Variant, _
                        SearchColumnNum As Integer, _
                        SearchValue As Variant, _
                        RezultColumnNum As Integer, _
                        Separator_ As String, _
                        Optional BezPovtorov As Boolean = True)

'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - столбец, откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце
'BezPovtorov - если поставить 0, то будут выведены все повторяющиеся совпадения

     Dim i As Long, tmp As String, vlk

     If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
     If BezPovtorov Then
         With CreateObject("Scripting.Dictionary")
             For i = 1 To UBound(Table)
                 If Table(i, SearchColumnNum) = SearchValue Then
                     tmp = Table(i, RezultColumnNum)
                     If tmp <> "" Then
                         If Not .Exists(tmp) Then
                             .Add tmp, 0&
                             vlk = vlk & Separator_ & Table(i, RezultColumnNum)
                         End If
                     End If
                 End If
             Next i
         End With
     Else
         For i = 1 To UBound(Table)
             If Table(i, SearchColumnNum) = SearchValue Then
                 vlk = vlk & Separator_ & Table(i, RezultColumnNum)
             End If
         Next i
     End If
     If vlk > 0 Then vlk = Mid(vlk, Len(Separator_) + 1) Else vlk = ""
     VLOOKUPCOUPLE = vlk
End Function
[/vba]


excel@nxt.ru
webmoney: E265281470651 Z422237915069
 
Ответить
СообщениеЗачем название поменяли? Вроде я нормально придумал, и на всех локалях работает - VLOOKUPCOUPLE
Мой вариант чуть получше - там есть пара отличий, найдите :)
[vba]
Код

Function VLOOKUPCOUPLE(Table As Variant, _
                        SearchColumnNum As Integer, _
                        SearchValue As Variant, _
                        RezultColumnNum As Integer, _
                        Separator_ As String, _
                        Optional BezPovtorov As Boolean = True)

'Table - таблица, где ищем
'SearchColumnNum - столбец, где ищем
'SearchValue - данные, которые ищем
'RezultColumnNum - столбец, откуда берём результат
'Separator_ - разделитель, желательно вводить с пробелом в конце
'BezPovtorov - если поставить 0, то будут выведены все повторяющиеся совпадения

     Dim i As Long, tmp As String, vlk

     If TypeName(Table) = "Range" Then Table = Intersect(Table.Parent.UsedRange, Table).Value
     If BezPovtorov Then
         With CreateObject("Scripting.Dictionary")
             For i = 1 To UBound(Table)
                 If Table(i, SearchColumnNum) = SearchValue Then
                     tmp = Table(i, RezultColumnNum)
                     If tmp <> "" Then
                         If Not .Exists(tmp) Then
                             .Add tmp, 0&
                             vlk = vlk & Separator_ & Table(i, RezultColumnNum)
                         End If
                     End If
                 End If
             Next i
         End With
     Else
         For i = 1 To UBound(Table)
             If Table(i, SearchColumnNum) = SearchValue Then
                 vlk = vlk & Separator_ & Table(i, RezultColumnNum)
             End If
         Next i
     End If
     If vlk > 0 Then vlk = Mid(vlk, Len(Separator_) + 1) Else vlk = ""
     VLOOKUPCOUPLE = vlk
End Function
[/vba]

Автор - Hugo
Дата добавления - 19.03.2015 в 01:43
ShAM Дата: Четверг, 19.03.2015, 05:52 | Сообщение № 15
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
Все ровно не работает.
Не знаю, у меня работает.
ЗЫ: Дубль темы: http://www.excelworld.ru/forum/2-16444-1
 
Ответить
Сообщение
Все ровно не работает.
Не знаю, у меня работает.
ЗЫ: Дубль темы: http://www.excelworld.ru/forum/2-16444-1

Автор - ShAM
Дата добавления - 19.03.2015 в 05:52
ShAM Дата: Четверг, 19.03.2015, 06:27 | Сообщение № 16
Группа: Друзья
Ранг: Старожил
Сообщений: 1347
Репутация: 249 ±
Замечаний: 0% ±

Excel 2010
 
Ответить
СообщениеЕще один клон.
http://www.excelworld.ru/forum/2-16451-1
http://www.excelworld.ru/forum/2-16444-1

Автор - ShAM
Дата добавления - 19.03.2015 в 06:27
Pelena Дата: Четверг, 19.03.2015, 07:23 | Сообщение № 17
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
К нему нужно добавить
Так?
Не сразу обратила внимание, что у Вас Mac. Там код символа перевода строки не 10, а 13
К сообщению приложен файл: 4670511.xls (51.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение
К нему нужно добавить
Так?
Не сразу обратила внимание, что у Вас Mac. Там код символа перевода строки не 10, а 13

Автор - Pelena
Дата добавления - 19.03.2015 в 07:23
Pelena Дата: Четверг, 19.03.2015, 07:28 | Сообщение № 18
Группа: Админы
Ранг: Местный житель
Сообщений: 19165
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Nicko, Вы зачем столько тем наплодили одинаковых? Замечание Вам за нарушение п.5F Правил форума

Женя, Игорь, если у автора Mac, то Scripting.Dictionary не заработает :(
И код символа перевода строки там 13, а не 10


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеNicko, Вы зачем столько тем наплодили одинаковых? Замечание Вам за нарушение п.5F Правил форума

Женя, Игорь, если у автора Mac, то Scripting.Dictionary не заработает :(
И код символа перевода строки там 13, а не 10

Автор - Pelena
Дата добавления - 19.03.2015 в 07:28
Hugo Дата: Четверг, 19.03.2015, 09:27 | Сообщение № 19
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3250
Репутация: 707 ±
Замечаний: 0% ±

2019
Pelena, кстати вопрос - на Маках есть свой словарь? А что с коллекцией?
В принципе для Маков можно этот код переписать с использованием коллекции (если у Маков она аналогична Винде), или вообще убрать этот анализ повторов, выводить всё. Но претензий от маководов я не помню, вероятно не пользовались этой UDF.

И вообще про Мак нужно предупреждать, и для Маков есть свой подфорум. А то конечно, часто видим - "не работает" и думай что хошь...


excel@nxt.ru
webmoney: E265281470651 Z422237915069


Сообщение отредактировал Hugo - Четверг, 19.03.2015, 09:31
 
Ответить
СообщениеPelena, кстати вопрос - на Маках есть свой словарь? А что с коллекцией?
В принципе для Маков можно этот код переписать с использованием коллекции (если у Маков она аналогична Винде), или вообще убрать этот анализ повторов, выводить всё. Но претензий от маководов я не помню, вероятно не пользовались этой UDF.

И вообще про Мак нужно предупреждать, и для Маков есть свой подфорум. А то конечно, часто видим - "не работает" и думай что хошь...

Автор - Hugo
Дата добавления - 19.03.2015 в 09:27
DJ_Marker_MC Дата: Четверг, 19.03.2015, 10:23 | Сообщение № 20
Группа: Друзья
Ранг: Ветеран
Сообщений: 991
Репутация: 213 ±
Замечаний: 0% ±

Excel 2019
Hugo, Сори, что не указал авторство, но честное слово не знал кто автор, так как данная функция уже давно сохранена в личном .xlam, а название изменил еще сразу под свое удобство.
 
Ответить
СообщениеHugo, Сори, что не указал авторство, но честное слово не знал кто автор, так как данная функция уже давно сохранена в личном .xlam, а название изменил еще сразу под свое удобство.

Автор - DJ_Marker_MC
Дата добавления - 19.03.2015 в 10:23
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вопросы по Excel для Mac » Как добавить знак перехода на новую строку внутри ячейки (Формулы/Formulas)
  • Страница 1 из 2
  • 1
  • 2
  • »
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!