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

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

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

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

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

1. В новом столбце введите следующую формулу для объединения имен и нажмите "Enter". Протяните вниз, чтобы применить её ко всему диапазону столбца.

   =IF(A2=A1,C1&", "&B2,B2)

   
2. В новом столбце введите следующую формулу, нажмите "Enter" и протяните формулу вниз.

   =IF(A2<>A3,"Last","")

   
3. Выберите весь диапазон данных, включая вспомогательные столбцы. Выберите "Данные" > "Фильтр", чтобы добавить значки фильтра к данным.
   
4. Нажмите значок "Фильтр" в последнем вспомогательном столбце, отметьте только чекбокс "Последний" и нажмите "ОК".
   

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

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

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

1. Выделите ячейки, содержащие ваши данные. Перейдите к "Kutools" > "Объединить и разделить" > "Расширенное объединение строк".
2. В окне "Расширенное объединение строк" настройте следующим образом:
   1. Нажмите на столбец, строки которого вы хотите объединить, и установите его как "первичный ключ".
   2. Для столбца, который вы хотите объединить, например, столбец "Имена" в данном случае, укажите разделитель в разделе "Объединить" под полем "Вычисление" для этого столбца.
   3. Нажмите кнопку "ОК".
   4. 

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

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

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

1. Нажмите клавиши "Alt" + "F11", чтобы открыть окно "Microsoft Visual Basic for Applications".
2. В редакторе кода нажмите "Сервис" > "Ссылки", чтобы открыть диалоговое окно "Ссылки", отметьте "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

   
4. Нажмите клавишу "F5" чтобы запустить скрипт и следуйте любым подсказкам для выбора диапазона данных и указания ключевых столбцов.
   

Результат показан ниже:

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

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