Como mesclar rapidamente linhas com base em um valor de coluna e, em seguida, fazer alguns cálculos no Excel?
Por exemplo, você tem um intervalo de dados e uma coluna contém duplicatas. Agora, você deseja mesclar as linhas com base na Coluna A (que contém duplicatas) e, em seguida, realizar cálculos em outra coluna com base nas linhas mescladas, conforme mostrado na captura de tela:
No Excel, não há um método rápido para mesclar linhas com base em um valor de coluna, mas aqui eu apresento alguns truques que podem ajudá-lo a mesclar linhas duplicadas e, em seguida, somar ou realizar outros cálculos em outra coluna.
| Dados Originais | Mesclar e Somar |
 |  |
Mesclar linhas com base em uma coluna e somar valores com VBA
Existe um código VBA que pode ajudá-lo a mesclar as linhas duplicadas e somar os valores de outra coluna.
1. Pressione as teclas F11 + Alt para habilitar a janela Microsoft Visual Basic for Applications, depois clique em Inserir > Módulo e copie e cole o seguinte código VBA na nova janela Módulo.
VBA: Mesclar linhas com base em um valor de 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. Pressione F5 ou clique no botão Executar para executar o VBA, e uma caixa de diálogo aparecerá para selecionar um intervalo de dados para trabalhar. Veja a captura de tela:
3. Após selecionar um intervalo de trabalho, clique em OK. Agora os dados foram mesclados pela primeira coluna e os valores da segunda coluna foram somados.
Observação: Este código VBA só funcionará corretamente ao mesclar com base na primeira coluna e somar os valores na segunda coluna.
Mesclar linhas com base em uma coluna e somar valores com Mesclar Linhas Avançado
Se você não está familiarizado com o código VBA, você pode usar o recurso Mesclar Linhas Avançado da ferramenta de terceiros Kutools para Excel para mesclar facilmente e rapidamente as linhas duplicadas e somar os valores em outra coluna.
1. Selecione os dados que deseja usar e clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado. Veja a captura de tela:
2. Na caixa de diálogo que aparece, selecione a coluna na qual você irá mesclar outras colunas com base e clique em Chave Principal, depois clique em outra coluna e clique em Calcular e selecione Soma.
Dica: Se o intervalo selecionado tiver cabeçalhos, marque Os dados contêm cabeçalhos, e marcar Usar valores formatados manterá a formatação após a mesclagem.
3. Em seguida, clique em Ok. Agora os dados foram mesclados com base na coluna principal, e outra foi somada. Veja a captura de tela:
Mesclar linhas com base em uma coluna e realizar diferentes operações em outras colunas com Mesclar Linhas Avançado.
Mesclar Linhas Avançado é poderoso, porque ele não apenas pode mesclar linhas duplicadas em uma coluna e somar outra coluna, mas também pode mesclar linhas duplicadas em uma coluna e realizar diferentes operações em outras colunas.
Suponha que eu tenha um intervalo de dados como mostrado na captura de tela abaixo, e quero combinar os valores na Coluna B e somar os valores na Coluna C com base na Coluna A.
Kutools para Excel - Repleto de mais de 300 ferramentas essenciais para o Excel. Aproveite recursos de IA gratuitos permanentemente! Faça o download agora!
1. Selecione o intervalo de dados e clique em Kutools > Mesclar e Dividir > Mesclar Linhas Avançado. Veja a captura de tela:
2. No diálogo Combinar Linhas com Base na Coluna, faça o seguinte:
(1) Clique na coluna que deseja combinar com base e clique em Chave Principal;
(2) Clique na coluna que deseja combinar os dados, e clique em Combinar, depois selecione um delimitador necessário da lista;
(3) Clique na coluna que deseja somar os valores e clique em Calcular, e selecione Soma.
3. Clique em Ok. Agora você pode ver o resultado abaixo:
Com o recurso Mesclar Linhas Avançado, você também pode mesclar linhas com base em uma coluna e contar, calcular média, manter o 1º ou último dado em outras colunas.
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins