Как объединить ячейки, если существует одинаковое значение в другом столбце в Excel?

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

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

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

1. Выберите пустую ячейку рядом со вторым столбцом (здесь мы выбираем ячейку C2), введите формулу =ЕСЛИ(A2<>A1;B2;C1 & "," & B2) в строку формул, а затем нажмите клавишу Enter.

2. Затем выберите ячейку C2 и перетащите маркер заполнения вниз до ячеек, которые нужно объединить.

3. Введите формулу =ЕСЛИ(A2<>A3;СЦЕПИТЬ(A2;",""";C2;""");"") в ячейку D2 и перетащите маркер заполнения вниз до остальных ячеек.

4. Выберите ячейку D1 и нажмите Данные > Фильтр. См. скриншот:

5. Нажмите стрелку раскрывающегося списка в ячейке D1, снимите флажок (Пустые), а затем нажмите кнопку ОК.

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

Примечание: Чтобы успешно использовать вышеуказанные формулы, одинаковые значения в столбце A должны быть последовательными.

Легко объедините ячейки с одинаковыми значениями с помощью Kutools для Excel (несколько кликов)

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

1. Нажмите Kutools > Объединить и Разделить > Расширенное объединение строк, чтобы активировать эту функцию.

2. В диалоговом окне Расширенное объединение строк вам просто нужно:

• Выбрать диапазон, который вы хотите объединить;
• Установить столбец с одинаковыми значениями как Ключевой столбец.
• Указать разделитель для объединения ячеек.
• Нажмите OK.

Результат

Объединение ячеек с одинаковыми значениями с помощью кода VBA

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

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic Applications.

2. В окне Microsoft Visual Basic Applications нажмите Вставка > Модуль. Затем скопируйте и вставьте следующий код в окно Модуль.

Код 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