Como concatenar células se o mesmo valor existir em outra coluna no Excel?

Como mostrado na captura de tela abaixo, se você deseja concatenar células na segunda coluna com base nos mesmos valores na primeira coluna, há vários métodos que você pode usar. Neste artigo, apresentaremos três maneiras de realizar essa tarefa.

Concatenar células com o mesmo valor usando fórmulas e filtro

As seguintes fórmulas ajudam a concatenar as células correspondentes em uma coluna com base nos valores correspondentes em outra coluna.

1. Selecione uma célula em branco ao lado da segunda coluna (aqui selecionamos a célula C2), insira a fórmula =SE(A2<>A1;B2;C1 & "," & B2) na barra de fórmulas e pressione a tecla Enter.

2. Em seguida, selecione a célula C2 e arraste a Alça de Preenchimento para baixo até as células que você precisa concatenar.

3. Insira a fórmula =SE(A2<>A3;CONCATENAR(A2;",""";C2;""");"") na célula D2 e arraste a Alça de Preenchimento para baixo nas células restantes.

4. Selecione a célula D1 e clique em Dados > Filtro. Veja a captura de tela:

5. Clique na seta suspensa na célula D1, desmarque a caixa (Em branco) e clique no botão OK.

Você pode ver que as células são concatenadas se os valores da primeira coluna forem iguais.

Observação: Para usar as fórmulas acima com sucesso, os mesmos valores na coluna A devem ser contínuos.

Concatene células facilmente com o mesmo valor com o Kutools para Excel (vários cliques)

O método descrito acima requer a criação de duas colunas auxiliares e envolve várias etapas, o que pode ser inconveniente. Se você está procurando uma forma mais simples, considere usar a ferramenta Mesclar Linhas Avançado do Kutools para Excel. Com apenas alguns cliques, esta utilidade permite concatenar células usando um delimitador específico, tornando o processo rápido e sem complicações.

1. Clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado para habilitar esse recurso.

2. Na caixa de diálogo Mesclar Linhas Avançado, você só precisa:

• Selecionar o intervalo que deseja concatenar;
• Definir a coluna com os mesmos valores como a Coluna Chave.
• Especificar um separador para combinar as células.
• Clique em OK.

Resultado

Concatenar células com o mesmo valor usando código VBA

Você também pode usar o código VBA para concatenar células em uma coluna se o mesmo valor existir em outra coluna.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic Applications.

2. Na janela Microsoft Visual Basic Applications, clique em Inserir > Módulo. Em seguida, copie e cole o código abaixo na janela Módulo.

Código VBA: concatenar células com os mesmos valores

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 Sub

Observações:

3. Pressione a tecla F5 para executar o código, então você obterá os resultados concatenados no intervalo especificado.

Demonstração: Concatene células facilmente com o mesmo valor com o Kutools para Excel