Como concatenar células quando houver um valor igual noutra coluna no Excel?
Conforme ilustrado na imagem abaixo, se pretender concatenar células da segunda coluna com base em valores idênticos na primeira coluna, existem vários métodos ao seu dispor. Neste artigo, apresentamos três formas eficazes de realizar esta tarefa.
Concatenar células se houver valor igual com fórmulas e filtro
As fórmulas seguintes permitem concatenar células correspondentes numa coluna com base em valores coincidentes noutra coluna.
1. Selecione uma célula vazia junto à segunda coluna (aqui selecionámos a célula C2), introduza a fórmula =IF(A2<>A1,B2,C1 & "," & B2) na Barra de Fórmulas e, em seguida, prima a tecla Enter.
2. Em seguida, selecione a célula C2 e arraste a alça de preenchimento até às células que deseja concatenar.
3. Introduza a fórmula =IF(A2<>A3,CONCATENATE(A2,","«»,C2,«»«»),«») na célula D2 e arraste a alça de preenchimento até às restantes células.
4. Selecione a célula D1 e clique em Dados > Filtro. Veja a imagem:
5. Clique na seta pendente na célula D1, desmarque a caixa (Em branco) e, em seguida, clique no botão OK.
Pode verificar se as células são concatenadas quando os valores da primeira coluna forem iguais.
Nota: Para utilizar com sucesso as fórmulas acima indicadas, os valores iguais na coluna A devem ser contínuos.
Concatene facilmente células se houver valor igual com Kutools para Excel (apenas alguns cliques)
O método descrito acima exige a criação de duas colunas auxiliares e envolve vários passos, o que pode ser inconveniente. Se procura uma solução mais simples, experimente a ferramenta Mesclar Linhas Avançado do Kutools para Excel. Com apenas alguns cliques, esta funcionalidade permite-lhe concatenar células com um delimitador à sua escolha, tornando o processo rápido e descomplicado.
1. Clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado para ativar esta funcionalidade.
2. Na caixa de diálogo Mesclar Linhas Avançado, basta:
- Selecione o intervalo que pretende concatenar;
- Defina a coluna com os valores iguais como a coluna de Chave Primária.
- Separador para unir células.
- Clique em OK.
Resultado
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
- Para saber mais sobre esta funcionalidade, consulte este artigo:Combine rapidamente valores iguais ou Linha duplicada no Excel
Concatenar células se houver valor igual com código VBA
Também pode usar código VBA para concatenar células numa coluna sempre que existir um valor igual noutra coluna.
1. Prima as teclas Alt + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Na janela Microsoft Visual Basic para Aplicações, clique em Inserir > Módulo. Em seguida, copie e cole o código abaixo na janela do Módulo.
Código VBA: concatenar células se houver valores iguais
Sub ConcatenateCellsIfSameValues()
Dim xCol As New Collection
Dim xSrc As Variant
Dim xRes() As Variant
Dim I As Long
Dim J As Long
Dim xRg As Range
xSrc = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2)
Set xRg = Range("D1")
On Error Resume Next
For I = 2 To UBound(xSrc)
xCol.Add xSrc(I, 1), TypeName(xSrc(I, 1)) & CStr(xSrc(I, 1))
Next I
On Error GoTo 0
ReDim xRes(1 To xCol.Count + 1, 1 To 2)
xRes(1, 1) = "No"
xRes(1, 2) = "Combined Color"
For I = 1 To xCol.Count
xRes(I + 1, 1) = xCol(I)
For J = 2 To UBound(xSrc)
If xSrc(J, 1) = xRes(I + 1, 1) Then
xRes(I + 1, 2) = xRes(I + 1, 2) & ", " & xSrc(J, 2)
End If
Next J
xRes(I + 1, 2) = Mid(xRes(I + 1, 2), 2)
Next I
Set xRg = xRg.Resize(UBound(xRes, 1), UBound(xRes, 2))
xRg.NumberFormat = "@"
xRg = xRes
xRg.EntireColumn.AutoFit
End SubNotas:
3. Prima a tecla F5 para executar o código e obterá os resultados concatenados num intervalo limitado.
Demonstração: Concatene facilmente células se houver valor igual com Kutools para Excel
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos