Як об’єднати тексти у стовпці без дублікатів у 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 кнопки.

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

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

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

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

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

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

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

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