Como combinar várias linhas numa única linha com base em valores duplicados no Excel?
Talvez tenha os dados apresentados na seguinte captura de ecrã: na coluna A (Nome do produto), existem alguns itens duplicados, e agora precisa de remover essas entradas duplicadas na coluna A, combinando os respetivos valores da coluna B. Veja as capturas de ecrã:
 |  |  |
Conhece alguma forma eficaz de resolver esta tarefa?
Combinar várias Linha duplicada numa só com código VBA
Combinar várias Linha duplicada numa só Kutools para Excel
Combinar várias Linha duplicada e somar/mostrar a média dos valores com Kutools para Excel
Combinar várias Linha duplicada numa só com código VBA
O seguinte código VBA pode ajudá-lo a combinar Linha duplicada com base nos valores da coluna A. Este código aplica-se apenas a duas colunas. Assim, se tiver dados em duas colunas, este código será útil.
1. Mantenha premidas as teclas ALT + F11 e abrirá a janela Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: combinar várias linhas numa só
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, prima a tecla F5 e surge uma caixa de diálogo que lhe pede para selecionar o intervalo que pretende combinar. Veja a captura de ecrã:
4. Depois, clique em OK e os valores da coluna B serão combinados num único registo, separados por espaços.
Notas:
1. Este código pode destruir os dados originais; por isso, aconselhamos que faça uma cópia de segurança antes de o utilizar.
2. Este código aplica-se apenas a duas colunas. Se tiver mais do que duas, combinará unicamente as duas primeiras e eliminará os dados das restantes — use-o com cautela.
Combinar várias Linha duplicada numa só Kutools para Excel
Uma vez que o código acima apresenta algumas limitações e riscos, será que existe uma forma prática e segura de realizar esta tarefa? Com a ferramenta Kutools para Excel’s Mesclar Linhas Avançado, pode remover rapidamente múltiplas linhas duplicadas com base nas colunas selecionadas e fundir ou efetuar cálculos noutros registos, colocando-os nas células apropriadas.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias.Obtenha já.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione o intervalo de dados que pretende consolidar, removendo duplicados.
2. Em seguida, clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado.
3. Na caixa de diálogo Mesclar Linhas Avançado, selecione o nome da coluna como Coluna Chave com base na qual pretende combinar os valores e, em seguida, clique em Coluna Chave.
4. Em seguida, clique na coluna cujos valores pretende combinar num único registo, depois em Tipo de Consolidação e escolha Apenas combinar com separador, selecionando um separador da lista à direita para distinguir os valores combinados. Veja a captura de ecrã:
5. Após concluir as definições, clique em OK e os seus dados serão fundidos com base na Coluna Chave e separados pelos separadores indicados.
Nota: Se não precisar de definir operações para as restantes colunas, mantenha o estado predefinido.
Combinar várias Linha duplicada e somar/mostrar a média dos valores com Kutools para Excel
Com esta ferramenta multifuncional Mesclar Linhas Avançado, pode combinar linhas duplicadas e realizar cálculos sobre os respetivos valores.
1. Selecione os dados do intervalo que pretende combinar, eliminando duplicados.
2. Aceda à caixa de diálogo Mesclar Linhas Avançado;
- (1.) Selecione um nome de coluna como Coluna Chave com base no qual pretende calcular os valores de outras colunas e, em seguida, clique em Coluna Chave;
- (2.) Selecione a coluna cujos valores necessitam de cálculos e, em seguida, clique em Tipo de Consolidação > Combinar cálculo e escolha o tipo de cálculo pretendido; neste caso, selecionei Soma. Veja a captura de ecrã:
3. Se não precisar de definir operações para as restantes colunas, mantenha a configuração predefinida e clique em OK. Os valores duplicados na coluna A serão fundidos e os respetivos valores na coluna B somados. Veja as capturas de ecrã:
 | |  |
Notas:
1. Se ativar a opção Incluir títulos, os cabeçalhos (primeira linha) do intervalo serão ignorados ao aplicar esta funcionalidade.
2. Usar valores formatados: mantém a formatação dos valores após combinar as células duplicadas.
3. Esta funcionalidade não está disponível para dados filtrados.
Clique para saber mais sobre a função Mesclar Linhas Avançado.
Artigo relacionado:
Combinar Linha duplicada e somar os valores
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos