Como mesclar linhas rapidamente com base em um valor de coluna e fazer alguns cálculos no Excel?
Por exemplo, você tem um intervalo de dados e uma coluna tem duplicatas, agora você deseja mesclar linhas com base na coluna A (tem duplicatas) e, em seguida, faça alguns cálculos para outra coluna com base nas linhas mescladas como mostrado na imagem:
No Excel, não existe um método rápido para mesclar linhas com base em um valor de coluna, mas aqui eu apresento o
truques que podem ajudá-lo a mesclar linhas duplicadas e depois somar ou fazer outros cálculos em outra coluna.
Mesclar linhas com base em uma coluna e somar os valores com VBA
Há um código VBA que pode ajudá-lo a mesclar as linhas duplicadas e a somar os valores de outras colunas.
Navegação com guias e edição de várias pastas de trabalho do Excel / documentos do Word como Firefox, Chrome, Internet Explore 10! |
Você pode estar familiarizado com a visualização de várias páginas da web no Firefox/Chrome/IE e alternar entre elas clicando facilmente nas guias correspondentes. Aqui, o Office Tab oferece suporte a processamento semelhante, o que permite navegar por várias pastas de trabalho do Excel ou documentos do Word em uma janela do Excel ou do Word e alternar facilmente entre eles clicando em suas guias. Clique de graça 30Avaliação de um dia do Office Tab! |
1. Pressione F11 + Alt chaves para habilitar Microsoft Visual Basic para Aplicações janela e clique em inserção > Módulo e copie e cole abaixo o código VBA para o novo Módulo janela.
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 Sub
2. Pressione F5 ou clique Execute para executar o VBA e uma caixa de diálogo é exibida para selecionar um intervalo de dados para trabalhar. veja a imagem:
3. Depois de selecionar uma faixa de trabalho, clique em OK. Agora os dados foram mesclados pela primeira coluna e somam os valores na segunda coluna.
Note: Este código VBA só pode funcionar corretamente ao mesclar com base na primeira coluna e somar valores na segunda coluna.
Mesclar linhas com base em uma coluna e somar os valores com Combinar Linhas Avançadas
Se você não estiver familiarizado com o código VBA, pode usar o Combinar linhas avançadas recurso da ferramenta add-in de terceiros - Kutools for Excel para mesclar de forma fácil e rápida as linhas duplicadas e, em seguida, somar os valores em outra coluna.
Depois de instalação grátis Kutools para Excel, faça o seguinte:
1. Selecione os dados que deseja usar e clique Kutools > Unir e dividir > Combinar linhas avançadas. Veja a imagem:
2. Em seguida, na caixa de diálogo pop-up, selecione a coluna na qual você irá mesclar outras colunas com base e clique em Primário Chave e clique em outra coluna e clique em calculado Em seguida, selecione Soma.
Dica: Se o intervalo selecionado tiver cabeçalhos, verifique Meus dados têm cabeçalhos, e verificar Use valores formatados manterá a formatação após a mesclagem.
3. Então clique Ok. Agora, os dados foram mesclados com base na coluna primária e outra foi resumida. Veja a imagem:
Mesclar linhas com base em uma coluna e, em seguida, fazer diferentes operações em outras colunas com Combinar Linhas Avançadas
Combinar linhas avançadas é poderoso, porque não só pode mesclar linhas duplicadas em uma coluna e depois 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 conforme a captura de tela mostrada abaixo e desejo combinar os valores na coluna B e somar os valores na coluna C com base na coluna A.
Depois de instalação grátis Kutools para Excel, faça o seguinte:
1. Selecione o intervalo de dados e clique em Kutools > Unir e dividir > Combinar linhas avançadas. Veja a imagem:
2. No Combinar linhas com base na coluna diálogo, faça assim:
(1) Clique na coluna que deseja combinar com base e clique em Chave primária;
(2) Clique na coluna que deseja combinar os dados e clique em Combinare selecione um separador de que você precisa na lista;
(3) Clique na coluna que deseja somar os valores e clique em calculadoe selecione Soma.
3. Clique Ok. Agora você pode ver o resultado abaixo:
Com o Combinar linhas avançadas recurso, você também pode mesclar linhas com base em uma coluna e contar, calcular a média, manter os primeiros ou os últimos dados em outras colunas.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em 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!