Перейти до основного матеріалу

Як об’єднати тексти у стовпці без дублікатів у Excel?

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

Об’єднуйте тексти у стовпці без дублікатів за допомогою формули
Об’єднуйте тексти в стовпець без дублікатів на основі іншого значення комірки за допомогою коду VBA
Легко приєднуйте тексти до стовпця на основі іншого значення комірки за допомогою дивовижного інструменту

Більше підручника з комбінування комірок ...


Об’єднуйте тексти у стовпці без дублікатів за допомогою формули

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

1. Виділіть порожню комірку, скопіюйте в неї формулу нижче та натисніть інший + Shift + Що натомість? Створіть віртуальну версію себе у клавіші одночасно.

=TEXTJOIN(", ", TRUE, IF(MATCH(A2:A12, A2:A12, 0)=MATCH(ROW(A2:A12), ROW(A2:A12)), A2:A12, ""))

Примітка: У формулі ", ”- роздільник об’єднаних текстів; A2: A12 - це клітинки стовпців, які ви об’єднаєте. Будь ласка, змініть їх, як вам потрібно.

Тепер тексти у зазначеній колонці об’єднуються без дублікатів.


Об’єднуйте тексти в стовпець без дублікатів на основі іншого значення комірки за допомогою коду VBA

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

1. На аркуші містять тексти, до яких ви приєднаєтесь, натисніть клавішу інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модуль а потім скопіюйте наведений нижче код VBA у вікно коду модуля.

Код VBA: Об’єднання текстів у стовпці без дублікатів на основі іншого значення комірки

Sub JoinTextsWithoutDuplicates()
'Updated by Extendoffice 20190924
    Dim xRg As Range
    Dim xArr As Variant
    Dim xCell As Range
    Dim xTxt As String
    Dim I As Long
    Dim xDic As Object
    Dim xValue
    Dim xStr, xStrValue As String
    Dim xB As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "Does not support multiple selections", , "Kutools for Excel"
        Exit Sub
    End If
    If xRg.Columns.Count <> 2 Then
        MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
        Exit Sub
    End If
    xArr = xRg
    Set xDic = CreateObject("Scripting.Dictionary")
    xDic.CompareMode = 1
    For I = 1 To UBound(xArr)
        If Not xDic.Exists(xArr(I, 1)) Then
            xDic.Item(xArr(I, 1)) = xDic.Count + 1
            xArr(xDic.Count, 1) = xArr(I, 1)
            xArr(xDic.Count, 2) = xArr(I, 2)
        Else
            xStrValue = xArr(I, 2)
           xB = True
            For Each xStr In Split(xArr(xDic.Item(xArr(I, 1)), 2), ",")
                If xStr = xStrValue Then
                    xB = False
                    Exit For
                End If
            Next
            If xB Then
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
            End If
        End If
    Next
    Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub

3 Натисніть кнопку F5 клавіша для запуску коду. У спливаючому Kutools для Excel діалоговому вікні, виберіть діапазон, включаючи значення, на основі яких ви приєднаєте тексти, і тексти, до яких ви приєднаєтесь, а потім клацніть на OK кнопки.

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


Легко приєднуйте тексти до стовпця на основі іншого значення комірки за допомогою дивовижного інструменту

Можливо, ви погано володієте формулою чи кодом VBA. Тут рекомендуємо Розширені комбіновані ряди корисність Kutools для Excel для вас. За допомогою цієї утиліти ви можете легко приєднати тексти до стовпця на основі значення в іншій комірці лише за кілька кліків.

Перед поданням заявки Kutools для Excel, будь ласка завантажте та встановіть його спочатку.

Примітка: Оскільки утиліта безпосередньо застосовуватиметься у вихідному діапазоні, будь-ласка, скопіюйте оригінальні дані перед застосуванням наведеної нижче операції.

1. Виберіть діапазон (включіть тексти, до яких ви приєднаєтесь, і значення, на основі якого ви приєднаєтесь до текстів), натисніть Кутулс > зміст > Розширені комбіновані ряди. Дивіться знімок екрана:

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

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

Тоді ви можете побачити, що всі тексти у вказаному стовпці об’єднані на основі ключового стовпця. Дивіться знімок екрана:

  Якщо ви хочете отримати безкоштовну пробну версію (30 днів) цієї програми, натисніть, щоб завантажити, а потім перейдіть до застосування операції, як описано вище.


Статті по темі

