Як об’єднати комірки, якщо таке ж значення існує в іншому стовпці в Excel?
Як показано на знімку екрана нижче, якщо ви хочете об’єднати клітинки у другому стовпці на основі тих самих значень у першому стовпці, ви можете використати кілька методів. У цій статті ми представимо три способи виконання цього завдання.
Об’єднати клітинки, якщо однакове значення з формулами та фільтром
Наведені нижче формули допомагають об’єднати вміст відповідних клітинок у стовпці на основі того самого значення в іншому стовпці.
1. Виділіть порожню комірку крім другого стовпця (тут ми обираємо комірку С2), введіть формулу = IF (A2 <> A1, B2, C1 & "," & B2) у рядок формул, а потім натисніть Що натомість? Створіть віртуальну версію себе у ключ
2. Потім виберіть комірку C2 і перетягніть маркер заповнення вниз до комірок, які потрібно об’єднати.
3. Введіть формулу = IF (A2 <> A3, CONCATENATE (A2, "," "", C2, "" ""), "") у комірку D2 та перетягніть Ручку заповнення до решти комірок.
4. Виділіть комірку D1 і натисніть дані > фільтр. Дивіться знімок екрана:
5. Клацніть стрілку спадного меню в комірці D1, зніміть прапорець (Пробіли) , а потім клацніть на OK кнопки.
Ви можете бачити, як клітинки об’єднані, якщо значення першого стовпця однакові.
примітки: Для успішного використання наведених формул однакові значення у стовпці A мають бути безперервними.
Легко об’єднуйте комірки, якщо вони однакові, за допомогою Kutools для Excel (декілька кліків)
Метод, описаний вище, вимагає створення двох допоміжних стовпців і включає кілька кроків, що може бути незручно. Якщо ви шукаєте простіший спосіб, скористайтеся Розширені комбіновані ряди інструмент від Kutools для Excel. Лише кількома клацаннями миші ця утиліта дозволяє об’єднувати комірки за допомогою певного розділювача, що робить процес швидким і безпроблемним.
Чайові: Перш ніж застосовувати цей інструмент, установіть його Kutools для Excel по-перше Перейдіть до безкоштовного завантаження зараз.
- Виберіть діапазон, який потрібно об’єднати;
- Установіть у стовпець ті самі значення, що й у Первинний ключ колонка.
- Укажіть роздільник для об’єднання клітинок.
- Натисніть OK.
Результат
- Щоб застосувати цю функцію, будь ласка завантажте та встановіть Kutools для Excel перший.
- Щоб дізнатися більше про цю функцію, перегляньте цю статтю: Швидко поєднуйте однакові значення або повторювані рядки в Excel
Об’єднати клітинки, якщо однакове значення з кодом VBA
Ви також можете використовувати код VBA для об’єднання клітинок у стовпці, якщо таке саме значення існує в іншому стовпці.
1. прес інший + F11 ключі, щоб відкрити Програми Microsoft Visual Basic вікна.
2 В Програми 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 для Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!