Como condensar rapidamente linhas com base num valor igual no Excel?
Condensar linhas com base num valor com Tabela Dinâmica
Condensar linhas com base num valor com Kutools para Excel
Condensar linhas com base num valor com fórmulas
Condensar e somar linhas com uma macro VBA
Condensar linhas com base num valor com Tabela Dinâmica
A funcionalidade Tabela Dinâmica do Excel foi concebida para resumir dados de forma rápida e eficiente, especialmente quando precisa de consolidar linhas com base em valores duplicados numa coluna e agregar dados numéricos noutra. É ideal para utilizadores que pretendem uma tabela resumo interativa, com opções para agrupar, filtrar e aprofundar a análise dos resultados. As Tabelas Dinâmicas destacam-se no tratamento de grandes volumes de dados e atualizam-se com o mínimo esforço.
1. Selecione todo o intervalo dos seus dados, incluindo os cabeçalhos das colunas, e aceda ao separador Inserir na parte superior do Friso. Em seguida, clique em Tabela Dinâmica. Aparecerá a caixa de diálogo «Criar Tabela Dinâmica» — escolha se pretende colocar a Tabela Dinâmica numa Nova planilha ou numa Planilha existente, conforme as necessidades do seu fluxo de trabalho, e depois clique em OK. Veja a captura de ecrã:
2. No painel «Campos da Tabela Dinâmica», arraste o campo Encomenda para a área Linhas e o campo Vendas para a área Valores. Isto gera automaticamente uma tabela resumo com cada encomenda única e a soma correspondente das vendas.
Dica: Por predefinição, a Tabela Dinâmica soma a coluna numérica. Se pretender um cálculo diferente — como Média, Contagem, Mín ou Máx — clique na seta suspensa junto a «Soma de Vendas» na secção «Valores», selecione Valor Configurações de Campo e escolha a operação pretendida.
Vantagens:
- Ideal para análise dinâmica e exploração de dados.
- Atualiza-se facilmente sempre que os seus Dados de Origem forem alterados.
- Oferece opções avançadas para filtragem adicional, agrupamento e ajustes de esquema.
- Requer familiaridade com os controlos de Tabelas Dinâmicas para uma personalização avançada.
Condensar linhas com base num valor com Kutools para Excel
O «Kutools para Excel» oferece um método simplificado para combinar linhas duplicadas e resumir os seus dados, tornando-o ideal para tarefas repetitivas ou extensas. Esta ferramenta é perfeita para utilizadores que gerem grandes volumes de informação e precisem transformá-la ou resumi-la sem recorrer a trabalho manual complexo.
1. Destaque o intervalo de dados que pretende condensar. Em seguida, aceda a Kutools na barra de ferramentas e selecione Mesclar e Dividir > Mesclar Linhas Avançado.
2. Aparecerá a caixa de diálogo «Mesclar Linhas Avançado». Terá de:
- Clique no cabeçalho da coluna que contém entradas duplicadas e defina-a como a Chave Primária. Isto indica ao Excel quais os valores a utilizar para agrupar os dados.
- Clique no cabeçalho da coluna com os valores numéricos que pretende agregar. Na lista suspensa Operação, escolha um cálculo adequado na secção «Calcular» — como Soma, Média, Máx ou Mín — conforme as suas necessidades.
- Depois de especificar estas definições, clique em OK para processar a fusão.
3. As linhas serão condensadas e o cálculo especificado será aplicado à coluna selecionada.
Dicas práticas:
- Se o seu conjunto de dados incluir células vazias ou texto não numérico, certifique-se de que a coluna de cálculo contenha apenas números para evitar resultados inesperados.
- O Kutools é especialmente recomendado para grandes conjuntos de dados que seriam incómodos de fundir manualmente.
- Extremamente rápido e fácil de usar para processamento em lote.
- Permite personalizar totalmente a forma como os duplicados são fundidos e quais colunas são agregadas.
- Requer a instalação do suplemento Kutools para Excel.
- Modifique o seu intervalo de dados original (desfaça com Ctrl+Z se ainda não tiver guardado).
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Condensar linhas com base num valor com fórmulas
As fórmulas do Excel oferecem uma forma flexível de resumir dados sem precisar de reestruturar a sua folha de cálculo. Este método é ideal para tarefas personalizadas, conjuntos de dados mais pequenos ou quando pretende condensar informação numa área separada, mantendo intacta a fonte original. Fórmulas populares como SOMA.SE permitem calcular automaticamente totais para cada valor único.
1. Escolha uma célula vazia junto ao seu intervalo de dados — por exemplo, a célula D2 — e introduza a seguinte fórmula. Prima as teclas Shift + Ctrl + Enter para calcular o primeiro valor único.
=INDEX($A$2:$A$12,MATCH(0,COUNTIF($D$1:D1,$A$2:$A$12),0))
Nota: Ajuste os intervalos na fórmula — «A2:A12» corresponde à lista que contém possíveis duplicados e «D1» é a célula inicial dos seus resultados. Certifique-se de que as referências das células correspondem à sua folha real e utilize referências absolutas caso pretenda copiar as fórmulas para outras células.
2. Selecione a célula D2 (onde inseriu a fórmula) e arraste a alça de autorreenchimento para baixo até ao fim da sua lista ou até surgir um valor de erro, sinalizando que todas as entradas únicas já foram listadas.
3. Elimine todas as mensagens de erro que aparecem no final da sua lista. Em seguida, desloque-se para a célula adjacente na área de resultados (por exemplo, E2), introduza a seguinte fórmula para somar os valores de cada entrada, prima Enter e preencha para baixo para aplicar às restantes linhas.
=SUMIF($A$2:$A$12,D2,$B$2:$B$12)
Nota: «A2:A12» é a coluna de origem onde pretende identificar duplicados, «D2» é a célula que contém o primeiro valor único e «B2:B12» é a coluna com as vendas ou outros valores numéricos. Ajuste estas referências conforme o seu conjunto de dados.
Dicas e precauções:
- As fórmulas não alteram os dados originais e são especialmente adequadas para relatórios resumo lado a lado.
- Se desejar, pode utilizar outras funções de agregação — como CONTAR.SE, MÉDIA.SE, entre outras — para adaptar à sua análise.
Condensar e somar linhas com uma macro VBA
Ao trabalhar com conjuntos de dados especialmente grandes ou quando precisar de condensar repetidamente linhas com base em valores idênticos, automatizar o processo com uma macro VBA pode poupar-lhe tempo e esforço consideráveis. Esta abordagem permite-lhe processar centenas ou milhares de linhas em lote ou integrar esta funcionalidade num fluxo de trabalho personalizado. A solução VBA aqui apresentada soma os valores numa coluna especificada para cada item único noutra coluna e, em seguida, apresenta os resultados condensados numa nova folha, preservando sempre os seus dados originais.
1. Abra o Excel e prima Alt+F11 para aceder ao editor do Visual Basic para Aplicações. No editor VBA, clique em Inserir > Módulo para criar um novo módulo de código. Copie e cole o seguinte código na janela do módulo:
Sub CondenseAndSumRows()
Dim srcWS As Worksheet, destWS As Worksheet
Dim lastRow As Long, i As Long
Dim dict As Object
Dim keyCol As String, sumCol As String
Dim dataRange As Range, cell As Range
On Error Resume Next
Set dict = CreateObject("Scripting.Dictionary")
Set srcWS = Application.ActiveSheet
' Prompt to select the whole data range
Set dataRange = Application.InputBox("Select full data range including headers", "KutoolsforExcel", Type:=8)
keyCol = Application.InputBox("Select header name for key/duplicate column", "KutoolsforExcel", Type:=2)
sumCol = Application.InputBox("Select header name for numeric/sum column", "KutoolsforExcel", Type:=2)
If dataRange Is Nothing Or keyCol = "" Or sumCol = "" Then Exit Sub
' Get column numbers by header
Dim keyColNum As Integer, sumColNum As Integer
For i = 1 To dataRange.Columns.Count
If dataRange.Cells(1, i).Value = keyCol Then
keyColNum = i
End If
If dataRange.Cells(1, i).Value = sumCol Then
sumColNum = i
End If
Next i
If keyColNum = 0 Or sumColNum = 0 Then
MsgBox "Column headers not found. Check header spelling!", vbExclamation
Exit Sub
End If
' Summing values for each key
For i = 2 To dataRange.Rows.Count
If Not IsNumeric(dataRange.Cells(i, sumColNum).Value) Then
' Ignore non-numeric, prevent errors
GoTo SkipRow
End If
If dict.Exists(dataRange.Cells(i, keyColNum).Value) Then
dict(dataRange.Cells(i, keyColNum).Value) = dict(dataRange.Cells(i, keyColNum).Value) + dataRange.Cells(i, sumColNum).Value
Else
dict(dataRange.Cells(i, keyColNum).Value) = dataRange.Cells(i, sumColNum).Value
End If
SkipRow:
Next i
' Output results to new worksheet
Set destWS = Worksheets.Add
destWS.Name = "Condensed Summary"
destWS.Cells(1, 1).Value = keyCol
destWS.Cells(1, 2).Value = "Total " & sumCol
i = 2
Dim k
For Each k In dict.Keys
destWS.Cells(i, 1).Value = k
destWS.Cells(i, 2).Value = dict(k)
i = i + 1
Next k
MsgBox "Condensing complete! Check the worksheet 'Condensed Summary'.", vbInformation
End Sub2. Em seguida, execute a macro clicando no 
botão ou premindo F5 enquanto o módulo estiver selecionado. Uma caixa de diálogo solicitar-lhe-á que selecione toda a gama dos seus dados (incluindo os cabeçalhos) e, de seguida, os cabeçalhos da coluna da sua chave (coluna com duplicados) e da coluna numérica (coluna a somar). Siga as instruções para continuar — a macro calculará automaticamente os totais por valor único e escreverá os resultados numa nova folha com o nome "Resumo Condensado". Assim, a sua folha original permanece inalterada, garantindo total segurança.
Resolução de problemas:
- Se obtiver um erro «Cabeçalhos de coluna não encontrados», certifique-se de que os cabeçalhos introduzidos correspondem exatamente aos da folha de dados (diferencia maiúsculas/minúsculas).
- Se não for criado nenhum resumo, verifique se o Selecionar intervalo inclui tanto cabeçalhos como dados e que existe pelo menos um valor numérico na coluna de agregação.
Vantagens:
- Pode ser reutilizado e facilmente adaptado a novos conjuntos de dados.
- Rápido mesmo com ficheiros muito grandes e sem necessidade de suplementos externos.
- Pode ser expandido para integrar outros campos ou automatizar cálculos adicionais no futuro.
Resumo
Quando precisar de fundir ou analisar linhas no Excel com base em valores partilhados, a escolha da abordagem certa depende dos seus objetivos e da estrutura do seu livro:
- As Tabelas Dinâmicas são ideais para análise interativa e resumos rápidos, especialmente em ambientes com dados em constante evolução.
- O Kutools para Excel oferece funcionalidades intuitivas e personalizadas de fusão, perfeitas para utilizadores que realizam tarefas repetitivas sem precisar de recorrer a scripts.
- As fórmulas oferecem a máxima flexibilidade, são fáceis de auditar e revelam-se ideais tanto para relatórios estáticos como para lógica personalizada.
- As macros VBA são uma solução eficaz para automatizar operações em lote, grandes ou repetitivas, e gerar novos relatórios condensados sem esforço manual.
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