Поєднайте повторювані рядки та підсумуйте значення в Excel
У Excel ви завжди можете зіткнутися з цією проблемою, коли у вас є ряд даних, які містять кілька повторюваних записів, і тепер ви хочете об'єднати повторювані дані та підсумувати відповідні значення в іншому стовпці, як ви могли б вирішити цю проблему? Спробуйте методи з цієї статті.

Об’єднайте кілька клітинок у клітинку з пробілом, комами чи іншими роздільниками в Excel
Коли ви об’єднуєте комірки з декількох стовпців або рядків в одну комірку, об’єднані дані можуть нічим не відокремлюватися. Але якщо ви хочете розділити їх за допомогою зазначених позначок, таких як пробіл, коми, крапка з комою чи інші, як ви можете це зробити? Цей підручник представить вам деякі методи.

Об’єднати комірки, зберігаючи форматування числа / дати в Excel
Ви могли помітити, що коли ми застосовуємо функцію CONCATENATE в Excel, формат дати (2014) та формат чисел, наприклад формат валюти (01 дол. США), формат відсотків (03%), десяткові коми (734.7) тощо. видаляються та відображаються як загальні цифри в результатах конкатенації. У цій статті ми пропонуємо кілька обхідних шляхів для об’єднання даних із збереженням форматування дати або числа в Excel.

Змініть функцію конкатенату в Excel
Як ми всі знаємо, функція Concatenate в Excel може допомогти нам об'єднати кілька комірок в одну комірку, але, іноді, ви хочете зробити протилежне функції Concatenate, це означає не об'єднувати комірки, а розділити значення комірки на кілька розділених комірок. Методи з цієї статті допоможуть вирішити проблему.

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

Більше підручника з комбінування комірок ...

Найкращі інструменти продуктивності офісу

🤖 Kutools AI Aide: Революціонізуйте аналіз даних на основі: Інтелектуальне виконання   |  Згенерувати код  |  Створення спеціальних формул  |  Аналізуйте дані та створюйте діаграми  |  Викликати функції Kutools...
Популярні функції: Знайдіть, виділіть або визначте дублікати   |  Видалити порожні рядки   |  Об’єднайте стовпці або клітинки без втрати даних   |   Раунд без Формули ...
Супер пошук: VLookup за кількома критеріями    Багатозначний VLookup  |   VLookup на кількох аркушах   |   Нечіткий пошук ....
Розширений розкривний список: Швидке створення випадаючого списку   |  Залежний спадний список   |  Виберіть розкривний список, що вибирається ....
Менеджер колонок: Додайте конкретну кількість стовпців  |  Перемістити стовпці  |  Перемкнути статус видимості прихованих стовпців  |  Порівняйте діапазони та стовпці ...
Особливості: Фокус сітки   |  Перегляд дизайну   |   Велика панель формул    Диспетчер робочих книг і аркушів   |  Бібліотека ресурсів (автотекст)   |  Вибір дати   |  Об’єднайте робочі аркуші   |  Шифрування/розшифрування клітинок    Надсилайте листи за списком   |  Супер фільтр   |   Спеціальний фільтр (фільтр жирний/курсив/закреслений...) ...
Топ-15 наборів інструментів12 текст Tools (додати текст, Видалити символи, ...)   |   50 + Графік типи (діаграма Ганта, ...)   |   40+ Практичний Формули (Розрахуйте вік на основі дня народження, ...)   |   19 вставка Tools (Вставте QR-код, Вставити зображення зі шляху, ...)   |   12 Перетворення Tools (Числа до слів, Валютна конверсія, ...)   |   7 Злиття та розділення Tools (Розширені комбіновані ряди, Розділені клітини, ...)   |   ... і більше

Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу.  Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...

Опис


Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
Comments (5)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I like this formula, but often times i will have a blank cell in my data range and yet this formula won't work with blanks. how would i handle blank cells?
This comment was minimized by the moderator on the site
Thanks! This was helpful. I found that the formula below did the trick. I just needed to select a range to combine text, but didn't want to duplicate values.
=TEXTJOIN(", ",TRUE,UNIQUE($A2:$K2,TRUE))
This comment was minimized by the moderator on the site
This is a much easier way to join unique items based on another column:

=TEXTJOIN(", ",TRUE,UNIQUE(IF(Table1[Category]=Table2[Unique Categories],Table1[Items to Join],"")))

Works a treat, I use it a lot.
This comment was minimized by the moderator on the site
Thanks a Lot. You saved me.
This comment was minimized by the moderator on the site
Omg. You're a lifesaver, I was trying way more complex formulas and this worked like a charm! Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations