Як об’єднати комірки, якщо таке ж значення існує в іншому стовпці в Excel?

Як показано на знімку екрана нижче, якщо ви хочете об’єднати клітинки у другому стовпці на основі тих самих значень у першому стовпці, ви можете використати кілька методів. У цій статті ми представимо три способи виконання цього завдання.

Об’єднати клітинки, якщо однакове значення з формулами та фільтром

Наведені нижче формули допомагають об’єднати відповідні клітинки в одному стовпці на основі відповідних значень в іншому стовпці.

1. Виділіть порожню комірку крім другого стовпця (тут ми обираємо комірку С2), введіть формулу = IF (A2 <> A1, B2, C1 & "," & B2) у рядок формул, а потім натисніть Enter .

2. Потім виберіть комірку C2 і перетягніть маркер заповнення вниз до комірок, які потрібно об’єднати.

3. Введіть формулу = IF (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") у комірку D2 та перетягніть Ручку заповнення до решти комірок.

4. Виділіть комірку D1 і натисніть дані > Фільтр. Дивіться знімок екрана:

5. Клацніть стрілку спадного меню в комірці D1, зніміть прапорець (Пробіли) , а потім клацніть на OK .

Ви можете бачити, як клітинки об’єднані, якщо значення першого стовпця однакові.

Примітка:: Для успішного використання наведених формул однакові значення у стовпці A мають бути безперервними.

Легко об’єднайте клітинки, якщо вони мають однакове значення Kutools for Excel (кілька кліків)

Метод, описаний вище, вимагає створення двох допоміжних стовпців і включає кілька кроків, що може бути незручно. Якщо ви шукаєте простіший спосіб, скористайтеся Розширені комбіновані ряди інструмент від Kutools for Excel. Лише кількома клацаннями миші ця утиліта дозволяє об’єднувати комірки за допомогою певного розділювача, що робить процес швидким і безпроблемним.

Натисніть Kutools > Злиття та розділення > Розширені комбіновані ряди щоб увімкнути цю функцію.

У Розширені комбіновані ряди діалоговому вікні, вам просто потрібно:

• Виберіть діапазон, який потрібно об’єднати;
• Установіть у стовпець ті самі значення, що й у Первинний ключ .
• Укажіть роздільник для об’єднання клітинок.
• Натисніть  OK.

Результат

Об’єднати клітинки, якщо однакове значення з кодом VBA

Ви також можете використовувати код VBA для об’єднання клітинок у стовпці, якщо таке саме значення існує в іншому стовпці.

1. прес інший + F11 ключі, щоб відкрити Програми Microsoft Visual Basic вікна.

У Програми Microsoft Visual Basic вікна, натисніть Insert > Модулі. Потім скопіюйте та вставте код нижче в Модулі вікна.

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