3 метода объединения строк в одну ячейку на основе группы в Excel
Объединение нескольких строк данных в одну ячейку на основе группы является распространенным требованием при работе со структурированными наборами данных в Excel. Например, вы можете захотеть объединить все имена, связанные с одним классом, в одну ячейку. В этой статье представлены пошаговые инструкции с использованием различных методов и оптимизаций для разных уровней подготовки и вариантов использования.
- Группировка и объединение с помощью формул и функции Фильтр
- Группировка и объединение с помощью Kutools для Excel легко
- Группировка и объединение с помощью кода VBA
Группировка и объединение с помощью формул и функции Фильтр
Вы можете использовать формулы Excel вместе с функцией "Фильтр", чтобы объединять строки на основе одного столбца. Пожалуйста, действуйте следующим образом.
- В новом столбце введите следующую формулу для объединения имен и нажмите "Enter". Протяните вниз, чтобы применить её ко всему диапазону столбца.
=IF(A2=A1,C1&", "&B2,B2)
- В новом столбце введите следующую формулу, нажмите "Enter" и протяните формулу вниз.
=IF(A2<>A3,"Last","")
- Выберите весь диапазон данных, включая вспомогательные столбцы. Выберите "Данные" > "Фильтр", чтобы добавить значки фильтра к данным.
- Нажмите значок "Фильтр" в последнем вспомогательном столбце, отметьте только чекбокс "Последний" и нажмите "ОК".
Теперь результат показан ниже, вы можете удалить последний вспомогательный столбец, если он больше не нужен.
Группировка и объединение с помощью Kutools для Excel легко
"Kutools для Excel" предлагает простое и эффективное решение - "Расширенное объединение строк", позволяющее объединять сгруппированные строки в одну ячейку всего несколькими щелчками мыши. Оно автоматически добавляет пользовательские разделители, такие как запятые, пробелы или разрывы строк, чтобы удовлетворить различные потребности представления данных.
Kutools для Excel - Наполнен более чем 300 необходимыми инструментами для Excel. Воспользуйтесь постоянно бесплатными функциями ИИ! Скачайте прямо сейчас!
- Выделите ячейки, содержащие ваши данные. Перейдите к "Kutools" > "Объединить и разделить" > "Расширенное объединение строк".
- В окне "Расширенное объединение строк" настройте следующим образом:
- Нажмите на столбец, строки которого вы хотите объединить, и установите его как "первичный ключ".
- Для столбца, который вы хотите объединить, например, столбец "Имена" в данном случае, укажите разделитель в разделе "Объединить" под полем "Вычисление" для этого столбца.
- Нажмите кнопку "ОК".
Результат: Kutools автоматически объединит данные на основе группы в одну ячейку с указанным разделителем.
Kutools для Excel - Усильте Excel более чем 300 необходимыми инструментами. Наслаждайтесь постоянно бесплатными функциями ИИ! Получите прямо сейчас
Группировка и объединение с помощью кода VBA
Вы также можете использовать VBA для динамического объединения строк на основе группы.
- Нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications".
- В редакторе кода нажмите "Сервис" > "Ссылки", чтобы открыть диалоговое окно "Ссылки", отметьте "Microsoft Scripting Runtime" и сохраните изменения.
- Перейдите к "Вставка" > "Модуль" и вставьте следующий код 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
- Нажмите клавишу "F5" чтобы запустить скрипт и следуйте любым подсказкам для выбора диапазона данных и указания ключевых столбцов.
Результат показан ниже:
При работе с данными в Excel группировка и объединение ячеек является распространенной, но сложной задачей. В зависимости от ваших потребностей и инструментов, вы можете выбрать один из нескольких методов для достижения этой цели. Выберите наиболее подходящий инструмент и метод на основе ваших конкретных потребностей и предпочтений, чтобы сделать работу в Excel более эффективной и удобной. Если вас интересует изучение дополнительных советов и приемов работы с Excel, наш сайт предлагает тысячи учебных пособий, которые помогут вам овладеть Excel.
Демонстрация: Группировка и объединение с помощью Расширенного объединения строк Kutools для Excel
Лучшие инструменты для повышения продуктивности в Office
Повысьте свои навыки работы в 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.





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