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 Sub3. 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
Antes de aplicar o Kutools para Excel, por favor, faça o download e instale-o primeiro.
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:
Se você deseja experimentar este utilitário gratuitamente (30 dias), clique para baixá-lo e, em seguida, vá aplicar a operação de acordo com as etapas acima.
Artigos relacionados
Combinar linhas duplicadas e somar os valores no Excel
No Excel, você pode sempre enfrentar esse problema, quando tiver um intervalo de dados que contém algumas entradas duplicadas, e agora quer combinar os dados duplicados e somar os valores correspondentes em outra coluna, como você poderia resolver esse problema? Tente os métodos neste artigo.
Combinar várias células em uma célula com espaço, vírgulas ou outros separadores no Excel
Ao combinar células de múltiplas colunas ou linhas em uma única célula, os dados combinados podem ser separados por nada. Mas se você quiser separá-los com marcas específicas, como espaço, vírgulas, ponto e vírgula ou outros, como você pode fazer isso? Este tutorial introduzirá alguns métodos para você.
Concatenar células mantendo a formatação de número/data no Excel
Você pode ter notado que, quando aplicamos a função CONCATENAR no Excel, o formato de data (2014-01-03) e o formato de número, como formato de moeda ($734.7), formato de porcentagem (48.9%), casas decimais (24.5000), etc., são removidos e mostrados como números gerais nos resultados da concatenação. Neste artigo, apresentamos várias soluções alternativas para concatenar dados mantendo a formatação de data ou número no Excel.
Reverter a função concatenar no Excel
Como todos sabemos, a função Concatenar no Excel pode nos ajudar a combinar várias células em uma célula, mas, às vezes, você quer fazer o oposto da função Concatenar, ou seja, não combinar células, mas dividir o valor da célula em várias células separadas. Os métodos neste artigo ajudarão a resolver o problema.
Concatenar células se o mesmo valor existir em outra coluna no Excel
Este artigo fornece métodos para ajudá-lo a concatenar células facilmente se o mesmo valor existir em outra coluna no Excel.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins