Формула excel соединить через запятую

Склеивание текста по условию

Про то, как можно быстро склеивать текст из нескольких ячеек в одну и, наоборот, разбирать длинную текстовую строку на составляющие я уже писал. Теперь же давайте рассмотрим близкую, но чуть более сложную задачу — как склеивать текст из нескольких ячеек при выполнении определенного заданного условия. 

Допустим, что у нас имеется база данных по клиентам, где одному названию компании может соответствовать несколько разных email’ов ее сотрудников. Наша задача состоит в том, чтобы собрать все адреса по названиям компаний и сцепить их (через запятую или точку с запятой), чтобы сделать потом, например, почтовую рассылку по клиентам, т.е. получить на выходе что-то похожее на:

Другими словами, нам нужен инструмент, который будет склеивать (сцеплять) текст по условию — аналог функции СУММЕСЛИ (SUMIF), но для текста.

Способ 0. Формулой

Не очень изящный, зато самый простой способ. Можно написать несложную формулу, которая будет проверять отличается ли компания в очередной строке от предыдущей.  Если не отличается, то приклеиваем через запятую очередной адрес. Если отличается, то «сбрасываем» накопленное, начиная заново:

Минусы такого подхода очевидны: из всех ячеек полученного дополнительного столбца нам нужны только последние по каждой компании (желтые). Если список большой, то чтобы их быстро отобрать придется добавить еще один столбец, использующий функцию ДЛСТР (LEN), проверяющий длину накопленных строк:

Теперь можно отфильтровать единички и скопировать нужные склейки адресов для дальнейшего использования.

Способ 1. Макрофункция склейки по одному условию

Если исходный список не отсортирован по компаниям, то приведенная выше простая формула не работает, но можно легко выкрутиться с помощью небольшой пользовательской функции на VBA. Откройте редактор Visual Basic нажатием на сочетание клавиш Alt+F11 или с помощью кнопки Visual Basic на вкладке Разработчик (Developer). В открывшемся окне вставьте новый пустой модуль через меню Insert — Module и скопируйте туда текст нашей функции:

Function MergeIf(TextRange As Range, SearchRange As Range, Condition As String)
    Dim Delimeter As String, i As Long
    Delimeter = ", " 'символы-разделители (можно заменить на пробел или ; и т.д.)
    
    'если диапазоны проверки и склеивания не равны друг другу - выходим с ошибкой
    If SearchRange.Count <> TextRange.Count Then
        MergeIf = CVErr(xlErrRef)
        Exit Function
    End If
    
    'проходим по все ячейкам, проверяем условие и собираем текст в переменную OutText
    For i = 1 To SearchRange.Cells.Count
        If SearchRange.Cells(i) Like Condition Then OutText = OutText & TextRange.Cells(i) & Delimeter
    Next i
    
    'выводим результаты без последнего разделителя
    MergeIf = Left(OutText, Len(OutText) - Len(Delimeter))
End Function

Если теперь вернуться в Microsoft Excel, то в списке функций (кнопка fx в строке формул или вкладка Формулы — Вставить функцию) можно будет найти нашу функцию MergeIf в категории Определенные пользователем (User Defined). Аргументы у функции следующие:

Способ 2. Сцепить текст по неточному условию

Если заменить в 13-й строчке нашего макроса первый знак = на оператор приблизительного совпадения Like, то можно будет осуществлять склейку по неточному совпадению исходных данных с критерием отбора. Например, если название компании может быть записано в разных вариантах, то мы можем одной функцией проверить и собрать их все:

Поддерживаются стандартные спецсимволы подстановки:

