Como combinar várias linhas em uma com base em duplicatas no Excel?
Talvez você tenha os seguintes dados na captura de tela, na coluna A do nome do produto, existem alguns itens duplicados, e agora você precisa remover as entradas duplicadas na coluna A, mas combinar os valores correspondentes na coluna B, veja as capturas de tela:
![]() | ![]() | ![]() |
Você tem algumas maneiras eficazes de resolver essa tarefa?
Combinar várias linhas duplicadas em uma com código VBA
Combinar várias linhas duplicadas em uma Kutools para Excel
Combinar várias linhas duplicadas e somar/média dos valores com Kutools para Excel
Combinar várias linhas duplicadas em uma com código VBA
O seguinte código VBA pode ajudá-lo a combinar linhas duplicadas com base no valor da coluna A, e o código a seguir é aplicável apenas para duas colunas. Então, se você tiver dados em duas colunas, este código será útil para você.
1. Pressione e segure as teclas ALT + F11, e isso abrirá a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, e cole o seguinte código na Janela do Módulo.
Código VBA: combinar várias linhas em uma
Sub CombineRows()
'Update 20131202
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
xvalue = arr(i, 1)
If Dic.Exists(xvalue) Then
Dic(arr(i, 1)) = Dic(arr(i, 1)) & " " & arr(i, 2)
Else
Dic(arr(i, 1)) = arr(i, 2)
End If
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub
3. Em seguida, pressione a tecla F5, e uma caixa de aviso aparecerá para lembrá-lo de selecionar um intervalo que você precisa combinar. Veja a captura de tela:
4. E depois clique em OK, os valores na coluna B terão sido combinados em um registro e separados por espaços.
Notas:
1. Este código pode destruir os dados originais, ao usá-lo, é melhor fazer backup dos dados primeiro.
2. Este código só é aplicável para duas colunas, se você tiver mais de duas colunas, este código só combinará as primeiras duas colunas e removerá os dados das outras colunas. Ao usar este código, você deve ser cauteloso.
Combinar várias linhas duplicadas em uma Kutools para Excel
Agora que o código acima tem algumas limitações e riscos, há uma maneira prática e segura de concluir esta tarefa? Com a utilidade Mesclar Linhas Avançado do Kutools para Excel, você pode rapidamente remover várias linhas duplicadas nas colunas que você escolher e mesclar ou fazer cálculos para outros registros em células apropriadas.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Gratuito para experimentar sem limitação por 30 dias. Obtenha-o Agora.
Após instalar o Kutools para Excel, faça o seguinte:
1. Selecione o intervalo de dados que deseja combinar duplicatas.
2. Em seguida, clique em Kutools > Mesclar & Dividir > Mesclar Linhas Avançado.
3. Na caixa de diálogo Mesclar Linhas Avançado, selecione o nome da coluna como as colunas-chave que você deseja combinar valores com base, e então clique em Colunas-Chave.
4. Depois continue clicando na coluna que você precisa combinar seus valores em um registro, e então clique em Operações de Combinação e escolha Apenas combinar com separador, e escolha um separador que você precisa para separar os valores combinados da lista à direita. Veja a captura de tela:
5. Após finalizar as configurações, clique em OK, e seus dados serão mesclados com base nas colunas-chave e separados por separadores.
Nota: Se você não precisar definir operações para as demais colunas, basta manter o estado padrão.
Combinar várias linhas duplicadas e somar/média dos valores com Kutools para Excel
Com esta utilidade multifuncional Mesclar Linhas Avançado, você pode combinar linhas duplicadas e fazer cálculos para os valores também.
1. Selecione o intervalo de dados que deseja combinar duplicatas.
2. Vá para a caixa de diálogo Mesclar Linhas Avançado;
- (1.) Selecione um nome de coluna como coluna-chave que você deseja calcular os valores de outra coluna com base, e então clique em Colunas-Chave;
- (2.) Selecione a coluna que você precisa fazer cálculos para os valores, e então clique em Operações de Combinação > Calcular Combinação, depois escolha um tipo de cálculo que você precisa, neste caso, eu selecionei Soma. Veja a captura de tela:
3. Se você não precisar definir operações para as demais colunas, basta manter o estado padrão, depois clique em OK, e os valores duplicados na coluna A serão mesclados e seus valores correspondentes na coluna B serão somados. Veja as capturas de tela:
![]() | ![]() | ![]() |
Notas:
1. Se você marcar a opção Meus dados têm cabeçalhos, seus cabeçalhos (primeira linha) do intervalo serão ignorados quando você aplicar esta utilidade.
2. Usar valores formatados: isso manterá a formatação dos valores após combinar as células duplicadas.
3. Esta utilidade não está disponível para filtragem de dados.
Clique para saber mais sobre esta função Mesclar Linhas Avançado.
Artigo relacionado:
Combinar linhas duplicadas e somar os valores
Melhores Ferramentas de Produtividade para Office
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!