Como concatenar células se o mesmo valor existir em outra coluna do Excel?
Conforme mostrado na captura de tela abaixo, se você deseja concatenar células na segunda coluna com base nos mesmos valores da primeira coluna, existem vários métodos que você pode usar. Neste artigo, apresentaremos três maneiras de realizar essa tarefa.
Concatene células se o mesmo valor com fórmulas e filtro
As fórmulas a seguir ajudam a concatenar o conteúdo das células correspondentes em uma coluna com base no mesmo valor 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 & "," e B2) na barra de fórmula e, em seguida, pressione o Entrar chave.
2. Em seguida, selecione a célula C2 e arraste a alça de preenchimento 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 o identificador de preenchimento para as células restantes.
4. Selecione a célula D1 e clique em Data > filtros. Veja a imagem:
5. Clique na seta suspensa na célula D1, desmarque o (Em branco) e, em seguida, clique no OK botão.
Você pode ver que as células estão concatenadas se os valores da primeira coluna forem iguais.
Note: 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 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 maneira mais simples, considere usar o Combinar linhas avançadas ferramenta de Kutools for Excel. Com apenas alguns cliques, este utilitário permite concatenar células usando um delimitador específico, tornando o processo rápido e sem complicações.
Dica: Antes de aplicar esta ferramenta, instale Kutools for Excel primeiramente. Vá para o download gratuito agora.
- Selecione o intervalo que deseja concatenar;
- Defina a coluna com os mesmos valores que o Chave primária coluna.
- Especifique um separador para combinar as células.
- Clique OK.
Resultado
- Para aplicar este recurso, por favor baixe e instale o Kutools para Excel em primeiro lugar.
- Para saber mais sobre esse recurso, dê uma olhada neste artigo: Combine rapidamente os mesmos valores ou linhas duplicadas no Excel
Células concatenadas se o mesmo valor com 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 outro + F11 chaves para abrir o Aplicativos Microsoft Visual Basic janela.
2. No Aplicativos Microsoft Visual Basic janela, clique em inserção > Módulo. Em seguida, copie e cole o código abaixo no Módulo janela.
Código VBA: concatene células se 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
Notas:
3. aperte o F5 chave para executar o código, você obterá os resultados concatenados no intervalo especificado.
Concatene células facilmente com o mesmo valor com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!