• звездочка (*) — обозначает любое количество любых символов (в т.ч. и их отсутствие)
• вопросительный знак (?) — обозначает один любой символ
• решетка (#) — обозначает одну любую цифру (0-9)

По умолчанию оператор Like регистрочувствительный, т.е. понимает, например, «Орион» и «оРиОн» как разные компании. Чтобы не учитывать регистр можно добавить в самое начало модуля в редакторе Visual Basic строчку Option Compare Text, которая переключит Like в режим, когда он невосприимчив к регистру.

Таким образом можно составлять весьма сложные маски для проверки условий, например:

• ?1##??777RUS — выборка по всем автомобильным номерам 777 региона, начинающимся с 1
• ООО* — все компании, название которых начинается на ООО
• ##7## — все товары с пятизначным цифровым кодом, где третья цифра 7
• ????? — все названия из пяти букв и т.д.

Способ 3. Макрофункция склейки текста по двум условиям

В работе может встретиться задача, когда сцеплять текст нужно больше, чем по одному условию. Например представим, что в нашей предыдущей таблице добавился еще один столбец с городом и склеивание нужно проводить не только для заданной компании, но еще и для заданного города. В этом случае нашу функцию придется немного модернизировать, добавив к ней проверку еще одного диапазона:

Function MergeIfs(TextRange As Range, SearchRange1 As Range, Condition1 As String, SearchRange2 As Range, Condition2 As String)
    Dim Delimeter As String, i As Long
    Delimeter = ", " 'символы-разделители (можно заменить на пробел или ; и т.д.)
    
    'если диапазоны проверки и склеивания не равны друг другу - выходим с ошибкой
    If SearchRange1.Count <> TextRange.Count Or SearchRange2.Count <> TextRange.Count Then
        MergeIfs = CVErr(xlErrRef)
        Exit Function
    End If
    
    'проходим по все ячейкам, проверяем все условия и собираем текст в переменную OutText
    For i = 1 To SearchRange1.Cells.Count
        If SearchRange1.Cells(i) = Condition1 And SearchRange2.Cells(i) = Condition2 Then
            OutText = OutText & TextRange.Cells(i) & Delimeter
        End If
    Next i
    
    'выводим результаты без последнего разделителя
    MergeIfs = Left(OutText, Len(OutText) - Len(Delimeter))
End Function

Применяться она будет совершенно аналогично — только аргументов теперь нужно указывать больше:

Способ 4. Группировка и склейка в Power Query

Решить проблему можно и без программирования на VBA, если использовать бесплатную надстройку Power Query. Для Excel 2010-2013 ее можно скачать здесь, а в Excel 2016 она уже встроена по умолчанию. Последовательность действий будет следующей:

Power Query не умеет работать с обычными таблицами, поэтому первым шагом превратим нашу таблицу в «умную». Для этого ее нужно выделить и нажать сочетание Ctrl+T или выбрать на вкладке Главная — Форматировать как таблицу (Home — Format as Table). На появившейся затем вкладке Конструктор (Design) можно задать имя таблицы (я оставил стандартное Таблица1):

Теперь загрузим нашу таблицу в надстройку Power Query. Для этого на вкладке Данные (если у вас Excel 2016) или на вкладке Power Query (если у вас Excel 2010-2013) жмем Из таблицы (Data — From Table):

В открывшемся окне редактора запросов выделяем щелчком по заголовку столбец Компания и сверху жмем кнопку Группировать (Group By). Вводим имя нового столбца и тип операции в группировке — Все строки (All Rows):

Жмем ОК и получаем для каждой компании мини-таблицу сгруппированных значений. Содержимое таблиц хорошо видно, если щелкать левой кнопкой мыши в белый фон ячеек (не в текст!) в получившемся столбце:

Теперь добавим еще один столбец, где с помощью функции склеим через запятую содержимое столбцов Адрес в каждой из мини-таблиц. Для этого на вкладке Добавить столбец жмем Пользовательский столбец (Add column — Custom column) и в появившемся окне вводим имя нового столбца и формулу сцепки на встроенном в Power Query языке М:

Обратите внимание, что все М-функции регистрочувствительные (в отличие от Excel). После нажатия на ОК получаем новый столбец со склееными адресами:

Осталось удалить ненужный уже столбец ТаблАдресов (правой кнопкой мыши по заголовку — Удалить столбец) и выгрузить результаты на лист, нажав на вкладке Главная — Закрыть и загрузить (Home — Close and load):

Важный нюанс: в отличие от предыдущих способов (функций), таблицы из Power Query не обновляются автоматически. Если в будущем произойдут какие-либо изменения в исходных данных, то нужно будет щелкнуть правой кнопкой в любое место таблицы результатов и выбрать команду Обновить (Refresh).

Ссылки по теме

• Как разделить длинную текстовую строку на части
• Несколько способов склеить текст из разных ячеек в одной
• Использование оператора Like для проверки текста по маске

Когда вы объединяете ячейки из нескольких столбцов или строк в одну ячейку, объединенные данные могут быть ничем не разделены. Но если вы хотите разделить их указанными метками, такими как пробел, запятые, точка с запятой или другие, как вы можете это сделать? Это руководство познакомит вас с некоторыми методами.

• Объедините строку или столбец ячеек в одну ячейку с пробелом, запятой или другими разделителями с помощью формул
• Объедините строку или столбец ячеек в одну ячейку с помощью пробела, запятой или других разделителей с помощью функции, определяемой пользователем
• Объедините строку или столбец ячеек в одну ячейку с разрывом строки с помощью формул
• Объедините строку, столбец или диапазон ячеек в одну ячейку с указанным разделителем, используя замечательную функцию

Объедините строку или столбец ячеек в одну ячейку с пробелом, запятой или другими разделителями с помощью формул

В Excel вы можете использовать приведенные ниже формулы для объединения строки ячеек или столбца ячеек в одну ячейку.

• Метод A: используйте оператор «&» для объединения ячеек
• Метод B: используйте функцию Concatenate для объединения ячеек
• Метод C: используйте функцию Textjoin для объединения ячеек (Excel 365 и более поздние версии)

Метод A: используйте оператор «&» для объединения ячеек

В Excel вы можете использовать оператор «&» для объединения различных текстовых строк или значений ячеек.

Введите формулу ниже, чтобы объединить ячейки в несколько столбцов: (разделите объединенные результаты пробелом, вы можете заменить пробел другими разделителями по мере необходимости.)

=A2&» «&B2&» «&C2

Затем перетащите дескриптор заполнения вниз к ячейкам, к которым вы хотите применить эту формулу, и данные из разных столбцов были объединены в одну ячейку, см. Снимок экрана:

Метод B: используйте функцию Concatenate для объединения ячеек

Функция Concatenate в Excel также используется для объединения нескольких текстовых строк или значений ячеек в одну ячейку.

Введите или скопируйте приведенную ниже формулу в пустую ячейку:

=CONCATENATE(A2, «-«, B2, «-«, C2)

Затем перетащите дескриптор заполнения вниз к ячейкам, к которым вы хотите применить эту формулу, вы получите следующий результат:

Метод C: используйте функцию Textjoin для объединения ячеек

Если у вас есть Excel 365 и более поздние версии, есть новая функция Textjoin, эта функция также может помочь вам объединить несколько ячеек в одну ячейку.

Введите или скопируйте следующую формулу в пустую ячейку:

=TEXTJOIN(«,»,TRUE,A2:C2)

Затем перетащите маркер заполнения, чтобы применить эту формулу к другим ячейкам, см. Снимок экрана:

Объедините строку или столбец ячеек в одну ячейку с помощью пробела, запятой или других разделителей с помощью функции, определяемой пользователем

В Excel вы также можете создать определяемую пользователем функцию для объединения ячеек строки или столбца в одну ячейку с пробелами или указанными метками.

1. Держать ALT + F11 клавиши на клавиатуре, чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, и скопируйте VBA в модуль.

VBA: объединение ячеек на основе строки или столбца в одну с определенным разделителем:

Function Combine(WorkRng As Range, Optional Sign As String = "~") As String
Dim Rng As Range
Dim OutStr As String
For Each Rng In WorkRng
    If Rng.Text <> " " Then
        OutStr = OutStr & Rng.Text & Sign
    End If
Next
Combine = Left(OutStr, Len(OutStr) - 1)
End Function

Функции: В приведенном выше сценарии «Function Combine(WorkRng As Range, Optional Sign As String = «~») As String«, разделитель»~«указывается для разделения объединенного результата, вы можете изменить его по своему усмотрению.

3. Затем введите формулу =Combine(A2:C2) в пустой ячейке, а затем перетащите маркер заполнения по диапазону, в котором вы хотите применить эту формулу, все ячейки в строке будут объединены в ячейку с тире. Смотрите скриншот:

Tips: С помощью указанной выше функции, определяемой пользователем, вы также можете комбинировать значения ячеек на основе столбца, вам просто нужно ввести эту формулу =Combine(A2:A7) чтобы получить объединенные данные по мере необходимости.

Объедините строку или столбец ячеек в одну ячейку с разрывом строки с помощью формул

Иногда вам может понадобиться использовать разрыв строки для разделения объединенной текстовой строки, обычно CHAR (10) возвращает символ разрыва строки. Здесь вы можете использовать следующие методы для решения этой задачи:

• Метод A: используйте функцию Concatenate для объединения ячеек с разрывом строки
• Метод B: используйте функцию Textjoin для объединения ячеек с разрывом строки (Excel 365 и более поздние версии)

Метод A: используйте функцию Concatenate для объединения ячеек с разрывом строки

Здесь вы можете объединить функцию конкатенации с символом Char (10) вместе, чтобы получить объединенный результат, разделенный разрывом строки.

1. Пожалуйста, введите или скопируйте формулу ниже:

=CONCATENATE(A2,CHAR(10),B2,CHAR(10),C2)

Затем перетащите маркер заполнения вниз к ячейкам, к которым вы хотите применить эту формулу, и вы получите следующий результат:

2. Затем вы должны нажать Главная > Перенести текст чтобы отформатировать ячейки, и тогда вы получите нужный результат:

Tips: Чтобы объединить значения ячеек из нескольких строк, вам просто нужно изменить ссылку на ячейку следующим образом: =CONCATENATE(A2,CHAR(10),A3,CHAR(10),A4,CHAR(10),A5,CHAR(10),A6,CHAR(10),A7)

Метод B: используйте функцию Textjoin для объединения ячеек с разрывом строки (Excel 365 и более поздние версии)

Может быть, приведенная выше формула несколько сложна, если нужно объединить несколько ячеек, поэтому функция Textjoin может справиться с этой задачей быстро и легко.

Введите или скопируйте приведенную ниже формулу в пустую ячейку:

=TEXTJOIN(CHAR(10),TRUE,A2:C2)

После получения объединенных результатов не забудьте отформатировать ячейки формулы так, чтобы Перенести текст, см. снимок экрана:

Tips: Чтобы объединить значения ячеек из нескольких строк, вам просто нужно изменить ссылку на ячейку следующим образом: =TEXTJOIN(CHAR(10),TRUE,A2:A7)

Объедините строку, столбец или диапазон ячеек в одну ячейку с указанным разделителем, используя замечательную функцию

Если вас раздражают приведенные выше формулы и код, здесь я могу порекомендовать полезный инструмент — Kutools for Excel, С его Сочетать вы можете быстро объединить значения ячеек по строкам, столбцам или диапазонам в одну ячейку.

Советы:Чтобы применить это Сочетать функция, во-первых, вы должны скачать Kutools for Excel, а затем быстро и легко примените эту функцию.

После установки Kutools for Excel, пожалуйста, сделайте так:

1. Выберите значения ячеек диапазона, которые вы хотите объединить в ячейку.

2. Пожалуйста, примените эту функцию, нажав Кутулс > Слияние и разделение > Комбинируйте строки, столбцы или ячейки без потери данных. Смотрите скриншот:

3. В появившемся диалоговом окне укажите необходимые операции, как показано на следующем снимке экрана:

4, Затем нажмите Ok, вы получите результат, как показано на скриншоте ниже:

1). Объедините значения ячеек в одну ячейку для каждой строки:

2). Объедините значения ячеек в одну ячейку для каждого столбца:

3). объединить диапазон значений ячеек в одну ячейку:

Нажмите, чтобы скачать Kutools for Excel и бесплатная пробная версия прямо сейчас!

Более относительное объединение строк и столбцов статей: