Como concatenar valores únicos no Excel?
Se eu tiver uma longa lista de valores preenchida com alguns dados duplicados, agora, quero encontrar apenas os valores exclusivos e, em seguida, concatená-los em uma única célula. Como eu poderia lidar com esse problema de forma rápida e fácil no Excel?
Encontre valores únicos em uma coluna e concatene-os em uma célula com o código VBA
Encontre valores únicos em uma coluna e concatene-os em uma célula com o Kutools para Excel
Liste valores únicos e concatene os valores correspondentes com o código VBA
Liste valores exclusivos e concatene valores correspondentes com Kutools para Excel
Encontre valores únicos em uma coluna e concatene-os em uma célula com o código VBA
Os seguintes Função definida pelo usuário pode ajudá-lo a concatenar apenas os valores exclusivos em uma única célula de uma lista, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: concatene valores exclusivos 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 (A1: A17, ",") em uma célula em branco onde você deseja produzir o resultado concatenado e pressione Entrar chave para obter o resultado concatenado exclusivo, consulte a captura de tela:
Note: Na fórmula acima, A1: A17 é o intervalo de células que você deseja concatenar, e a vírgula “,”É o separador de que você precisa para separar os valores combinados, você pode alterá-los conforme sua necessidade.
Encontre valores únicos em uma coluna e concatene-os em uma célula com o Kutools para Excel
Se você não estiver familiarizado com o código VBA, Kutools for Excel também pode ajudá-lo, você pode combinar o Selecione Células Duplicadas e Únicas e Combinar utilitários para alcançar o resultado que você precisa.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora! )
1. Selecione a lista de células que deseja combinar apenas com os valores exclusivos.
2. Clique Kutools > Selecionar > Selecione Células Duplicadas e Únicas, veja a captura de tela:
3. No Selecione Células Duplicadas e Únicas caixa de diálogo, selecione Todos exclusivos (incluindo 1ª duplicata) opção sob o Regra seção, veja a captura de tela:
Tips: Se você deseja combinar os valores únicos, excluindo a primeira duplicata que aparece, marque Valores únicos apenas opção.
4. Então clique OK botão, e apenas os valores únicos foram selecionados e, em seguida, pressione Ctrl + C para copiá-los e colá-los em um local específico pressionando Ctrl + V, veja a captura de tela:
5. Selecione as células exclusivas coladas e clique em Kutools > Unir e dividir > Combine linhas, colunas ou células sem perder dados, veja a captura de tela:
6. No Combine Colunas ou Linhas caixa de diálogo, escolha Combine em uma única célula sob a Para combinar células selecionadas de acordo com as seguintes opçõese, em seguida, especifique um separador para seus dados combinados, consulte a captura de tela:
7. Então clique Ok or Inscreva-se botão, os valores exclusivos extraídos foram concatenados em uma única célula, conforme mostrado a seguir:
Baixe grátis o Kutools para Excel agora!
Liste valores únicos e concatene os valores correspondentes com o código VBA
Em outro caso, você tem um intervalo de dados que inclui duas colunas, e agora, você deseja listar apenas os valores únicos e concatenar seus valores correspondentes de outra coluna para obter o seguinte resultado, você tem alguma boa maneira de terminar este trabalho no Excel?
Aqui, você pode aplicar o seguinte código VBA para lidar com este trabalho, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: lista valores únicos e concatena os 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
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
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
3. Então aperte F5 para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que deseja concatenar com base nos valores exclusivos, consulte a captura de tela:
4. Clique OK, os valores exclusivos foram extraídos e seus valores correspondentes em outra coluna foram concatenados em uma nova planilha.
Note: No código acima, você pode alterar a vírgula vermelha xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) neste script para quaisquer outros delimitadores que você deseja separar os dados combinados.
Liste valores exclusivos e concatene valores correspondentes com Kutools para Excel
Se você tem Kutools for Excel, Com o seu Combinar linhas avançadas recurso, você pode resolver esse problema de forma rápida e fácil sem qualquer código.
Depois de instalar Kutools for Excel, faça o seguinte :( Baixe grátis o Kutools para Excel agora! )
1. Primeiro, você deve fazer uma cópia de seus dados originais se quiser manter os dados originais. Em seguida, selecione o intervalo de dados que deseja concatenar com base nos valores exclusivos.
2. Então clique Kutools > Unir e dividir > Combinar linhas avançadas, veja a captura de tela:
3. No Combinar linhas avançadas caixa de diálogo, clique no nome da coluna que você deseja listar apenas os valores exclusivos e clique em Chave primária, veja a captura de tela:
4. Em seguida, clique em outro nome de coluna que deseja concatenar e clique em Combinare escolha um delimitador para separar seus dados combinados, consulte a captura de tela:
5. E, em seguida, clique em Ok botão, os valores foram concatenados com base nos valores exclusivos de outra coluna, conforme mostrado a seguir:
Baixe grátis o Kutools para Excel agora!
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!
