Como mesclar rapidamente linhas com base no valor de uma coluna e, em seguida, realizar cálculos no Excel?
Por exemplo, tem um intervalo de dados em que uma coluna contém valores duplicados e pretende mesclar as linhas com base na coluna A (que contém duplicados) e, depois, efetuar cálculos noutra coluna com base nas linhas mescladas, conforme ilustrado na imagem:
No Excel, não existe um método rápido para mesclar linhas com base no valor de uma coluna, mas aqui estão alguns truques que o ajudam a combinar linhas duplicadas e, em seguida, somar ou realizar outros cálculos noutra coluna.
| Dados Originais | Mesclar e Somar |
 |  |
Mesclar linhas com base numa coluna e somar valores com VBA
Existe um código VBA que o pode ajudar a combinar linhas duplicadas e somar os valores de outra coluna.
1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications, clique depois em Inserir > Módulo e copie e cole o código VBA seguinte no novo Módulo.
VBA: Mesclar linhas com base no valor de uma coluna
Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
If Not .Exists(Rng.Value) Then
.Add Rng.Value, Rng.Offset(, 1)
Else
.Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
If nRng Is Nothing Then
Set nRng = Rng
Else
Set nRng = Union(nRng, Rng)
End If
End If
Next
If Not nRng Is Nothing Then
nRng.EntireRow.Delete
End If
End With
End Sub2. Prima F5 ou clique no botão Executar para executar o VBA. Surge, então, uma caixa de diálogo para selecionar um intervalo de dados com o qual trabalhar. Veja a imagem:
3. Após selecionar o intervalo de trabalho, clique em OK. Os dados foram agora mesclados pela primeira coluna e os valores da segunda coluna foram somados.
Nota: Este código VBA funciona corretamente apenas quando utilizado para agrupar com base na primeira coluna e somar os valores da segunda coluna.
Mesclar linhas com base numa coluna e somar valores com Mesclar Linhas Avançado
Se não estiver familiarizado com código VBA, pode utilizar a funcionalidade Mesclar Linhas Avançado da ferramenta complementar de terceiros – Kutools para Excel – para mesclar facilmente e rapidamente linhas duplicadas e somar os valores noutra coluna.
1. Selecione os dados que pretende utilizar e clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado. Veja a imagem:
2. Na caixa de diálogo que surge, selecione a coluna com base na qual pretende mesclar as outras colunas e clique em Chave Primária. Depois, clique noutra coluna, em seguida em Calcular e selecione Soma.
Dica: Se os seus Selecionar intervalo tiverem cabeçalhos, marque Incluir títulos e também Usar valores formatados para manter a formatação após a mesclagem.
3. Depois, clique em Ok. Os dados foram agora mesclados com base na coluna principal e os valores da outra coluna foram somados. Veja a imagem:
Mesclar linhas com base numa coluna e efetuar operações diferentes noutras colunas com Mesclar Linhas Avançado.
Mesclar Linhas Avançado é poderoso, pois não só permite mesclar linhas duplicadas numa coluna e somar outra coluna, como também possibilita aplicar operações diferentes noutras colunas.
Imagine que tem um intervalo de dados como o apresentado na imagem seguinte e pretende combinar os valores da Coluna B e somar os valores da Coluna C com base na Coluna A.
Kutools para Excel – Inclui mais de 300 ferramentas essenciais para o Excel. Torne as suas tarefas no Excel mais rápidas, fáceis e eficientes.Descarregue já!
1. Selecione o intervalo, clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado. Veja a imagem:
2. Na caixa de diálogo Combinar Linhas Com Base em Coluna, proceda da seguinte forma:
(1) Clique na coluna com base na qual pretende combinar e clique em Chave Primária;
(2) Clique na coluna cujos dados pretende combinar e clique em Combinar, e selecione um separador da lista;
(3) Clique na coluna cujos valores pretende somar, clique em Calcular e selecione Soma.
3. Clique em Ok. Pode agora ver o resultado abaixo:
Com a funcionalidade Mesclar Linhas Avançado, pode também mesclar linhas com base numa coluna e contar, calcular médias ou manter os primeiros ou últimos dados noutras colunas.
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