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

Вход

Регистрация

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

 

= Мир MS Excel/Конкатенация массива данных - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Конкатенация массива данных (Формулы/Formulas)
Конкатенация массива данных
EVS Дата: Среда, 15.01.2020, 13:22 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте, товарищи!
Подскажите, пожалуйста, мне надо объединять в одной ячейке информацию из множества ячеек в строке.
Работаю в версии 2016, винда 7.
Заранее спасибо.
 
Ответить
СообщениеЗдравствуйте, товарищи!
Подскажите, пожалуйста, мне надо объединять в одной ячейке информацию из множества ячеек в строке.
Работаю в версии 2016, винда 7.
Заранее спасибо.

Автор - EVS
Дата добавления - 15.01.2020 в 13:22
Serge_007 Дата: Среда, 15.01.2020, 13:29 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

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

Макрос Павлова:
[vba]
Код
Sub MergeToOneCell()
    Const sDELIM As String = " "     'символ-разделитель
    Dim rCell As Range
    Dim sMergeStr As String
    If TypeName(Selection) <> "Range" Then Exit Sub   'если выделены не ячейки - выходим
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text  'собираем текст из ячеек
        Next rCell
        Application.DisplayAlerts = False   'отключаем стандартное предупреждение о потере текста
        .Merge Across:=False                'объединяем ячейки
        Application.DisplayAlerts = True
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))    'добавляем к объед.ячейке суммарный текст
    End With
End Sub
[/vba]


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеЗдравствуйте

Макрос Павлова:
[vba]
Код
Sub MergeToOneCell()
    Const sDELIM As String = " "     'символ-разделитель
    Dim rCell As Range
    Dim sMergeStr As String
    If TypeName(Selection) <> "Range" Then Exit Sub   'если выделены не ячейки - выходим
    With Selection
        For Each rCell In .Cells
            sMergeStr = sMergeStr & sDELIM & rCell.Text  'собираем текст из ячеек
        Next rCell
        Application.DisplayAlerts = False   'отключаем стандартное предупреждение о потере текста
        .Merge Across:=False                'объединяем ячейки
        Application.DisplayAlerts = True
        .Item(1).Value = Mid(sMergeStr, 1 + Len(sDELIM))    'добавляем к объед.ячейке суммарный текст
    End With
End Sub
[/vba]

Автор - Serge_007
Дата добавления - 15.01.2020 в 13:29
китин Дата: Среда, 15.01.2020, 13:30 | Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
мне надо объединять в одной ячейке информацию из множества ячеек в строке

переведите.
если просто надо все ячейки записать в одну, то используйте СЦЕПИТЬ
точнее при наличии файла примера


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
мне надо объединять в одной ячейке информацию из множества ячеек в строке

переведите.
если просто надо все ячейки записать в одну, то используйте СЦЕПИТЬ
точнее при наличии файла примера

Автор - китин
Дата добавления - 15.01.2020 в 13:30
Serge_007 Дата: Среда, 15.01.2020, 13:32 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Начиная с Excel 2019:
Цитата
Функция ОБЪЕДИНИТЬ

В Excel 2019 появилась еще одна функция, которая умеет соединять текстовые строки. Она является усовершенствованной версией функции СЦЕП. В нее добавлена возможность задавать разделитель (1-ый аргумент) и указывать ей, как обрабатывать пустые ячейки (2-ой аргумент). Например, формула

Код
=ОБЪЕДИНИТЬ(", ";ИСТИНА;A2:A10)


соединит ячейки диапазона A2:A10, проставив после каждой запятую и пробел, но при этом пустые ячейки будут пропущены. Если заменить ИСТИНА на ЛОЖЬ, то пустые ячейки также буду учтены и отделены от других частей текста указанным в первом аргументе разделителем.


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеНачиная с Excel 2019:
Цитата
Функция ОБЪЕДИНИТЬ

