Как объединить тексты в столбце без дубликатов в Excel?

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

Объединение текстов в столбце без дубликатов с помощью формулы
Объединение текстов в столбце без дубликатов на основе значения другой ячейки с использованием кода VBA
Легкое объединение текстов в столбце на основе значения другой ячейки с помощью удивительного инструмента
Больше руководств по объединению ячеек…

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

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

1. Выберите пустую ячейку, скопируйте следующую формулу в нее и одновременно нажмите клавиши Alt + Shift + Enter.

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

Примечание: В формуле “, ” является разделителем объединенных текстов; A2:A12 — это ячейки столбца, которые вы объедините. Измените их по необходимости.

Теперь тексты в указанном столбце объединены без дубликатов.

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

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

1. В рабочем листе, содержащем тексты, которые вы хотите объединить, нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Insert > Module, затем скопируйте приведенный ниже код VBA в окно кода Module.

Код 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 for Excel выберите диапазон, включающий как значения, на основе которых вы будете объединять тексты, так и сами тексты, а затем нажмите кнопку OK.

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

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

Примечание: Поскольку утилита будет применяться непосредственно к исходному диапазону, сделайте копию исходных данных перед выполнением следующих операций.

1. Выберите диапазон (включая тексты, которые вы хотите объединить, и значение, на основе которого вы будете объединять тексты), нажмите Kutools > Merge & Split > Расширенное объединение строк.

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

• Выберите столбец, содержащий значения, на основе которых вы будете объединять тексты, и нажмите Основной ключ;
• Выберите столбец, содержащий тексты, которые вы хотите объединить в одну ячейку, и нажмите Объединить > Запятая;
• Если остались другие столбцы, укажите для них условия. В данном случае я выбираю столбец Продажи и выбираю Вычисление > Сумма.
• Нажмите кнопку OK. Смотрите скриншот:

Теперь вы можете видеть, что все тексты в указанном столбце объединены на основе ключевого столбца. Смотрите скриншот:

Связанные статьи