Como somar os valores das células numa coluna até encontrar uma célula em branco?
Se tiver uma lista de números com algumas células em branco e precisar de somar os números acima ou abaixo até às células em branco para obter os resultados pretendidos, conhece alguma forma rápida ou fácil de resolver esta tarefa no Excel?
Somar valores das células acima até à célula em branco
Somar valores das células abaixo até à célula em branco
Somar valores das células abaixo até às células em branco com fórmula matricial
Somar valores das células acima até às células em branco com código VBA
Somar valores das células abaixo até às células em branco com fórmula matricial
Para somar os valores das células abaixo até encontrar células em branco, utilize a seguinte fórmula matricial. Siga estes passos:
1. Introduza esta fórmula numa célula vazia junto à sua coluna de números, como por exemplo a E1.
=IF(D1=«»,SUM(D1:INDEX(D1:$D$17,MATCH(TRUE,(D2:$D$17=""),0))),"") (D1 e D2 são as duas primeiras células da sua coluna; D17 é a última célula em branco na coluna de números).
2. Depois, prima em simultâneo as teclas Ctrl + Shift + Enter e, em seguida, arraste a alça de preenchimento para baixo até às células onde pretende somar os números abaixo, parando nas células em branco. Veja a imagem:
Somar valores das células acima até às células em branco com código VBA
Se precisar de somar os valores das células acima até encontrar células em branco, o seguinte código VBA poderá ajudá-lo.
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Somar valores das células acima até às células em branco:
Sub InsertTotals()
'Updateby Extendoffice
Dim xRg As Range
Dim i, j, StartRow, StartCol As Integer
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.AddressLocal
Set xRg = Application.InputBox("please select the cells:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
StartRow = xRg.Row
StartCol = xRg.Column
For i = StartCol To xRg.Columns.Count + StartCol - 1
For j = xRg.Row To xRg.Rows.Count + StartRow - 1
If Cells(j, i) = "" Then
Cells(j, i).Formula = "=SUM(" & Cells(StartRow, i).Address & ":" & Cells(j - 1, i).Address & ")"
StartRow = j + 1
End If
Next
StartRow = xRg.Row
Next
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Aparecerá uma caixa de diálogo a solicitar que selecione o intervalo de células cujos valores pretende somar, desde as células em branco acima. Veja a imagem:
4. Depois, clique no botão OK. Todos os valores das células acima das células em branco terão sido somados, conforme ilustrado na imagem seguinte:
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