Como concatenar valores únicos no Excel?

Concatenar valores únicos no Excel é uma tarefa comum que pode ser alcançada por meio de vários métodos. Este artigo explorará diferentes técnicas para concatenar valores únicos em uma coluna e listar valores únicos enquanto concatena seus valores correspondentes.

Concatenar apenas valores únicos de uma coluna

• Usando as funções TEXTJOIN e UNIQUE
• Usando o Kutools AI Aide
• Usando Função Definida pelo Usuário

Listar valores únicos e concatenar valores correspondentes

• Usando as funções TEXTJOIN e UNIQUE
• Usando o Kutools for Excel
• Usando código VBA

Concatenar apenas valores únicos de uma coluna

Na análise de dados, há casos em que você precisa concatenar valores únicos de uma coluna no Excel em uma única célula. Essa tarefa pode ser realizada usando fórmulas, VBA ou Kutools, dependendo de sua preferência e da complexidade do conjunto de dados. Abaixo, exploraremos métodos otimizados para lidar com isso de forma eficiente.

Método 1: Usando as funções TEXTJOIN e UNIQUE

Se você possui o Excel 365 ou o Excel 2021, suas novas funções TEXTJOIN e UNIQUE fornecem uma maneira simples e eficiente de concatenar valores únicos de uma coluna.

Use a seguinte fórmula em uma célula onde você deseja o resultado concatenado:

=TEXTJOIN(", ", TRUE, UNIQUE(A2:A18))

Método 2: Usando o Kutools AI Aide

Para uma solução mais rápida e totalmente automatizada, o Kutools for Excel oferece uma ferramenta inovadora — "Kutools AI Aide". Basta descrever sua tarefa, e a IA gerará instantaneamente os resultados desejados sem qualquer configuração manual. Isso elimina a necessidade de fórmulas complexas ou configurações demoradas, entregando resultados precisos em segundos.

Após instalar o Kutools For Excel, clique em "Kutools" > "AI Aide" para abrir o painel "Kutools AI Aide".

1. Selecione as células das quais você deseja combinar apenas valores únicos;
2. Digite o requisito na caixa de chat: como:
   Concatene valores únicos com vírgula do intervalo selecionado e coloque o resultado combinado na célula C2
3. E então, pressione a tecla Enter ou clique no botão "Enviar". O Kutools AI analisará a questão, após concluir, clique no botão "Executar" para obter o resultado.
   

Método 3: Usando Função Definida pelo Usuário

Para usuários avançados que precisam de mais flexibilidade ou querem automatizar o processo, uma função VBA personalizada (UDF) pode ser criada para concatenar valores únicos. Esse método é ideal para usuários confortáveis com codificação ou aqueles que precisam de uma solução reutilizável.

1. Mantenha pressionadas as teclas "ALT + F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo" e cole o seguinte código na Janela do Módulo.

Código VBA: Concatenar valores únicos em uma única célula:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
    Dim xCell As Range
    Dim xDic As Object
    Set xDic = CreateObject("Scripting.Dictionary")
    For Each xCell In xRg
        xDic(xCell.Value) = Empty
    Next
    ConcatUniq = Join$(xDic.Keys, xChar)
    Set xDic = Nothing
End Function

3. Em seguida, volte para sua planilha e insira esta fórmula: =ConcatUniq (A2:A18,",") em uma célula em branco onde você deseja exibir o resultado concatenado, e pressione a tecla Enter para obter o resultado concatenado único, veja a captura de tela:

Listar valores únicos e concatenar valores correspondentes

No Excel, listar valores únicos e concatenar seus valores correspondentes é uma tarefa comum, especialmente ao lidar com conjuntos de dados que exigem resumo ou consolidação. Esta seção fornece um guia abrangente para alcançar isso de forma eficiente.

Método 1: Usando as funções TEXTJOIN e UNIQUE

As funções modernas do Excel, como UNIQUE, FILTER e TEXTJOIN, facilitam listar valores únicos e concatenar seus valores correspondentes sem a necessidade de fórmulas complexas.

1. Use a função UNIQUE para listar todos os valores únicos da coluna A:

=UNIQUE(A2:A17)

2. Aplique as funções TEXTJOIN e FILTER para concatenar os valores correspondentes para o valor único, arraste a fórmula para preencher outras células, veja a captura de tela:

=TEXTJOIN(", ", TRUE, FILTER($B$2:$B$17, $A$2:$A$17 =D2))

Método 2: Usando o Kutools for Excel

Se você possui o Kutools for Excel, seu poderoso recurso "Advanced Combine Rows" permite listar valores únicos e concatenar seus valores correspondentes de forma rápida e fácil, sem a necessidade de codificação ou fórmulas complexas. Basta selecionar seus dados, configurar as opções e deixar o Kutools cuidar do resto, entregando resultados profissionais em segundos.

1. Copie e cole os dados originais em outra célula para fazer backup dos dados. Selecione o intervalo de dados, depois clique em "Kutools" > "Mesclar e Dividir" > "Advanced Combine Rows", veja a captura de tela:

2. Na caixa de diálogo "Advanced Combine Rows", configure as opções:

• Clique no nome da coluna que você deseja combinar duplicatas com base, e selecione "Chave Primária" na lista suspensa na coluna "Operação";
• Depois, selecione o nome da coluna que você deseja combinar os valores, e escolha um delimitador para separar os valores na lista suspensa na coluna "Operação";
• Finalmente, clique no botão OK.
  

Resultado:

O Kutools automatiza o processo de extrair valores únicos e concatenar seus valores correspondentes com o delimitador especificado.

Método 3: Usando código VBA

Embora as funções internas do Excel, como UNIQUE e TEXTJOIN, possam lidar com isso até certo ponto, elas podem falhar ao lidar com cenários complexos ou versões antigas do Excel. Seja você iniciante ou usuário avançado, este guia o orientará pelas etapas para listar valores únicos e concatenar seus valores correspondentes usando código VBA.

1. Mantenha pressionadas as teclas "ALT + F11" para abrir a janela "Microsoft Visual Basic for Applications".

2. Clique em "Inserir" > "Módulo" e cole o seguinte código na Janela do Módulo.

Código VBA: Listar valores únicos e concatenar dados correspondentes

Sub test()
    'updateby Extendoffice
    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 xOutputRg As Range
    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
    Set xOutputRg = Application.InputBox("Please select the output cell", "Kutools for Excel", Type:=8)
    If xOutputRg Is Nothing Then Exit Sub
    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
            xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
        End If
    Next
    xOutputRg.Resize(xDic.Count, 2).Value = xArr
End Sub

3. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de prompt será exibida para lembrá-lo de selecionar o intervalo de dados que você deseja concatenar com base nos valores únicos, veja a captura de tela:

4. Clique em OK, outra caixa de prompt será exibida para lembrá-lo de selecionar as células para colocar o resultado:

5. Clique em OK, os valores únicos foram extraídos e seus valores correspondentes em outra coluna foram concatenados juntos. Veja a captura de tela:

Em conclusão, concatenar valores únicos no Excel pode ser alcançado de forma eficiente por meio de múltiplos métodos adaptados a diferentes níveis de experiência e necessidades. Ao escolher o método que melhor atende aos seus requisitos, você pode simplificar o processamento de dados e aumentar a eficiência no gerenciamento de valores únicos no Excel. Se você está interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais.