Dica: outros idiomas são traduzidos pelo Google. Você pode visitar o English versão deste link.
Entrar
x
or
x
x
Registre-se
x

or

Como concatenar valores exclusivos no Excel?

Se eu tiver uma longa lista de valores preenchidos com alguns dados duplicados, agora eu quero encontrar apenas os valores exclusivos e, em seguida, concatê-los em uma única célula. Como posso lidar com este problema de forma rápida e fácil no Excel?

Encontre valores únicos em uma coluna e concatene-os em uma célula com código VBA

Encontre valores exclusivos em uma coluna e concatene-os em uma célula com o Kutools for Excel

Listar valores exclusivos e concatenar valores correspondentes com o código VBA

Liste valores exclusivos e concatenar os valores correspondentes com o Kutools for Excel


arrow blue right bubble Encontre valores únicos em uma coluna e concatene-os em uma célula com 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. Mantenha pressionado 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: concatenar valores únicos em uma única célula:

Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice 20151228
    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 digite 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, veja a captura de tela:

Doc concatenate Uniques 1

notas: Na fórmula acima, A1: A17 é o alcance das células que você quer concatenar, e a vírgula ","É o separador que você precisa para separar os valores combinados, você pode alterá-los para sua necessidade.


arrow blue right bubble Encontre valores exclusivos em uma coluna e concatene-os em uma célula com o Kutools for Excel

Se você não está familiarizado com o código VBA, Kutools for Excel também pode ajudá-lo, você pode combinar o Selecione Duplicate & Unique Cells e Combinar utilitários para alcançar o resultado que você precisa.

Kutools for Excel : com mais de 300 complementos Excel úteis, grátis para tentar sem limitação em dias 60.

Depois de instalar Kutools for Excel, faça o seguinte :( Download grátis do Kutools para Excel agora! )

1. Selecione a lista de células que deseja combinar apenas os valores exclusivos.

2. Clique Kutools > Selecionar > Selecione Duplicate & Unique Cells, veja a captura de tela:

Doc concatenate Uniques 2

3. No Selecione Duplicate & Unique Cells caixa de diálogo, selecione Todos únicos (incluindo as duplicatas 1 st) opção sob o Regra seção, veja a captura de tela:

dicas: Se você quiser combinar os valores exclusivos excluindo a primeira aparência, verifique Somente valores exclusivos opção.

Doc concatenate Uniques 3

4. Então clique OK botão, e apenas os valores exclusivos 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:

Doc concatenate Uniques 4

5. Selecione as células únicas coladas e clique em Kutools > Combinar, veja a captura de tela:

Doc concatenate Uniques 5

6. No Combine colunas ou linhas caixa de diálogo, escolha Combine em uma única célula sob a Para combinar as células selecionadas de acordo com as seguintes opções, e depois especifique um separador para seus dados combinados, veja a captura de tela:

Doc concatenate Uniques 6

7. Então clique Ok or Candidatura , os valores únicos extraídos foram concatenados em uma única célula como a seguinte captura de tela mostrada:

Doc concatenate Uniques 7

Download grátis do Kutools para Excel agora!


arrow blue right bubble Listar valores exclusivos e concatenar valores correspondentes com o código VBA

Em outro caso, você tem uma variedade de dados que inclui duas colunas, e agora, você deseja listar apenas os valores exclusivos e concatenar seus valores correspondentes de outra coluna para obter o seguinte resultado, você tem boas maneiras de terminar esse trabalho? no Excel?

Doc concatenate Uniques 8

Aqui, você pode aplicar o seguinte código VBA para lidar com este trabalho, faça o seguinte:

1. Mantenha pressionado 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: Listar valores exclusivos e concatenar dados correspondentes

Sub test()
'updateby Extendoffice 20151228
    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 chave para executar este código, e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que você quer concatenar com base nos valores exclusivos, veja a captura de tela:

Doc concatenate Uniques 9

4. Clique OK, os valores únicos foram extraídos e seus valores correspondentes em outra coluna foram concatenados juntos em uma nova planilha.

notas: 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) e ","& xArr (I, 2) neste script para qualquer outro delimitador que você deseja separar os dados combinados.


arrow blue right bubble Liste valores exclusivos e concatenar os valores correspondentes com o Kutools for Excel

Se você tem Kutools for Excel, Com o seu Linhas combinadas avançadas recurso, você pode resolver este problema rapidamente e facilmente sem nenhum código.

Depois de instalar Kutools for Excel, faça o seguinte :( Download grátis do Kutools para Excel agora! )

1. Primeiro, você deve fazer uma cópia dos dados originais se quiser manter os dados originais. E, em seguida, selecione o intervalo de dados que deseja concatenar com base nos valores exclusivos.

2. Então clique Kutools > Conteúdo > Linhas combinadas avançadas, veja a captura de tela:

Doc concatenate Uniques 10

3. No Linhas combinadas avançadas caixa de diálogo, clique no nome da coluna que deseja listar apenas os valores exclusivos e clique em Chave primária, veja a captura de tela:

Doc concatenate Uniques 11

4. Em seguida, clique em outro nome de coluna que deseja concatenar e clique em Combinar, e escolha um delimitador para separar seus dados combinados, veja a captura de tela:

Doc concatenate Uniques 12

5. E, em seguida, clique em Ok , os valores foram concatenados com base nos valores exclusivos de outra coluna como a seguinte captura de tela mostrada:

Doc concatenate Uniques 13

Download grátis do Kutools para Excel agora!


Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Inserir rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de endereços e enviar e-mails ...
  • Bar Super Fórmula (facilmente editar várias linhas de texto e fórmula); Layout de leitura (leia e edite facilmente grandes números de células); Colar para intervalo filtrado...
  • Mesclar células / linhas / colunas sem perder dados; Conteúdo de células divididas; Combinar linhas / colunas duplicadas... Prevenir Células Duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Exclusivo Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros de trabalho; Seleção aleatória ...
  • Cópia exata Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair texto, Adicionar texto, remover por posição, Remover espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salve e aplique esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro especial por negrito, itálico ...
  • Combinar pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Dividir dados em várias planilhas; Lote Converter xls, xlsx e PDF...
  • Mais de recursos poderosos do 300. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos Avaliação gratuita de um dia de 30.
kte tab 201905

A guia Office traz a interface com guias para o Office e torna seu trabalho muito mais fácil

  • Ativar edição e leitura com guias no 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!
fundo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    MSBrown · 2 years ago
    I was successfully using the VBA function but something has gone wrong with it - I am only having a #VALUE! error returned now in places where it was working previously. I have combed my data for errors and tried removing and re-creating the VBA module, and renaming the function, nothing seems to be working. Any help would be appreciated, thanks!
  • To post as a guest, your comment is unpublished.
    Marek · 2 years ago
    Thank you! Great and simple function works perfect for me!

    https://www.extendoffice.com/documents/excel/3418-excel-concatenate-unique-values.html#a1