Как объединить ячейки, если в другом столбце Excel есть одинаковые значения?
Как показано на снимке экрана ниже, если вы хотите объединить ячейки во втором столбце на основе одинаковых значений в первом столбце, существует несколько подходов. В этой статье мы рассмотрим три эффективных способа выполнения этой задачи.
Объединение ячеек при наличии одинаковых значений с помощью формул и фильтрации
Приведённые ниже формулы позволяют объединить соответствующие ячейки в одном столбце, если значения в другом столбце совпадают.
В ячейку 1. Select a blank cell besides the second column (here we select cell C2) введите формулу =IF(A2<,>,A1,B2,C1 &, "," &, B2) и нажмите клавишу Enter.
2. Затем выберите ячейку C2 и перетащите маркер заполнения вниз до нужных строк.
3. Введите формулу =IF(A2<,>,A3,CONCATENATE(A2,«»,«»,C2,«»«»),«») в ячейку D2 и перетащите маркер заполнения вниз до остальных ячеек.
4. Выберите ячейку D1 и нажмите Данные > Фильтр. См. снимок экрана:
5. Щёлкните стрелку раскрывающегося списка в ячейке D1, снимите флажок напротив пункта (Пустые), затем нажмите кнопку OK.
Теперь объединённые ячейки отображаются, если значения в первом столбце совпадают.
Примечание: чтобы приведённые выше формулы работали корректно, одинаковые значения в столбце A должны идти подряд.
Простое объединение ячеек при наличии одинаковых значений с помощью Kutools для Excel (всего несколько кликов)
Описанный выше метод требует создания двух вспомогательных столбцов и включает множество шагов, что может быть неудобно. Если вы ищете более простой способ, рекомендуем воспользоваться инструментом Расширенное объединение строк из набора Kutools для Excel. С его помощью вы сможете быстро и без усилий объединить ячейки с заданным разделителем всего за несколько кликов.
1. Нажмите Kutools > Объединить и разделить > Расширенное объединение строк, чтобы активировать эту функцию.
2. В диалоговом окне Расширенное объединение строк выполните следующие действия:
- Выберите диапазон, который необходимо объединить;
- Укажите столбец с одинаковыми значениями как столбец первичного ключа.
- Разделитель для объединения ячеек.
- Нажмите кнопку OK.
Результат
Kutools для Excel— раскройте весь потенциал Excel с помощью более чем 300 незаменимых инструментов, которые ускоряют и упрощают вашу работу, а также воспользуйтесь возможностями ИИ для более разумной обработки данных и повышения продуктивности.Получить сейчас
- Чтобы узнать больше об этой функции, ознакомьтесь со следующей статьёй:Быстрое объединение одинаковых значений или Дублирующая строка в Excel
Объединение ячеек при наличии одинаковых значений с помощью кода VBA
Вы также можете воспользоваться кодом VBA, чтобы объединить ячейки в одном столбце, если в другом столбце содержатся одинаковые значения.
1. Нажмите сочетание клавиш Alt+F11, чтобы открыть окно Microsoft Visual Basic для приложений.
2. В окне Microsoft Visual Basic для приложений выберите пункт Вставка > Модуль. Затем скопируйте и вставьте приведённый ниже код в окно Модуля.
Код VBA: объединение ячеек при наличии одинаковых значений
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End SubПримечания:
3. Нажмите клавишу F5, чтобы запустить код — после этого объединённые результаты появятся в ограниченном диапазоне.
Демонстрация: простое объединение ячеек при наличии одинаковых значений с помощью 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-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек