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

Mesclar linhas com base em uma coluna e somar valores com Mesclar Linhas Avançado

Mesclar linhas com base em uma coluna e realizar diferentes operações em outras colunas com
Mesclar Linhas Avançado

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 Sub

2. 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.

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.