Como somar rapidamente valores, excluindo as colunas ocultas no Excel?
Para somar valores excluindo linhas ocultas, pode utilizar a fórmula =SUBTOTAL(), mas e quando se pretende somar valores ignorando colunas ocultas? Este artigo revela truques práticos para somar rapidamente valores apenas nas colunas visíveis.
Somar valores excluindo colunas ocultas com VBA
Somar/média/contar excluindo colunas ocultas com Kutools para Excel ![]()
Somar valores excluindo colunas ocultas com VBA
Aqui está um código VBA que o ajuda a somar rapidamente apenas as colunas visíveis.
1. Prima Alt + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na nova janela do Módulo.
VBA: Somar apenas os valores das colunas visíveis
Public Function SumVisible(Rg As Range) As Double
'UpdatebyExtendOffice20160302
Dim xCell As Range
Dim xRg As Range
Dim xOutRg As Range
On Error Resume Next
Application.Volatile
Set xRg = Application.Intersect(Rg, Rg.Worksheet.UsedRange)
If Not (xRg Is Nothing) Then
For Each xCell In xRg
If (xCell.EntireRow.Hidden = False) And _
(xCell.EntireColumn.Hidden = False) Then
If xOutRg Is Nothing Then
Set xOutRg = xCell
Else
Set xOutRg = Application.Union(xCell, xOutRg)
End If
End If
Next
End If
If Not xOutRg Is Nothing Then
SumVisible = Application.Evaluate("SUM(" & xOutRg.Address & ")")
Else
SumVisible = 0
End If
End Function 3. Guarde o código e feche esta janela. Depois, regresse e selecione uma célula vazia onde pretende colocar o resultado calculado e introduza a fórmula =SumVisible(A1:C9). Prima a tecla Enter e o resultado correto da soma aparecerá.


Dica: Na fórmula, A1:C9 são as células que pretende somar.
Somar/média/contar excluindo colunas ocultas com Kutools para Excel
Talvez não esteja familiarizado com código VBA, mas se tiver o Kutools para Excel instalado, pode resolver esta tarefa de forma rápida e fácil.
1. Selecione uma célula vazia onde pretende colocar o resultado da soma — por exemplo, E1 — e clique em Kutools > Funções Aprimoradas > Estatística e Matemática > SOMAVISIVEL. Veja a imagem:
2. Na caixa de diálogo Argumentos da Função, clique para selecionar as células que pretende somar na caixa de texto Referência e pré-visualize o resultado calculado na parte inferior. Veja a imagem:
3. Clique em OK e apenas as colunas visíveis serão somadas.
Com o Kutools para Excel, pode também contar ou calcular a média nas células, linhas ou colunas visíveis. Veja a imagem:
Dica: Também pode introduzir diretamente esta fórmula =SOMAVISIVEL(A1:C9), =CONTARVISIVEL(A1:C9) ou =MEDIAVISIVEL(A1:C9) na célula para obter o resultado após instalar o Kutools para Excel.
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á
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
