Como juntar textos em uma coluna sem duplicatas no Excel?

Você sabe como juntar textos de uma coluna em uma célula sem duplicatas no Excel? E se quiser juntar textos em uma coluna sem duplicatas com base em um valor específico de célula? Este artigo fornece métodos para resolver esses problemas.

Juntar textos em uma coluna sem duplicatas com fórmula
Juntar textos em uma coluna sem duplicatas com base em outro valor de célula com código VBA
Facilmente junte textos em uma coluna com base em outro valor de célula com uma ferramenta incrível
Mais tutoriais para combinar células…

Juntar textos em uma coluna sem duplicatas com fórmula

Como mostra a captura de tela abaixo, você deseja juntar os textos na coluna A em uma única célula sem duplicatas. Por favor, siga os passos abaixo.

1. Selecione uma célula em branco, copie a fórmula abaixo nela e pressione as teclas Alt + Shift + Enter ao mesmo tempo.

=TEXTJOIN(", ", VERDADEIRO, SE(CORRESP(A2:A12, A2:A12, 0)=CORRESP(LIN(A2:A12), LIN(A2:A12)), A2:A12, ""))

Observação: Na fórmula, “, ” é o separador dos textos combinados; A2:A12 são as células da coluna que você irá juntar. Altere-os conforme necessário.

Agora os textos na coluna especificada estão unidos sem duplicatas.

Juntar textos em uma coluna sem duplicatas com base em outro valor de célula com código VBA

Às vezes, pode ser necessário juntar textos em uma coluna sem duplicatas com base em um valor em outra célula, como mostrado na captura de tela abaixo. Você pode fazer isso seguindo os passos abaixo.

1. Na planilha que contém os textos que você deseja juntar, pressione as teclas Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Na janela do Microsoft Visual Basic for Applications, clique em Inserir > Módulo, e depois copie o código VBA abaixo na janela de código do Módulo.

Código VBA: Juntar textos em uma coluna sem duplicatas com base em outro valor de célula

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. Pressione a tecla F5 para executar o código. No diálogo Kutools for Excel que aparecer, selecione o intervalo que inclui tanto os valores nos quais você vai juntar os textos quanto os próprios textos, e depois clique no botão OK.

Então, os valores únicos serão extraídos e seus respectivos textos únicos em outra coluna serão combinados e colocados em uma nova planilha.

Facilmente junte textos em uma coluna com base em outro valor de célula com uma ferramenta incrível

Observação: Como o utilitário será aplicado diretamente no intervalo original, faça uma cópia dos dados originais antes de aplicar a operação abaixo.

1. Selecione o intervalo (inclua os textos que você deseja juntar e o valor no qual você vai juntar os textos), clique em Kutools > Mesclar & Dividir > Mesclar Linhas Avançado.

2. No diálogo Mesclar Linhas Avançado, por favor faça o seguinte:

• Selecione a coluna contendo os valores nos quais você vai juntar os textos e clique em Chave Primária;
• Selecione a coluna contendo os textos que você deseja juntar em uma célula e clique em Consolidar > Vírgula;
• Se houver colunas restantes, especifique condições para elas. Neste caso, seleciono a coluna Vendas e seleciono Calcular > Soma.
• Clique no botão OK. Veja a captura de tela:

Então você pode ver que todos os textos na coluna especificada foram unidos com base na coluna-chave. Veja a captura de tela:

Artigos relacionados