В Excel 2019 появилась еще одна функция, которая умеет соединять текстовые строки. Она является усовершенствованной версией функции СЦЕП. В нее добавлена возможность задавать разделитель (1-ый аргумент) и указывать ей, как обрабатывать пустые ячейки (2-ой аргумент). Например, формула

Код
=ОБЪЕДИНИТЬ(", ";ИСТИНА;A2:A10)


соединит ячейки диапазона A2:A10, проставив после каждой запятую и пробел, но при этом пустые ячейки будут пропущены. Если заменить ИСТИНА на ЛОЖЬ, то пустые ячейки также буду учтены и отделены от других частей текста указанным в первом аргументе разделителем.

Автор - Serge_007
Дата добавления - 15.01.2020 в 13:32
Serge_007 Дата: Среда, 15.01.2020, 13:44 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
используйте СЦЕПИТЬ
Игорь, много ячеек надо сцепить, массив :)


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
используйте СЦЕПИТЬ
Игорь, много ячеек надо сцепить, массив :)

Автор - Serge_007
Дата добавления - 15.01.2020 в 13:44
Pelena Дата: Среда, 15.01.2020, 13:54 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19162
Репутация: 4412 ±
Замечаний: ±

Excel 365 & Mac Excel
Ещё варианты пользовательскими функциями здесь
точнее при наличии файла примера


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

Автор - Pelena
Дата добавления - 15.01.2020 в 13:54
китин Дата: Среда, 15.01.2020, 14:14 | Сообщение № 7
Группа: Модераторы
Ранг: Экселист
Сообщений: 7013
Репутация: 1073 ±
Замечаний: 0% ±

Excel 2007;2010;2016
много ячеек надо сцепить

ха ха откуда инфа? файла то нетути!!! :p


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
много ячеек надо сцепить

ха ха откуда инфа? файла то нетути!!! :p

Автор - китин
Дата добавления - 15.01.2020 в 14:14
Serge_007 Дата: Среда, 15.01.2020, 14:19 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
откуда инфа? файла то нетути
В данном случае файл не нужен, все понятно из названия темы :D


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
откуда инфа? файла то нетути
В данном случае файл не нужен, все понятно из названия темы :D

Автор - Serge_007
Дата добавления - 15.01.2020 в 14:19
EVS Дата: Среда, 15.01.2020, 18:42 | Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Излишнее цитирование удалено администрацией - это нарушение п.5j Правил форума
Serge_007,

а есть инструкция как это делать? а то в интернете всего полно... а я совсем профан... глаза разбегаются...


Сообщение отредактировал китин - Четверг, 16.01.2020, 10:06
 
Ответить
СообщениеИзлишнее цитирование удалено администрацией - это нарушение п.5j Правил форума
Serge_007,

а есть инструкция как это делать? а то в интернете всего полно... а я совсем профан... глаза разбегаются...

Автор - EVS
Дата добавления - 15.01.2020 в 18:42
EVS Дата: Среда, 15.01.2020, 18:44 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Serge_007,
на 16 работает, только если подписку купить(
 
Ответить
СообщениеSerge_007,
на 16 работает, только если подписку купить(

Автор - EVS
Дата добавления - 15.01.2020 в 18:44
Serge_007 Дата: Четверг, 16.01.2020, 09:33 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2748 ±
Замечаний: ±

Excel 2016
Ещё варианты пользовательскими функциями здесь
Пройдите по ссылке, там файл есть готовый


ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Ещё варианты пользовательскими функциями здесь
Пройдите по ссылке, там файл есть готовый

Автор - Serge_007
Дата добавления - 16.01.2020 в 09:33
EVS Дата: Вторник, 18.02.2020, 14:30 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Спасибо, товарищи!!! Очень помогли. Всех благ Вам!!
 
Ответить
СообщениеСпасибо, товарищи!!! Очень помогли. Всех благ Вам!!

Автор - EVS
Дата добавления - 18.02.2020 в 14:30
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Конкатенация массива данных (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

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