KutoolsforOffice — Одно решение — пять мощных инструментов.Меньше усилий — больше результата.

3 способов объединения строк в одну ячейку по группе в Excel

АвторСуньДата изменения

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

Снимок экрана двух столбцов с классами и именами учащихся, а также объединёнными именами учащихся по классам

Группировка и объединение с помощью формул и функции фильтрации

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

Примечание: убедитесь, что ваши данные отсортированы по группирующему столбцу, например, по столбцу «Класс» в данном случае.
  1. В новом столбце введите следующую формулу для объединения имён и нажмите «Enter». Затем протяните её вниз, чтобы применить ко всему диапазону столбца.
    =IF(A2=A1,C1&,", "&,B2,B2)
  2. В новом столбце введите приведённую ниже формулу, нажмите «Enter» и протяните её вниз.
    =IF(A2<,>,A3,"Last","")
  3. Выделите весь диапазон данных, включая вспомогательные столбцы. Выберите «Данные» > «Filter», чтобы добавить к данным Filter icons.
    Снимок экрана кнопки «Фильтр» на ленте Excel
  4. Щелкните  "Filter icon" в последнем вспомогательном столбце, отметьте только флажок «Last"» и нажмите «OK».
    Снимок экрана с отображением только последних строк каждой группы в Excel после фильтрации

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

Снимок экрана окончательных сгруппированных и объединённых результатов в Excel

Группировка и объединение с помощью Kutools для Excel легко

«Kutools для Excel» предлагает простое и эффективное решение — функцию «Расширенное объединение строк», которая позволяет за несколько щелчков объединить сгруппированные строки в одну ячейку. Инструмент автоматически добавляет пользовательские разделители — например, запятые, пробелы или разрывы строк, — чтобы соответствовать любым требованиям к оформлению данных.

Kutools для Excel — включает более 300 незаменимых инструментов для Excel. Работайте в Excel быстрее, проще и эффективнее.Скачать сейчас!

  1. Выделите ячейки с вашими данными. Перейдите в «Kutools» → «Объединить и разделить» → «Расширенное объединение строк».
  2. В окне «Advanced Combine Rows" настройте параметры следующим образом:
    1. Щелкните столбец, по которому вы хотите объединить строки, и назначьте его «первичным ключом».
    2. Для столбца, который вы хотите объединить (например, столбец «Имена» в данном случае), в поле «Операция» выберите «Укажите разделитель» в разделе «Объединить».
    3. Нажмите кнопку «OK».

Результат: Kutools автоматически объединит данные из группы в одну ячейку с указанным разделителем.

Примечание: перед применением утилиты рекомендуется создать копию исходных данных.

Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас

Группировка и объединение с помощью кода VBA

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

  1. Нажмите  клавиши «Alt" + "F11"», чтобы открыть окно «Microsoft Visual Basic for Applications"».
  2. В редакторе кода выберите «Tools" > «References"», чтобы открыть диалоговое окно «References"», установите флажок «Microsoft Scripting Runtime"» и сохраните изменения.
  3. Перейдите в «Вставка» > «Модуль» и вставьте следующий код VBA в окно модуля.
    VBA: Объединение строк в одну ячейку по группе
    Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub
    Снимок экрана с вставленным кодом VBA в окне модуля
  4. Нажмите клавишу «F5"», чтобы запустить сценарий, и следуйте инструкциям для выбора ваших Диапазон данных и указания Ключевой столбец.
    Снимок экрана диалогового окна VBA с запросом выбора диапазона в ExcelСнимок экрана диалогового окна VBA с запросом выбора ключевого столбца

Результат показан ниже:
Снимок экрана объединённых результатов после выполнения скрипта VBA

При работе с данными в Excel группировка и объединение ячеек — распространённая, но непростая задача. В зависимости от ваших целей и используемых инструментов вы можете выбрать один из нескольких подходов для достижения нужного результата. Подберите наиболее подходящий инструмент и метод, исходя из ваших конкретных задач и предпочтений, чтобы сделать работу в Excel ещё эффективнее и удобнее. Если вы хотите освоить ещё больше полезных приёмов и лайфхаков,на нашем сайте доступны тысячи обучающих материалов, которые помогут вам стать настоящим мастером Excel.

Демонстрация: Группировка и объединение с помощью Расширенное объединение строк из Kutools для Excel

 
Kutools для Excel: Более 300 удобных инструментов всегда под рукой! Воспользуйтесь функциями на базе ИИ для более умной и быстрой работы!Скачать сейчас!

Лучшие инструменты повышения продуктивности в Office

🤖KUTOOLS AI Помощник: Преобразуйте Анализ данных с помощью:Интеллектуального выполнения   |  Генерации кода|  Создания пользовательские формулы  |  Анализа данных и построения диаграмм|  Вызова Расширенные функции…
Популярные функции:Поиск, выделение или Отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячеек без потери данных   |  Округление без использования формул…
Супер ПОИСК:VLookup по нескольким критериям  |  VLookup по нескольким значениям  |   VLookup по нескольким листам   |   Распознавание нечетких соответствий…
Расширенный раскрывающийся список:Быстрое создание выпадающего списка   |  Зависимый выпадающий список   |  Выпадающий список с множественным выбором…
Управление столбцами:Добавление заданного количества столбцов|Перемещение столбцов|Переключение видимости скрытых столбцов|Сравнение диапазонов и столбцов…
Избранные функции:Сетка фокусировки   |  Просмотр дизайна   |Улучшенная строка формулы   | Управление рабочими книгами и листами   |  Библиотека ресурсов(автотекст)|  Выбор даты   |  Объединить листы  |  Шифрование/Расшифровать ячейки   | Отправка писем по списку   |  Супер фильтр   |   Специальный фильтр(Фильтр ячеек с жирным шрифтом/курсив/зачёркивание…) …
Лучшие наборы инструментов 15:12 Текстовыеинструменты(Добавить текст,Удалить определенные символы, …)|   50+Типыдиаграмм(Диаграмма Ганта, …)|   40+ Практические формулы(Рассчитать возраст на основе даты рождения, …)|   19 Инструментывставки(Вставить QR-код,Вставка изображения по пути, …)|   12 Инструментыпреобразования(Преобразовать в слова,Конвертация валют, …)|   7 Объединить и разделитьИнструменты(Расширенное объединение строк,Разделить ячейки, …)|… и многое другое
Используйте Kutools на предпочитаемом языке — поддержка английского, испанского, немецкого, французского, китайского и ещё 40+ языков!

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

Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
  • Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!

Все надстройки Kutools — один установщик

Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.

ExcelWordOutlookTabsPowerPoint
  • Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
  • Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
  • Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
  • 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
  • Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек